Guten Tag Zusammen
Ich hab da ein kleines Problem mit VBA an dem ich schon ne weile Hänge..
http://www.bilder-hochladen.net/files/kd8f-1-c4ca-jpg-rc.html
Auf dem Bild oben seht ihr meine Exceltabelle. Mein Ziel ist, dass alle Zeilen die den String "Window_Closed" enthalten gelöscht werden.
Ich habe mir überlegt dass ich ich mit Find & einem Count zuerst mal die Anzahl an Zeilen über die Gesamte Arbeitsmappe herausfinde und danach diese Zeilen dann lösche.
Unten seht ihr mal den Code denn ich versucht habe zusammen zu basteln.. Aber ohne Erfolg. Ich stehe eben noch am Anfang von VBA und komme nicht so ganz vorwärts... Es gibt zwar in Google den einen oder anderen Beispielcode, aber ich bin nicht wirklich im stande diese anzupassen...
Ich hoffe ich konnte einigermassen klar machen was mein Ziel ist. Ansonstend fragt einfach.
Freundliche Grüsse
Alexander
Sub Suche()
'
' Suche
Dim ws As Worksheet
Dim lCount As Long
Dim rFoundCell As Range
'
Set rFoundCell = ws.Range("B2")
For Each ws In ActiveWorkbook.Worksheets
For lCount = 1 To WorksheetFunction.CountIf(ws.Range("B1"), "<>")
Set rFoundCell = Columns(1).Find(What:="WINDOW_CLOSED", After:=rFoundCell, _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
'Cells.Find(What:="WINDOW_CLOSED", After:=ActiveCell, LookIn:=xlFormulas, _
'LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
'MatchCase:=False, SearchFormat:=False).Activate
Next ws
End Sub
|