was für ein Tag?!?!?! Hänge schon wieder im VBA-Code fest....
Ich versuche verzweifelt meine div. Tabellenblätter (Register_1 bis Register_10) mit den Daten aus einer Übersicht (P.-Doku) zu füllen. Als Suchkriterium nehme ich einen Kenner aus der Tabelle4.
Anbei mein VBA-Code:
Sub Test()
' Uebertrag der Daten aus P.-Doku
Dim Bereich As Range
Dim I
I = 1
With Tabelle4
Set Bereich = .Range("E13", .Cells(.Rows.Count, 5).End(xlUp))
End With
For Each Bereich In Bereich
If Bereich "" Then
I = I + 1
End If
'MsgBox ("Register_" & I)
If Worksheets("Content").Cells(I, 5) = Bereich Then
Worksheets("Register_" & I).Cells(21, 4) = Worksheets("P.-Doku").Cells(I + 2, 6)
Worksheets("Register_" & I).Cells(24, 4) = Worksheets("P.-Doku").Cells(I + 2, 5)
Worksheets("Register_" & I).Cells(30, 4) = Worksheets("P.-Doku").Cells(I + 2, 3)
Worksheets("Register_" & I).Cells(27, 4) = Worksheets("P.-Doku").Cells(I + 2, 2)
Worksheets("Register_" & I).Cells(11, 5) = Worksheets("P.-Doku").Cells(I + 2, 32)
Worksheets("Register_" & I).Cells(15, 5) = Worksheets("P.-Doku").Cells(I + 2, 4)
Else
End If
Next Bereich
End Sub
Kann mir jemand von Euch auf die Sprünge helfen - wäre super!
Gruß, Stefan