ich habe in der Tabelle1.Spalte a eine unbestimmte Anzahl von Daten. Diese möchte ich gern der reihe nach folgendermaßen verteilen, von Tabelle1 A1 nach Tabelle2.Range("D3") , dann von Tabelle1 A2 nach Tabelle2.Range("D5") und von Tabelle1 A3 nach Tabelle2.Range("d8") verteilen. Dann Drucken und anschließend
von Tabelle1 A4 nach Tabelle2.Range("D3") und von Tabelle1 A5 nach Tabelle2.Range("d5") und von Tabelle1 A6 nach Tabelle2.Range("d8") dann Drucken. unsw. Dies möchte ich gern solange machen bis alle Daten der Tabelle1 Spalte A durchlaufen sind. Die Daten der Tabelle1 sollen nicht gelöscht werden.
Mit diesem Makro funktioniert leider immer nur eine Zelle ( D3 )
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim WsQ As Worksheet: Set WsQ = Wb.Worksheets("Tabelle1")
Dim WsZ As Worksheet: Set WsZ = Wb.Worksheets("Tabelle2")
Dim r As Range, c As Range
Application.ScreenUpdating = False
With WsQ
Set r = .Range("A1:a" & .Range("a" & Rows.Count).End(xlUp).Row)
For Each c In r
With WsZ
.Range("D3") = c.Value
.Calculate: .PrintPreview '.PrintOut
End With
Next c
End With
Kann mir jemand helfen dieses Makro dementsprechend umzuschreiben? So das bei jedem durchlauf nicht nur .Range("D3") = c.Value sondern auch .Range("D5") = c.Value und .Range("D8") = c.Value vor dem drucken gefüllt wird?
Habt schon mal rechtvielen dank für euer Interesse.
mfg thomas