|
Hallo.
Ich soll die Betreuung der Excel-Dateien einer ausscheidenden Kollegin übernehmen, und diese sind mit diversen Makros gespickt. Meist sind diese recht simpel, aber einiges läuft halt mit Bedingen, und ich bi bugl. VBA ein ziemlicher Novize mit quasi Nullll Programmiererfahrung. Ich bitte also vorab um Nachsicht, wenn ich Anfängerfehler mache. Immerhin stelle ich mich der Aufgabe.
zum konkreten Task:
In einem Tabellblatt ("Start"/codename Tabelle2) gibt es in den Splaten a -h diverse Werte, einzelne Felder können leer sein. Alle Daten sollen in einem anderen Tabellenblatt ("Ende"/Tabelle1) erscheinen, leere Zeilen (==> kein Eintrag in Spalte A) sollen am Ende aber gelöscht werden.
Um unerwünschten Namensänderungen vorzubeugen, wollte ich die Blätter über den Codenamen ansprechen, aber das war nich so erfolgreich.
Hier mein Versuch
Sub Tabellekopieren_und_leereZeilenlöschen_mit_FornextSchleife()
Dim i As Integer, lastrow As Integer
Dim ws As Worksheet
ws Tabelle2.Activate
lastrow = ActiveSheet.used.Range.Rows.Count
Range("a1:h & lastrow").Copy
ws Tabelle1.Activate
Range("a1").Insert
==> Damit sollte der relevante Teil der Ausgangstabelle opiert und im Zielblatt eingefügt sein
'leere Zeile löschen
' For i = lastrow To 1 Step -1
' if "a & i" ="" entireRow.delete
'Next i
End Sub
Für Euch vermutlich ein Klacks...
Ich danke Euch sehr
und grüße herzlich
Newbeee
|