Hallo Sandra,
ich hoffe, es geht Dir auch gut, die Anfrage ist etwas ungewöhnlich. Trotzdem:
Sub sonderbar()
Dim zeile As Long, found As Object, firstaddr As String
With ActiveSheet
'1. Lösche alle Zeilen im gesamten Arbeitsblatt wo die Zellen in Spalte A leer sind.
For zeile = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If IsEmpty(.Cells(zeile, 1)) Then .Rows(zeile).Delete shift:=xlUp
Next zeile
'2. Überschreibe den Inhalt in A2 mit "Apfel"
.Range("A2") = "Apfel"
'3. Überschreibe den Inhalt in B2 mit "Birne"
.Range("B2") = "Birne"
'4. Suche im gesamten Arbeitsblatt nach dem Wort "Hund". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
Do
Set found = .Cells.Find(what:="Hund", lookat:=xlWhole, LookIn:=xlValues)
If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
Loop Until found Is Nothing
'5. Suche im gesamten Arbeitsblatt nach dem Wort "Katze". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
Do
Set found = .Cells.Find(what:="Katze", lookat:=xlWhole, LookIn:=xlValues)
If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
Loop Until found Is Nothing
'6. Suche im gesamten Arbeitsblatt nach dem Wort "Maus". Falls das Wort gefunden wurde, lösche dann die gesamte Spalte.
Do
Set found = .Cells.Find(what:="Maus", lookat:=xlWhole, LookIn:=xlValues)
If Not found Is Nothing Then .Columns(found.Column).Delete shift:=xlToLeft
Loop Until found Is Nothing
'7. Suche im gesamten Arbeitsblatt nach dem Wort "Frösch" und ersetze es jedes mal durch das Wort "Frosch".
Do
Set found = .Cells.Find(what:="Frösch", lookat:=xlPart, LookIn:=xlValues)
If Not found Is Nothing Then .Range(found.Address) = Replace(.Range(found.Address).Text, "Frösch", "Frosch")
Loop Until found Is Nothing
End With
End Sub
Gruß der AlteDresdner
|