Zeilen kopieren
04.11.2002 05:44:12
sigi
nochmals das Problem mit den Zeilen kopieren.
Leider funktioniert mein nachfolgendes Makro nicht.
Folgender Aufbau meines arbeitblattes:
Die Daten von Tabelle1 soll nach Tabelle2 übertragen werden.
Jedoch wird nur die Zeile 4 übertragen obwohl Zeile 4 und 5
kopiert wird.
Wo liegt der Fehler?
Gruß
Sigi
Private Sub cmdZeileKopieren_Click()
Dim shTarget As Worksheet
Dim intRow As Integer
Set shTarget = Worksheets("Tabelle2")
Range("A4:E5").Select
intRow = shTarget.Cells(Rows.Count, 2).End(xlUp).Row + 1
Range ("A4:E5").Copy shTarget.Rows(intRow)
Application.CutCopyMode = False
shTarget.Columns.AutoFit
End Sub