leere zeile finden und dann erst einfügen
Hoppe
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man es hin, dass eine Schleife die leeren Zeilen erkennt und erst dann die Einfügung vornimmt?
LG und Danke Marco
Sub Kopieren()
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim arQuelle As String, arZiel As String 'Definition der ARRAY-Variablen
Dim lngT As Long 'Schleifenzähler für den Durchlauf durch das ARRAY
'Tabellenblätter in Objektvariablen speichern :
Set wsQuelle = Sheets("Tabelle1") 'Quelle : Sheet "Tabelle1"
Set wsZiel = Sheets("Tabelle2") 'Ziel : Sheet "Tabelle2"
'Hier werden die Bereichsadressen in die ARRAY-Variablen gefüllt :
arrQuelle = Array("A3:XYZ1000") 'Quellbereich des Sheet "Tabelle1"
arrZiel = Array("A3:XYZ1000") 'Zielbereiche des Sheets "Tabelle2"
'Schleife vom ersten bs zum letzten Bereich des ARRAYs :
For lngT = LBound(arrQuelle) To UBound(arrQuelle)
wsQuelle.Range(arrQuelle(lngT)).Copy 'Zellen kopieren
wsZiel.Range(arrZiel(lngT)).PasteSpecial xlPasteValues 'Werte einfügen
Next
End
Sub