Makro über mehrere Tabellenblätter
01.10.2021 12:03:43
sounwissend
ich bin leider VBA ziemlich unwissend (habe mich vor über 10 Jahren damit befasst, inzwischen fast alles vergessen und muss jetzt dringend etwas umsetzen) - das, was ihr wohl oft lest :-)
Mein Problem:
Meine Sub klappt zwar inwzischen toll für das nächste Tabellenblatt, ich möchte jedoch, dass das für alle Tabellenblätter funktioniert.
Ich komme leider auch nach vielen Stunden ausprobieren nicht auf die Lösung.
(Ich bin schon stolz auf mich, dass ich es geschafft habe, dass die Werte Spalte A meiner Ausgangstabelle mit den Werten Spalte B
des nächsten Tabellenblattes verglichen werden, und da, wo die Werte übereinstimmen, die Werte Spalten A-E
der Ausgangstabelle in die Spalten C-G des nächsten Tabellenblattes kopiert werden - nun soll das jedoch mit allen Tabellenblättern so erfolgen).
Könnt Ihr mir helfen?
Sub ISINvergleichenZellenKopierenInAllenTabellenblaettern()
Dim sh As Worksheet
Dim rng As Range
Dim iRow As Integer
iRow = 1
For Each sh In Worksheets
If sh.Index > 1 Then
Do Until IsEmpty(Cells(iRow, 1))
Set rng = sh.Columns(2).Find( _
what:=Cells(iRow, 1), lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
Range(rng.Offset(0, 1), rng.Offset(0, 5)).Value = _
Range(Cells(iRow, 1), Cells(iRow, 5)).Value
End If
iRow = iRow + 1
Loop
End If
Next sh
End Sub