Servus,
ich möchte mehrere Zellen, die einen Wert enthalten und untereinander in Tabelle1 sind sowie einen fixen Wert (ebenfalls in Tabelle 1) mit den spalten 2 und 1 einer Auswertungsliste in Tabellenblatt2 abgleichen.
Wenn Einträge gefunden werden, die beide Bedingungen erfüllen, solle ein Wert in tabellenblatt 2 in Spalte 3 addiert werden. Sodass Summen gebildet werden. Diese sollen schließlich in Tabellenblatt 1 an entsprechender Stelle eingefügt werden.
Der Zweck ist das Filtern einer Materialbewegungsliste nach Auftrag und Teilenummer.
Folgendes habe ich mir überlegt, leider passiert nichts...
Ich freue mich über Feedback.
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
'HauptString = Hauptauftragsnummer (s.o.)
'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
For RowOneSearch = 1 To RowMaxSearch
'Auswahl gefundene Tnr in Zeile i und Spalte 2 // ggf ändern
TnrSearch = Trim(Worksheets("A-Bewegung Details").Cells(RowOneSearch, 2))
'If-Schleife für Tnr-Abgleich
If TnrSource = TnrSearch 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
|