Microsoft Excel

Herbers Excel/VBA-Archiv

Zeichenfolge suchen und benachbarte Inhalt löschen

Betrifft: Zeichenfolge suchen und benachbarte Inhalt löschen von: Frank
Geschrieben am: 03.06.2006 10:18:03

Hallo, ich benötige mal wieder eure Hilfe.
Ist es möglich mit einem Makro in Spalte A nach eine bestimmten Zeichenfolge z.B.Besucher zu suchen
und den Inhalt selbst und den Inhalt der zwei darüberliegenden Zellen und der zwei darunterliegenden Zellen zu löschen?
Diese Zeichenfolge kommt in der Spalte mehrmals vor.

In einen zweiten Makro eine andere Zeichenfolge in Spalte A "z.B. BesucherNeu" zu suchen und den Inhalt
der übernächsten Zelle in die Zelle rechts neben "BesucherNeu" zu kopieren. Also in Spalte B genau daneben.

Für eure Hilfe wäre ich dankbar.

Mit freundlichen Gruß
Frank

  


Betrifft: AW: Zeichenfolge suchen und benachbarte Inhalt löschen von: Herbert H.
Geschrieben am: 03.06.2006 18:44:30

hallo Frank,
so könnt's funktionieren...


Public Sub besucher_löschen()
Dim spalteA, i&
spalteA = Sheets(1).Columns("A")
For i = 1 To UBound(spalteA, 1)
     If spalteA(i, 1) = "Besucher" Then
        spalteA(i - 2, 1) = ""
        spalteA(i - 1, 1) = ""
        spalteA(i, 1) = ""
        spalteA(i + 1, 1) = ""
        spalteA(i + 2, 1) = ""
     End If
Next
Sheets(1).Columns("A") = spalteA
End Sub

Public Sub besucherNeu()
Dim spAB, i&
spAB = Sheets(2).Columns("A:B")
For i = 1 To UBound(spAB, 1)
     If spAB(i, 1) = "BesucherNeu" Then
        spAB(i, 2) = spAB(i + 2, 1)
     End If
Next
Sheets(2).Columns("A:B") = spAB
End Sub


     gruß Herbert


  


Betrifft: AW: Zeichenfolge suchen und benachbarte Inhalt lös von: Frank
Geschrieben am: 05.06.2006 17:39:27

Danke Herbert,
klappt soweit ganz gut. Kann bei Deinem Makro aber nur nach einer eindeutigen
Zeichenfolge suchen. Es sind aber noch Zeichen davor und dahinter. Dachte mit Platzhalter klappt es, geht aber nicht. Wußte ich nicht, darum habe ich es nicht mit beschrieben. Muß ich vorher alles umschreiben.

Vielen Dank für die Hilfe

Gruß Frank


  


Betrifft: AW: Zeichenfolge suchen und benachbarte Inhalt lös von: Herbert H.
Geschrieben am: 05.06.2006 21:32:42

dann probier's so:


Public Sub besucher_löschen()
Dim spalteA, i&
spalteA = Sheets(1).Columns("A")
For i = 1 To UBound(spalteA, 1)
     If InStr(1, spalteA(i, 1), "Besucher"Then
        spalteA(i - 2, 1) = ""
        spalteA(i - 1, 1) = ""
        spalteA(i, 1) = ""
        spalteA(i + 1, 1) = ""
        spalteA(i + 2, 1) = ""
     End If
Next
Sheets(1).Columns("A") = spalteA
End Sub


     gruß Herbert


  


Betrifft: AW: Zeichenfolge suchen und benachbarte Inhalt lös von: Frank
Geschrieben am: 08.06.2006 11:23:04

Danke nochmals für die Hilfe.
Klappt super.
Danke, Dank, Danke
Gruß Frank


 

Beiträge aus den Excel-Beispielen zum Thema "Zeichenfolge suchen und benachbarte Inhalt löschen"