Hallo Stephan,
mach dir nichts draus. Manche Menschen wollen einfach nicht helfen, sondern stänkern hier lieber rum. Das macht Ihnen mehr Spaß. In einem Punkt geb ich Gast92223 allerdings recht. Der Code ist wirklich einfach. Zumindest für jemanden der schon ein bisschen mehr mit VBA gearbeitet hat. Damit auch du etwas dazulernen kannst und dich künftig nicht mehr mit solchen Typen rumschlagen musst, hier mal ein Beispielcode von meiner Seite. Am besten du führst ihn im Einzelschritt (also mit F8) aus und vergleichst nach jeder Zeile das Ergebnis in Blatt2. Dann verstehst du besser was in welcher Zeile passiert. Wenn du Fragen hast meld dich einfach.
Sub Kopieren()
Dim z1 As Long, z2 As Long, s2 As Long
z2 = 9: s2 = 3
For z1 = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
If s2 > 10 Then
s2 = 3
z2 = z2 + 2
End If
Sheets("Tabelle2").Cells(z2, s2) = Sheets("Tabelle1").Cells(z1, 1)
s2 = s2 + 1
Next z1
End Sub
Ich hoffe ich habe deinen Wunsch richtig verstanden. Wie gesagt mach dir nichts draus. Jeder fängt mal klein an.
Gruß Mr. K.
|