Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1600to1604
1600to1604
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen und Ersetzen mit variablen Inhalt

Forumthread: Suchen und Ersetzen mit variablen Inhalt

Suchen und Ersetzen mit variablen Inhalt
05.01.2018 12:54:51
dove
Hallo zusammen,
ich habe ein kleines Problem und hoffe ihr könnt mir helfen.
Ich würde gerne mit folgendem Code nach einer bestimmten Spalte "SNDCMPS" suchen und in dieser Spalte nach einer Versionsnummer suchen und diese ersetzen / löschen.
DIe Versionsnummer ist folgendermaßen aufgabaut: [VXX]
Die XX stehen für Zahlen die beliebig sein können.
Ich steh grad auf dem Schlauch, was ich eingeben muss, damit er die beliebige Zahl nach dem V mitlöscht.
Sub DeleteVersionNumber()
Dim ColName As Range
Set ColName = ThisWorkbook.Worksheets(wbkZiel.Sheets.Count).Rows(1).Find(what:=SNDCMPS, lookat:= _
_xlWhole)
If ColName Is Nothing Then
MsgBox "Spalte konnte nicht gefunden werden!"
Else
ColName.EntireColumn.Select
Selection.Replace what:=" ", Replacement:=" ", lookat:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End If
End Sub

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: immer [Vxx]? owT
05.01.2018 14:12:45
Fennek
AW: immer [Vxx]? owT
05.01.2018 14:38:00
dove
Hallo Fennek,
[VXX] steht ja nicht in den Zellen, sondern [V21], [V77] usw. Deswegen habe ich ja darauf hingewiesen, dass es beliebige Zahlen sein können.
LG
AW: like "V##"
05.01.2018 14:53:13
Fennek
nicht präzise genug!
teste, ob

msgbox Range("A1") like "*~[V##~]*"
"Wahr" ergibt. Als Range muss eine geeignete Zelle gewählt werden.
mfg
Anzeige
AW: kleiner Test
05.01.2018 15:30:56
Fennek
Hallo,
mit "like" hat es nicht geklappt, aber mit der "Echse". Mein Code zum Testen:

'asdh [V12] djasi
Sub Rex()
Dim Tx As String
Tx = Cells(1, 1)
Neu = "34"
With CreateObject("vbscript.regexp")
.Pattern = "(\[V)(\d{2})(\])"
If .test(Tx) Then
Tx = .Replace(Tx, "$1" & Neu & "$3")
End If
End With
Debug.Print Tx
End Sub
Kannst Du das in deine Suche einbauen?
mfg
Anzeige
AW: komplet
05.01.2018 15:48:57
Fennek
Hallo,
der Code sollte die Frage beantworten. Zur Prüfung wird das Ergebnis in die nächste Spalte geschrieben. Wenn alles passt, einfach das "offset" löschen.

Function Rex(rng As Range) As String
Tx = rng.Value
Neu = "34"
With CreateObject("vbscript.regexp")
.Pattern = "(\[V)(\d{2})(\])"
If .test(Tx) Then
Tx = .Replace(Tx, "$1" & Neu & "$3")
End If
End With
Debug.Print Tx
Rex = Tx
End Function
Sub dove()
Such = "SNDCMPS"
Col = WorksheetFunction.Match(Such, Rows(1), 0)
For Each ar In Columns(Col).SpecialCells(2, 2).Areas
Debug.Print ar.Address
ar.Cells(1).Offset(, 1) = Rex(ar.Cells(1))
Next ar
End Sub
Es wurde angenommen, dass nicht in zwei Zeilen untereinander Treffet sind.
mfg
Anzeige
AW: komplet
05.01.2018 17:17:24
dove89
Hallo Fennek,
ich habe deinen Code nicht ausprobiert, da deine Annahme unzutreffend war. Ich hätte erwähnen sollen, dass in so gut wie in jeder Zeile in der Spalte eine Versionsnummer steht.
Kannst du deinen Code dementsprechend anpassen?
Danke.
LG
AW: untested
05.01.2018 17:46:45
Fennek 

Sub dove()
Such = "SNDCMPS"
Col = WorksheetFunction.Match(Such, Rows(1), 0)
For i = 2 to cells(rows.count, Col).end(xlup).row
cells(i, Col) = Rex(ar.Cells(i, Col))
Next ar
End Sub

Anzeige
AW: untested (Korrektur)
05.01.2018 20:01:28
Fennek 

