Erste freie Zelle finden (VBA)
07.02.2005 09:55:27
Torsten
über einen cmb_Button kopiere ich aus einem WS("SETT ACC").Range("G2:G7") und möchte dies in die erste freie Zelle der Spalte "A" im WS("DATENLJ") einfügen:
...
Sheets("SETT ACC").Range("G2:G7").Copy
Sheets("DATENLJ").Select
Dim intRow As Integer
If IsEmpty(Range("A1")) Then Exit Sub
intRow = 1
Do Until IsEmpty(Cells(intRow, 1))
intRow = intRow + 1
Loop
Cells(intRow - 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("DATENLJ").Range("A1").Select
...
Leider führt Excel diese Funktion im WS("SETT ACC") aus und nicht in dem vorher angesteuerten WS("DATENLJ"). Was mache ich denn noch falsch?
Vielen Dank für Eure Hilfe.
Gruß
Torsten