Also ich habe was Kleines gebastelt, komme aber nicht weiter..
Mit dem Code schaffe ich, dass der mir die Einträge in Spalte A - F aus Tabelle1 in die Tabelle 2 Spalte A - F überträgt
Aber wie bekomme ich es hin, dass er mir pro Eintrag in Spalte A und den dazugehörigen Daten (Zelle B-F) je ein Tabellenblatt erstellt und die Zeile einfügt
Und auch wiederholen sich Lieferanten in Spalte A, dh. wenn ein Lieferant 123456 mehrmals vorkommt, soll für den Lieferanten nur ein Tabellenblatt mit den dazugehörigen Einträgen (Zelle B-F) erstellt und reinkopiert werden
Code:
Private Sub CommandButton1_Click()
Dim a As Long, i As Long
a = 1
For i = 1 To 100
If Worksheets("Tabelle1").Cells(i, 1) <> "" Then
Worksheets("Tabelle1").Rows(i).Copy Worksheets("Tabelle2").Cells(a, 1)
a = a + 1
End If
Next i
End Sub
Wer kann mir helfen? Vielen Dank im Voraus
|