Zeilen einfügen mit vba
31.08.2007 10:55:00
Johenn
hab da ein kleines Problem, möchte mit einem Makro eine Zeile einfügen. Dabei soll die Zeile eingefügt werden und zwar dort wo bestimmter Text steht.
Hab da mal so was rausgegraben aber er bringt mir Fehlermeldung
Dim catg As String
Sub WPS()
catg = "WPS"
Call category
End Sub
Sub WNPI()
catg = "WNPI"
Call category
End Sub
Sub category()
ActiveSheet.Unprotect Password:="car"
Application.Goto Reference:=catg
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Application.Goto Reference:=catg
ActiveCell.EntireRow.Select
Selection.Copy
ActiveCell.EntireRow(-0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Find(What:=catg, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate Selection.FindNext(After:=ActiveCell).Activate
Selection.Replace What:=catg, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Selection.EntireRow.Hidden = False
ActiveSheet.Protect Password:="car"
End Sub
Nun sowei gut und funktioniert aber wenn ich in einer neuen Zelle was schreibe z. B. TEST
dann folgendes einfüge:
Sub TEST()
catg = "TEST"
Call category
End Sub
dann bringt er die Fehlermeldung an dieser Stelle:
Selection.Find(What:=catg, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Was ist da los? jemand Ahnung?