Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeichenfolge suchen und benachbarte Inhalt löschen

Forumthread: Zeichenfolge suchen und benachbarte Inhalt löschen

Zeichenfolge suchen und benachbarte Inhalt löschen
03.06.2006 10:18:03
Frank
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeichenfolge suchen und benachbarte Inhalt löschen
03.06.2006 18:44:30
Herbert
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
Anzeige
AW: Zeichenfolge suchen und benachbarte Inhalt lös
05.06.2006 17:39:27
Frank
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
Anzeige
AW: Zeichenfolge suchen und benachbarte Inhalt lös
05.06.2006 21:32:42
Herbert
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
Anzeige
AW: Zeichenfolge suchen und benachbarte Inhalt lös
08.06.2006 11:23:04
Frank
Danke nochmals für die Hilfe.
Klappt super.
Danke, Dank, Danke
Gruß Frank
;

Forumthreads zu verwandten Themen

Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Anzeige
Formel, rechts #### bis leer Zeichen
mehmet

Hallo Forum,
in Zelle B2 habe ich z.B. "ABC 314 " stehen.
Nun möchte ich in Zelle D2 folgende String darstellen:
zähle von links vier Strings nach rechts "ABC "
mache aus "314 " nun eine vierstellige Zahl "0314 "
entferne die zwei Leerzeichen nach der Zahl "0314 ", so da...
16.09.2008 10:46:00
Thread-ID: 1009991
8 Beiträge
zahlen in zeichenkette suchen und wert zurück gebe
gatewax

Hallo,
ich habe einen Spaltenbereich xy der verschiedene Werte aus Zahlen und Texten enthält. (Bsp Asdf0001, B/123_sdf, usw.)
nun habe ich in einer weiteren spalte z zahlen stehen welche in dem spaltenbereich xy (unabhängig ob alleinstehen oder in Textkombination) vorkommen.
ich suc...
27.11.2008 08:22:20
Thread-ID: 1028208
3 Beiträge
Leerzeichen links aus TextBox entfernen
Lenni

Moin Excellianer!
Wie kann man in einer TextBox (in einem UserForm) Leerzeichen links des ersten Wortes so rausfiltern, dass der TB-Eintrag wirklich mit einem Zeichen beginnt? ...und keinem Leerzeichen.
Vielen Dank für Eure Hilfe!
Viele Grüße aus dem hohen Norden!
Lenni
19.02.2009 21:58:00
Thread-ID: 1052293
5 Beiträge
Anzeige
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Wenn feste Zeichenfolge in Textbox, dann...
Lenni

Moin Excellianer!
Im Archiv finde ich leider nichts Vergleichbares und mit der InStr-Funktion setze ich mich auch schon bezüglich meiner Fragestellung auseinander. Komme aber leider zu keinen Ergebnissen.
In einem UserForm1 steht in der Textbox1 ein beliebiger Text von beliebiger Länge....
27.04.2009 22:31:44
Thread-ID: 1071497
3 Beiträge
Anzeige
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Alle Leerzeichen vorne und hinten löschen?
Selma

Hallo Leute,
wie kann ich per VBA für die markierten Zellen alle Leerzeichen des Zellinhalts vorne und hinten löschen?
Viele Grüße,
Selma
04.08.2009 10:23:57
Thread-ID: 1093411
3 Beiträge
Anzeige
letzte zeichen entfernen
Frank

hallo,
wie muss der Code lautetn wenn ich in einer Textbox in einer Userform vom eingetragenem Text die letzen 2 Zeichen löschen möchte sobald 20 Zeichen erreicht sind?
meine idee dazu ist: Private Sub TextBox1_Change() If Len(TextBox1) > 20 Then TextBox1 = Left(TextBox1) - 1 UserFor...
07.08.2009 11:05:20
Thread-ID: 1094231
8 Beiträge
zeichen finden und löschen
patrick

hi,
ich bräuchte wieder mal die geschätzte hilfe dieses forums.
ich hab ein rießen excelfile in dem telefonnummern drinstehen. (spalte D)
und bräuchte eine möglichkeit um dort invalide datensätze rauszulöschen.
ich will dort wirklich nur die reinen zahlen drin stehen haben. oh...
30.09.2009 14:25:13
Thread-ID: 1106441
4 Beiträge
Zeichen vor Namen entfernen
Michael

Hallo,
ich habe eine Datei mit etlichen Namen. Vor jedem Namen steht allerdings folgendes Zeichen:'
Also praktisch so 'Peter Müller
Die Zeichen sind in der Übersicht nicht zu sehen, wenn ich jedoch eine Zelle anklicke ist das Zeichen zu sehen. Kann mir jemand sagen, wie ich die Ding...
14.10.2009 15:07:15
Thread-ID: 1109601
6 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige