Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1084to1088
1084to1088
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit VBA bestimmte Zellen suchen, ersetzen

mit VBA bestimmte Zellen suchen, ersetzen
AndreasK
Hallo zusammen, ich hab folgendes Problem und komm mal wieder nicht weiter.
Ich möchte im aktiven Arbeitsblatt den Inhalt aller Zellen die die Zeichenfolge "gs" enthalten löschen.
Ebenso den Inhalt der 5 benachbarten rechten Zellen.
Wenn also z.B. in der Zelle F17 der Inhalt gs ist soll die Zelle F17 bis K17 geleert werden.
Die Tabelle hat im moment die Größe A1..EN1000 wächst aber noch.
Hoffe auf eure Hilfe.
Grüße Andreas
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 10:34:09
AndreasK
Ich habe diesen Code zurechtgebastelt, löscht halt nur die Zellen mit Inhalt "GS" aber nicht die 5 Zellen rechts daneben. 
Sub Zellen_mit_inhalt_GS_löschen()
ActiveSheet.Select
Range("A1..EN1000").Select
Selection.Replace What:="gs", Replacement:="", LookAt:=xlPart
End Sub
Grüße Andreas
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:06:15
Wolli
Hallo Andreas,
dieses Makro macht das gewünschte im ganzen Arbeitsblatt:
Sub Zellen_mit_Inhalt_gs_löschen()
Dim c As Range
For Each c In ActiveSheet.UsedRange.Cells
If InStr(LCase(c.Value), "gs")  0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
End Sub
Wenn aber "gs" nur in Spalte F auftauchen kann, kannst Du auch dieses Makro verwenden, es dürfte bei großen Datenmengen deutlich schneller sein, da es nicht alle Zeilen untersucht. Die Spalte kannst Du vorgeben: Columns(6) bedeutet Spalte F.
Sub Zellen_mit_Inhalt_gs_löschen2()
Dim c As Range
For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns(6))
If InStr(LCase(c.Value), "gs")  0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
End Sub
Geht's? Gruß, Wolli
Anzeige
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:25:28
AndreasK
Hallo Wolli, danke für die Schnelle Antwort,
Wie es halt so ist habe ich vergessen das die Tabelle geschützt ist und nur die Freigegebenen Zellen geleert / gelöscht werden sollen. Wenn ich dein Makro ausführe kommt die Meldung Laufzeitfehler 1004 Zelle ist schreibgeschützt. In den geschützten Zellen steht teilweise auch "gs", darf dort aber auch nicht gelöscht werden. Vielleicht fällt dir ja noch was ein. PS: in meinem Code kam diese Meldung nicht.
Grüße Andreas
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:30:27
AndreasK
Und nochmal Hallo Wolli,
ich habe eben mal den Blattschutz aufgehoben und jetzt kommt noch eine Fehlermeldung:
Wieder Laufzeitfehler 1004 mit dem Text Kann "Teil einer verbundenen Zelle nicht ändern"
Grüße Andreas
Anzeige
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:42:47
Wolli
Hallo Andreas, dass der Fehler bei Dir nicht kam, liegt daran, dass Dein Code aus der Zelle die Buchstaben "gs" herauslöscht. Mein Code löscht den gesamten Inhalt der Zelle.
Du müsstest jetzt bitte definieren, was passieren soll, wenn
- die Zelle mit "gs" geschützt ist
- eine oder mehrere Zellen daneben geschützt sind
- die Zellen daneben zu einem Zellverbund gehören, der aus dem zu löschenden Bereich herausragt.
Aber vielleicht ist es einfacher, die Fehlermeldung zu ignorieren und das machen zu lassen, was geht. So:
Sub Zellen_mit_Inhalt_gs_löschen()
Dim c As Range
On Error Resume Next
For Each c In ActiveSheet.UsedRange.Cells
If InStr(c.Value, "gs")  0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
On Error GoTo 0
End Sub
bzw.
Sub Zellen_mit_Inhalt_gs_löschen2()
Dim c As Range
On Error Resume Next
For Each c In Intersect(ActiveSheet.UsedRange.Cells, Columns(6))
If InStr(LCase(c.Value), "gs")  0 Then
Range(c, c.Offset(0, 5)).ClearContents
End If
Next c
On Error GoTo 0
End Sub
Gruß, Wolli
Anzeige
AW: mit VBA bestimmte Zellen suchen, ersetzen
10.07.2009 11:57:42
AndreasK
Hallo Wolli,
danke dir vielmals für deine Hilfe.
Läuft wie gewünscht :-)
Ach ja da sieht man mal wieder was man noch so alles lernen und verstehen muß
Grüße
Andreas
Hoffentlich läuft's auch richtig!
10.07.2009 12:19:59
Wolli
Schön dass es geht, aber etwas unbefriedigend. Bist Du sicher, dass das Makro Dir nicht eventuell Daten zerschießt, die Du noch brauchst? Oder dass etwas, das gelöscht werden sollte, übergangen wird? Aber das kann man nur beheben, wenn man sich die Mühe macht, die Bedingungen sauber zu definieren.
Gutes Gelingen, Gruß, Wolli

323 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6