VBA-Code tut nichts
strodti
und wieder mal habe ich eine VBA-Frage.
Ich möchte gern alle Zeilen aus Tabelle1, die in Spalte A den Eintrag "a" haben in die Tabelle2 kopieren.
Die zu kopierenden Zellen stehen ab Zelle B2 und sollen in Tabelle2 ab C6 eingefügt werden und zwar so, dass keine Leerzeilen entstehen.
Hierzu habe ich den unten stehenden Code aus dem Netz ermittelt, auf meine Bedürfnisse angepasst (d.h. noch am versuchen), aber bei Codeausführung tut sich nichts! Was mache ich falsch, dass er nichts ausführt und wie muss der Code angepasst sein, damit er obiges tut?
Public Sub sheetaktu()
Dim objRang As Range
Application.ScreenUpdating = False
With ActiveSheet
For Each objRang In .Range(.Cells(2, 1), .Cells(.Rows.Count, 5).End(xlUp))
If (objRang.Text) = "a" Then objRang.EntireRow.Copy _
Destination:=Worksheets("Tabelle2").Cells( _
Worksheets("Tabelle2").Rows.Count, 5).End(xlUp).Offset(3, -4)
Next
End With
Application.ScreenUpdating = True
End Sub
Bereits im Voraus vielen Dank für Eure Hilfe.
MfG
Tobias