Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1452to1456
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
Inhaltsverzeichnis

Wert in der Arbeitsmappe suchen und Exakte löschen

Wert in der Arbeitsmappe suchen und Exakte löschen
30.10.2015 13:30:55
kay
Schönen guten Tag,
ich habe hier mal was ähnliches gefragt aber hier eine etwas andere Frage:
Ist es möglich ein Makro zu schreiben das:
von "I2"-"Z6000" durchläuft und den wert aus jeder Zelle in der Mappe sucht und Exakte Werte löscht?
Sprich wenn in der Zelle "C" steht löscht er in der ganzen Mappe (oder in einer Spalte falls definierbar) nur "C" das alleine steht und nicht z.b. "Bäcker" wo ja ein C drin ist.
Sprich man arbeitet mit der ersetzen funktion und sagt es darf nur der Zellenwert mit Leerzeichen an beiden seiten gelöscht werden?
Hier ein Screenshot mit erklärung auf englisch :
Userbild

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wert löschen
30.10.2015 13:38:10
Rudi
Hallo,
Sprich man arbeitet mit der ersetzen funktion und sagt es darf nur der Zellenwert mit Leerzeichen an beiden seiten gelöscht werden?
wieso Leerzeichen an beiden Seiten? Dann ist es doch nicht exakt "C".
Und warum per Makro?
Die Ersetzen-Funktion kann das. Ersetze Suchtext durch Nichts.
Gruß
Rudi

AW: Wert löschen
30.10.2015 13:43:08
kay
Hi, ich habe wohl unklar erklärt.
Also ich habe in einer Spalte D knapp 6000 zeilen die mehrere Werte in einer Zelle haben (siehe bild als beispiel.)
Ich habe in I-Z werte (immer genau ein Wert pro zelle) und die möchte ich in meiner Spalte D löschen.
Wenn ich den Wert in z.b. I2 kopiere, strg#h drücke und meinen wert dort angebe mit leerzeichen an beiden seiten zb: " Bäcker " dann ersetzt der mir in D auch nur "Bäcker" und nicht zb "Bäckerlehrling".
Was ich bräuchte wäre ein Makro, dass automatisch macht bis Z8000.

Anzeige
AW: Wert löschen
30.10.2015 14:00:01
Rudi
hallo,
OK.
Sub aaa()
Dim i As Long, j As Long
Dim objText As Object, s
Application.ScreenUpdating = False
Set objText = CreateObject("scripting.dictionary")
For i = 2 To 6000
For Each s In Split(Cells(i, 4))
objText(s) = 0
Next
For j = 9 To 26
If objText.exists(Cells(i, j).Value) Then
objText.Remove (Cells(i, j).Value)
End If
Next
Cells(i, 4) = Join(objText.keys)
objText.RemoveAll
Next i
End Sub

Gruß
Rudi

AW: Wert löschen
30.10.2015 14:14:03
kay
Danke für deine Mühe und Aufwand soweit, bislang löscht das bei mir wie es aussieht nur I2 in D2, I3 in D3 usw, ich möchte aber eher das I2 in ganz oder oder gar in der ganzen Mappe falls nötig gelöscht wird.
und das mit wenns geht allen Werten von I2-Z6000, oder stelle ich mir das einfacher vor als es ist?
(ich merke gerade, es reicht wohl wenn vor dem ersetzwert ein Leerzeichen ist)

Anzeige
...Hast dort aber immer noch nicht abschließend...
31.10.2015 21:09:24
Luc:-?
…geantwortet, Kay! :-|
(2 AWen, von Daniel & mir)
Luc :-?

324 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige