Herbers Excel-Forum - das Archiv

Zeichenfolge suchen und benachbarte Inhalt löschen

Bild

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
Bild

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
Bild

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
Bild

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
Bild

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
 Bild
Excel-Beispiele zum Thema "Zeichenfolge suchen und benachbarte Inhalt löschen"
Summe bilden, wenn Kriterium Zeichenfolge Zeichenfolge aufteilen
Filtern einer Zahl aus einer Zeichenfolge Zeichenfolgen in Zahlen nach Textimport
Zeichenfolge korrigieren Zeichenfolge umkehren
Zeichenfolge in Wert wandeln Zeichenfolgen zusammenfassen
Zeichenfolge AAAA bis DDDD listen Zellinhalt suchen und Zelle auswählen