In die erste Leere Zelle kopieren
04.12.2002 01:43:40
Thomas Scher
ich habe mich durch das Archiv gekämpft und da das Macro zur Feststellung der ersten leeren Zelle gefunden.
Sub GeheBisLeer()
Dim intRow As Integer
If IsEmpty(Range("A1")) Then Exit Sub
intRow = 1 Do Until IsEmpty(Cells(intRow, 1))
intRow = intRow + 1 Loop
Range("b1") = Cells(intRow, 1).Address(False, False)
End Sub
nun möchte ich mit einem copy und paste macro die werte in
die erste leere zelle kopieren nur leider weiss ich nicht wie ich diesem Macro sage nimm die position die mir hier
Range("b1") = Cells(intRow, 1).Address(False, False)
dargestellt wird.
das wäre super wenn es klappt da dann jeden Morgen meine daten in ein und der selben Tabelle untereinander kopiert würden.
Und was sich alleine füllt ist SUPER !!
Danke an alle
Thomas