Sub dove()
Such = "SNDCMPS"
Col = WorksheetFunction.Match(Such, Rows(1), 0)
For i = 2 to cells(rows.count, Col).end(xlup).row
cells(i, Col) = Rex(Cells(i, Col))
Next i
End Sub

;

Forumthreads zu verwandten 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
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
Exceltabelle durch userform ersetzen
Peter

Hallo
ich habe im Internet einen Funktion zur Steuerberechnung gefunden und möchte diese in meine Datei ein binden.
In der Funktion sind die eingabe Felder mit den Zeilen und Spalten Bsp. B2 bezeichnet.
jetz habe ich meine Userform erweitert um Comboboxen und zur Eingabe und Label z...
28.09.2008 19:00:00
Thread-ID: 1012973
6 Beiträge
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
Anzeige
Txt - Text suchen und ersetzen VBA
Stevie

Hie zusammen,
ich hoffe mir kann hier jemand helfen, ich habe einen Code aus dem Internet (oder sogar von der Seite hier) und den muss ich leider ein bisschen anpassen. Der Code sucht in einer Textdatei nach einer bestimmten Zeichenfolge STxtA und ersetzt diesen Text durch STxtB. Soweit so...
30.10.2008 13:09:28
Thread-ID: 1020573
3 Beiträge
Anzeige
Spalte durchsuchen und Werte ausgeben
Sebi

Moin moin zusammen,
ich habe folgendes Problem: Ich habe in einer Spalte mehrere gleiche bzw. verschiedene Werte stehen (siehe Beispiel unten). Ich möchte nun diese Spalte durchsuchen und mir alle verschiedenen Werte in einer seperaten tabelle ausgeben lassen. Ich habe das ganze versucht mi...
05.11.2008 11:27:54
Thread-ID: 1021806
4 Beiträge
in Zeile oder Spalte Wert suchen
Lars

Hallo,
ich habe eine Zeile in der z.B. B1 B2 B3 usw. stehen.
Gibt es eine einfache Möglichkeit nach der Spalte zu suchen, in der z.B. B2 steht. Derzeit versuche ich es über eine komplizierte If-Abfrage.
Ich habe auch die Worksheetfunction "search" gefunden, weiß aber nicht, wie sie...
12.11.2008 11:12:43
Thread-ID: 1023752
7 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge
Anzeige
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Suchen und Ersetzen von Versionsnummern in Excel

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Datei, in der Du die Versionsnummern ersetzen möchtest.

  2. Öffne den VBA-Editor mit ALT + F11.

  3. Füge ein neues Modul ein:

    • Rechtsklick auf „VBAProject (DeinWorkbookName)“ -> Einfügen -> Modul.

  4. Kopiere den folgenden Code in das Modul:

    Sub DeleteVersionNumber()
   Dim ColName As Range
   Set ColName = ThisWorkbook.Worksheets(1).Rows(1).Find(what:="SNDCMPS", lookat:=xlWhole)
   If ColName Is Nothing Then
       MsgBox "Spalte konnte nicht gefunden werden!"
   Else
       ColName.EntireColumn.Select
       Selection.Replace what:=" [V##]", Replacement:=" ", lookat:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
   End If
End Sub

  5. Passe den Code an, falls Du eine andere Spalte als „SNDCMPS“ verwenden möchtest.

  6. Führe das Skript aus, indem Du im VBA-Editor auf „Run“ klickst oder F5 drückst.

Häufige Fehler und Lösungen

  • Fehler: „Spalte konnte nicht gefunden werden!“

    • Lösung: Stelle sicher, dass die Spalte „SNDCMPS“ tatsächlich existiert und richtig geschrieben ist.

  • Fehler: Keine Ersetzung erfolgt.

    • Lösung: Überprüfe, ob die Versionsnummern im Format [VXX] vorliegen und dass Du die Platzhalter im Code richtig ersetzt hast.

Alternative Methoden

Eine alternative Methode zur Bearbeitung von Versionsnummern ist die Verwendung von regulären Ausdrücken. Hier ist ein Beispiel:


Sub ReplaceVersionWithRegex()
    Dim Tx As String
    Dim Neu As String
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")

    Neu = "34" ' Neue Versionsnummer
    regex.Pattern = "\[V\d{2}\]"

    For i = 2 To Cells(Rows.Count, "SNDCMPS").End(xlUp).Row

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige