Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1928to1932
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
1928to1932
1928to1932
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und ersetzen

suchen und ersetzen
17.05.2023 10:12:59
röhmler

Guten Morgen,

in meiner Stückliste gibt es in Spalte D einige Zeilen (nicht direkt untereinander), die ich durch "Handarbeit" aufteilen müßte. Mit einer Formel habe ich aus den jeweilige Texte benötigte Wörter "herausgefiltert". Da ja leere Zeilen vorkommen, aber die Formel auch diese "mitnimmt" beim herunterziehen, erscheint dann im Ergebnis der Inhalt "#WERT!".
Diesen Inhalt möchte ich gerne löschen bzw. ersetzen durch leer. Händisch konnte ich über "Suchen und Ersetzen" #WERT! löschen bzw. durch leer ersetzen. Aber als Code funktioniert es nicht.
Weiß jemand, was an meinem Code falsch ist?

Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2


10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen und ersetzen
17.05.2023 10:26:21
onur
"Mit einer Formel habe ich aus den jeweilige Texte....."
Diese ändern auf:
WennFehler(AlteFormel;"")


AW: suchen und ersetzen
17.05.2023 10:54:58
röhmler
Wo baue ich hier zusätzlich "WENNFEHLER.." ein?

Sub TEXTtrennen()
'
                        ' Hier wird in Spalte C (3) nach "leere Zelle" gesucht. Bei leerer Zelle wird dann der _
                        Inhalt von Zelle in Spalte D nach Spalte H kopiert!!
                        
Dim i As Long, LeereZelle As String, LastRow As Long
 LeereZelle = ""                                               'hier den String ändern in den Firmenname, der gesucht werden soll !! _
                                                                gross/Kleinschreibung beachten !!
 With ActiveSheet
         LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row       'definiert LastRow auf Basis Spalte C
 End With
 For i = 1 To LastRow
    If Cells(i, 3).Value = LeereZelle Then                      'Sucht in Spalte C nach leerer Zelle
       Cells(i, 8).Value = Cells(i, 4)                          'i, 4 ist Spalte D und i, 8 ist Spalte H
       'Cells(i, 8).ClearContents
    End If
 Next i
 
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],SEARCH(""x"",RC[1])-1)"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:G" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
    Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Select
    ActiveWindow.SmallScroll Down:=-66
    Range(Range("G3"), Range("G3").End(xlDown)).Select
    Selection.Copy
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
  Range(Range("I3"), Range("I3").End(xlDown)).Select
    Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        
 
End Sub


Anzeige
AW: suchen und ersetzen
17.05.2023 11:24:45
röhmler
Danke, jetzt hab ich`s kapiert

=WENNFEHLER(LINKS(H3;SUCHEN("x";H3)-1);"")


Gerne !
17.05.2023 11:26:38
onur
Geht doch!


AW: suchen und ersetzen
17.05.2023 10:41:31
Frank
Hallo,
dir fehlt die Auswahl
Probieremal 

With Columns("A:F").Select 'evtl. Spalten anpassen
Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
         ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2


AW: suchen und ersetzen
17.05.2023 10:48:29
röhmler
Hallo Frank,

NEIN, die Auswahl fehlt nicht.


Anzeige
AW: suchen und ersetzen
17.05.2023 10:49:35
onur
Du brauchst KEIN VBA.


AW: suchen und ersetzen
17.05.2023 10:53:34
röhmler
Nicht,dann muß ich das alles hier von Hand machen????

Sub TEXTtrennen()
'
                        ' Hier wird in Spalte C (3) nach "leere Zelle" gesucht. Bei leerer Zelle wird dann der _
                        Inhalt von Zelle in Spalte D nach Spalte H kopiert!!
                        
Dim i As Long, LeereZelle As String, LastRow As Long
 LeereZelle = ""                                               'hier den String ändern in den Firmenname, der gesucht werden soll !! _
                                                                gross/Kleinschreibung beachten !!
 With ActiveSheet
         LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row       'definiert LastRow auf Basis Spalte C
 End With
 For i = 1 To LastRow
    If Cells(i, 3).Value = LeereZelle Then                      'Sucht in Spalte C nach leerer Zelle
       Cells(i, 8).Value = Cells(i, 4)                          'i, 4 ist Spalte D und i, 8 ist Spalte H
       'Cells(i, 8).ClearContents
    End If
 Next i
 
    Range("G3").Select
    ActiveCell.FormulaR1C1 = "=LEFT(RC[1],SEARCH(""x"",RC[1])-1)"
    Range("G3").Select
    Selection.AutoFill Destination:=Range("G3:G" & Cells(Rows.Count, 1).End(xlUp).Row), Type:=xlFillDefault
    Range("G2:G" & Cells(Rows.Count, 1).End(xlUp).Row).Select
    ActiveWindow.SmallScroll Down:=-66
    Range(Range("G3"), Range("G3").End(xlDown)).Select
    Selection.Copy
    Range("I3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
  Range(Range("I3"), Range("I3").End(xlDown)).Select
    Selection.Replace What:="#WERT!", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
        
 
End Sub


Anzeige
AW: suchen und ersetzen
17.05.2023 11:53:13
Frank
Dann probiere mal 

        Columns("G:G").Select
        Selection.Replace What:="#WERT!", Replacement:="", lookat:=xlWhole, SearchOrder:=xlByRows, _
        MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, _
        FormulaVersion:=xlReplaceFormula2
xlWole für genaue Übereinstimmung
Dann wird die gesamte Spalte durchsucht.


AW: suchen und ersetzen
17.05.2023 11:56:30
röhmler
Danke für Deine Mühen, habe die Formel so geschrieben, dass #WERT! nicht mehr "auftaucht".

=WENNFEHLER(LINKS(H4;SUCHEN("x";H4)-1);"")

312 Forumthreads zu ähnlichen Themen

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
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 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
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Gleiche Eintäge in einer Spalte nacheinander finde
Malcolm_p

Hallo zusammen!
Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat...
15.10.2008 23:08:59
Thread-ID: 1016705
5 Beiträge
Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 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
4
8
1
7
5
4
2
4
16
10
2
3
6
8
4
2
3
4
2
15
10
5
1
5
3