Thema Datum  Von Nutzer Rating
Antwort
15.01.2021 09:57:19 Max
NotSolved
Blau Doppelter Summewenn Abgleich mit VBA
 15.01.2021 10:22:15 Max
NotSolved
15.01.2021 18:44:14 Gast73935
NotSolved

Ansicht des Beitrags:
Von:
Max		 Datum:
15.01.2021 10:22:15		 Views:
471		 Rating:
     
Antwort:
  Ja
Thema:
Doppelter Summewenn Abgleich mit VBA

kurzes Status-Update:

habe die 2. Bedingung ergänzt und RowMaxSearch definiert.

VBA hängt sich jetzt beim Kompilieren ständig auf....

Sub IstSummierung()
Dim TnrSource As String, TnrSearch As String, SumTnr As String
Dim RowOneSource As Long, RowMaxSource As Long
Dim RowOneSearch As Long, RowMaxSearch As Long
Dim HauptSource As String, HauptSearch As String

'In Gesamtmodul HauptString = Hauptauftragsnummer (s.o.) // später ggf anpassen
HauptSource = Worksheets("Standard_AuftrNr").Cells(2, 5)

'Bereich der Teilenummern in "Standard_AuftrNr"
RowMaxSource = 24
For RowOneSource = 12 To RowMaxSource
'Anfangssumme
SumTnr = 0

'Auswahl gesuchte Tnr // später ggf auftragsspezifisches Standard_Ist-Blatt einfügen
TnrSource = Trim(Worksheets("Standard_AuftrNr").Cells(RowOneSource, 2))

'Maximale Zeilenzahl für TNR-Suche = gesamte Spalte
RowMaxSearch = Worksheets("A-Bewegung Details").Rows.Count
For RowOneSearch = 1 To RowMaxSearch

'Auswahl gefundene Tnr in Zeile i und Spalte 2 // ggf der Formatierung anpassen
TnrSearch = Trim(Worksheets("A-Bewegung Details").Cells(RowOneSearch, 2))
'Auswahl gefundene AuftrNr in Zeile i und Spalte 1 // ggf der Formatierung anpassen
HauptSearch = Trim(Worksheets("A-Bewegung Details").Cells(RowOneSearch, 1))

'If-Schleife für Tnr-Abgleich
If TnrSource = TnrSearch And HauptSearch = HauptSource Then
Sheets("A-Bewegung Details").Activate
SumTnr = SumTnr + Worksheets("A-Bewegung Details").Cells(RowOneSearch, 6)

End If

Next RowOneSearch

SumTnr = Worksheets("Standard_AuftrNr").Cells(RowOneSource, 5)

'Worksheets("A-Bewegung Details").Activate

Next RowOneSource

End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.01.2021 09:57:19 Max
NotSolved
Blau Doppelter Summewenn Abgleich mit VBA
 15.01.2021 10:22:15 Max
NotSolved
15.01.2021 18:44:14 Gast73935
NotSolved