|
Hallo zusammen,
ich bin dabei meine ersten Erfahrungen mit VBA zu sammeln und hänge momentan an folgendem Problem.
Ich möchte ein Makro schreiben, dass unter anderem in einer bestimmten Spalte (P) prüfen soll, ob die Zelle gefüllt ist oder nicht.
Wenn die Zelle befüllt ist, soll die komplette Zeile kopiert und in einem anderen Datenblatt eingefügt werden.
Soweit mein Ansatz:
Sub zeile_kopieren()
Range("P2").Select
For I = 1 To Range("P2").CurrentRegion.Rows.Count - 1
If ActiveCell.Value <> " " Then---------->
ActiveCell.EntireRow.Select
Selection.Copy
Sheets("Tabelle2").Select
Range("A1").Select
Selection.Insert Shift:=xlDown
Sheets("´Tabelle").Select
Else
ActiveCell.Offset(1,0).Select
End If
Next
End Sub
Momentan besteht mein Hauptproblem darin, dass das (vorläufige) Makro alle Zeilen kopiert, egal ob in irgendeiner Zeile in Spalte P eine Zelle gefüllt ist oder nicht. (Abgesehen davon, bricht das Makro mittendrin bei einer leeren Zeile ab).
Wenn ich "" ohne Leerzeichen im code schreibe, macht das Makro gar nichts.
Würde mich freuen wenn mir jemand eine Hinweis geben kann.
Gruß
Tim
|