Übertrag von Zellen auf Blatt
08.09.2005 23:02:21
Zellen
Zu später Stunde bin ich noch auf ein Problem gestossen und vielleicht kann mir ja jemand helfen?
Habe Daten in Tabelle 1 in den verschiedensten Zellen: zB A3 B7 D19 usw.
Möchte diese Daten automatisch in ein anderen Blatt schreiben und immer in die nächste freie Zeile wo dann all diese Daten gespeichert werden können, ohne diese nochmals mühevoll übertragen zu müssen. Zb alle Daten von Tabelle 1 von den Zellen A3 B7 D19 sollen in Tabelle 2 in die nächste Freie Zeile beginnend mit B bis D eingetragen werden.
Ist das möglich und gibt es vielleicht schon einen fertigen VBA Code.
Vielen Dank und schönen Abend noch!
Grüße Jessica
Sub Datenübertragen()
Dim z As Integer
With Sheets("Tabelle 1")
z = Cells(Rows.Count, 5).End(xlUp).Row + 1
If Worksheets("Tabelle 2").Range("A3") <> "" Then
Cells(z, 5) = Sheets("Tabelle 2").Range("B1")
End If
End With
End Sub