jeweils eine best. Zeile kopieren
20.01.2005 14:05:42
Jonny
hab folgendes Problem:
meine Tabelle:
1 2 3 4 5 6 7 8 9 "button1"
a b c d e f g h i "button2"
j k l m n o p q r "button3"
Ich will beim Klicken von button 1, dass er mir die erste Zeile (1-9) kopiert. und beim Klicken von button 2, nur die zweite Zeile (a-i).
Aber bei meinem quellcode nimmer er immer die unterste Zeile:
Sub zeilen_kopieren()
Dim quellzeile As Long, zielzeile As Long
quellzeile = Sheets("Tabelle1").Range("A65536").End(x1Up).Row
zielzeile = Sheets("Tabelle2").Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Tabelle1").Rows(quellzeile).Copy
Sheets("Tabelle2").Select
Rows(zielzeile).Select
Selection.PasteSpecial
Application.CutCopyMode = False
End Sub
Danke
Anzeige