Zeilen kopieren bis letzte nichtleere Zeile
29.12.2003 11:43:59
Andre
ich möchte Daten aus einem Spreadsheet in eine Tabelle auslesen. Leider reichen meine VBA-Kenntnisse noch nicht aus, um das Ganze etwas geschickter anzustellen.
Jede Zeile des Spreadsheets besteht aus 6 Zellen.
Meine Absicht ist es, die Zeile 1 in den Bereich AA2:AF2 zu schreiben, die Zeile 2 in AG2:AL2, Zeile 3 in AM2:AR2, usw. bis zur Zeile 38.
Das geht doch sicherlich auch einfacher und geschickter?
Also müßte VBA selbständig den Bereich des Spreadsheets von der ersten Zeile bis zur letzten nichtleeren Zeile in die Zeile 2 meines Tabellenblattes "Kontrolle" ab Zelle AA schreiben.
Mein Code:
Public
Sub Posten()
With Rechnungsmaske.Spreadsheet1
[Kontrolle!AA2] = .Cells(1, 1).Value
[Kontrolle!AB2] = .Cells(1, 2).Value
[Kontrolle!AC2] = .Cells(1, 3).Value
[Kontrolle!AD2] = .Cells(1, 4).Value
[Kontrolle!AE2] = .Cells(1, 5).Value
[Kontrolle!AF2] = .Cells(1, 6).Value
[Kontrolle!AG2] = .Cells(2, 1).Value
[Kontrolle!AH2] = .Cells(2, 2).Value
usw.
End With
End Sub
Gruß Andre