Hallo VBA-USer,
Ich bin ein blutiger VBA-Anfänger und habe deshalb Probleme in der Codeumsetzung meines Problems...
Ich möchte die Zeileneinträge (Ab Zeile 2) aus Spalte A aus dem Worksheet("Maschinen") in die Spalte B des Worksheets("MB KW") ab Zeile 7 eintragen. Damit dies keine Endlosschleife wird, habe ich mir gedacht vor dem Kopiervorgang den letzten Zeileneintrag aus dem Worksheet("Maschinen") zu bestimmen. Mein bisheriger Code lautet:
Dim LetzteZelleSpalte As Long
Dim zähler As Long
LetzteZelleSpalte = Worksheets("Maschinen").Cells(Rows.Count, 1).End(xlUp).Row // Bestimmung des letzten Zeileneintrag
LetzteZelleSpalte = LetzteZelleSpalte - 1 // "-1" , weil erste Zeile (Spaltenbeschreibung) mitgezählt wird
For zähler = 1 To LetzteZelleSpalte
Worksheets("Maschinen").Range("A" & zähler).Select Selection.Copy
Worksheets("MB KW").Range("B7").Select
Worksheets("MB KW").Range("B7").Paste
Next zähler
Es ist ersichtlich, dass ich zunächst versucht habe den Kopiervorgang zu implementieren und dementsprechend eine Fallunterscheidung (If-Anweisung), ob die Zelle, in der die Daten kopiert werden sollen, kein Text enthält, noch nicht berücksichtigt habe.
Vielen Dank für Eure Hilfe!
|