Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
PHP preg_match und preg_replace mit Excell VBA ??
zurück: das muss vereinfachbar sei bzw wie kann ich das denn v..... weiter: Hyperlink Objekt - Fehler nicht nachvollziehbar Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
@c1d
Im Profil kannst Du frei den Rang ändern


Verfasst am:
17. Jan 2006, 14:22
Rufname:
Wohnort: Essen

PHP preg_match und preg_replace mit Excell VBA ?? - PHP preg_match und preg_replace mit Excell VBA ??

Nach oben
       

Hallo Leute,

folgendes Problem:
Ich habe eine Liste mit Werten (klar) sehen
etwa wie folgt aus:

09222213
03121222_ST
04342344_ST
02323232_00
02321312_ABCD
02321312_AGTF

Die werte stehen bei mir in Spalte B !
Nun möchte ich mit einer Funktion z.B. das _ST gegen "" ersetzen,
was so für mich mit der Replace()-Funktion recht einfach war.
Ich will aber immer wenn der das KEYWORD "_ST" findet dieses in die Spalte A daneben eintragen damit mann diesen Wert noch hat.
Mit left()right() kann ich das vergessen da sich die Werte vor und nach dem _ ändern können und keine feste Zeichenanzahl haben.

Diese 2 Wege habe ich schon probiert:

einmal nur mit der Range("B:B").Replace() Methode die mir allerdings leider vorne die Nullen abschneidet und aus den Textfeldern Standardfelder macht. Und wie hier:

Code:


Sub pregmatch_replace()
Dim Bereich As Range
Set Bereich = ActiveSheet.UsedRange
keyword = InputBox("Suchbegriff eingeben", "preg_replace")
For i = 1 To Bereich.Rows.Count
    Range("B:B").Find(What:=keyword, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Offset(0, -1) = keyword
    Cells(i, 2) = Replace(Cells(i, 2), keyword, "")
Next i
End Sub


Leider klappt der 2te Versuch auch nicht Smile
der hängt sich immer bei der .Find() Funktion weg Sad !!
Wenn ich oben On Error Resume Next reinschreibe
ersetzt der alle Sachen so wie es sein soll. Aber der schreibt nur bei dem ersten Fund das "_ST" in Spalte A.

Für Hilfe wäre ich sehr dankbar ?!

P.S. An den Forumadmin. Tut mir leid wenn ich nicht genau wußte wohin mit dieser Frage Confused! Und lob an eure tolle Arbeit.
Kuwe
Excel-Anwender mit VBA


Verfasst am:
17. Jan 2006, 15:51
Rufname: Uwe


AW: PHP preg_match und preg_replace mit Excell VBA ?? - AW: PHP preg_match und preg_replace mit Excell VBA ??

Nach oben
       

Hallo Thomas,

probiere mal das:

Code:
Sub pregmatch_replace()
  Dim strWas As String
  Dim rngSuchbereich As Range
  Dim rngZ As Range
  strWas = InputBox("Suchbegriff eingeben", "preg_replace")
  If Len(strWas) Then
    Set rngSuchbereich = ActiveSheet.Columns(2).Cells.SpecialCells(xlCellTypeConstants)
    If Not rngSuchbereich Is Nothing Then
      For Each rngZ In rngSuchbereich
        If InStr(1, rngZ.Value, strWas) Then
          rngZ.Value = Application.WorksheetFunction.Substitute(rngZ.Value, strWas, "")
          rngZ.Offset(0, -1).Value = strWas
        End If
      Next rngZ
    End If
  End If
End Sub

_________________
Gruß Uwe
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zellbezug in Excell zeigt Quelle nicht Zellinhalt 13 Alexanderl 3037 20. Aug 2013, 09:11
Gast76 Zellbezug  in Excell zeigt Quelle nicht Zellinhalt
Keine neuen Beiträge Excel Formeln: Excell Mittelwert 6 Clark Kent 183 18. Apr 2013, 00:56
Clark Kent Excell Mittelwert
Keine neuen Beiträge Excel Formeln: Excell hilfe 3 mythi 105 22. März 2013, 16:21
< Peter > Excell hilfe
Keine neuen Beiträge Excel Formeln: Excell - bedingte Summe 5 J.-P. 213 09. Mai 2012, 10:22
J.-P. Excell - bedingte Summe
Keine neuen Beiträge Excel VBA (Makros): Excell arbeitet sheets nicht der reihe nach ab 3 Gast 189 17. März 2011, 20:30
Gast Excell arbeitet sheets nicht der reihe nach ab
Keine neuen Beiträge Excel Formeln: Excell 1 eso 174 22. Jan 2011, 06:56
FCH Excell
Keine neuen Beiträge Excel VBA (Makros): Zahlenwert in Excell mit Pfeiltasten erhöhen bzw. verringern 3 itszwicki 1200 05. Sep 2010, 11:00
hddiesel Zahlenwert in Excell mit Pfeiltasten erhöhen bzw. verringern
Keine neuen Beiträge Excel Formeln: Excell - Wenn-dann-Funktion mit mehreren Variablen 9 italysan 1628 17. Nov 2009, 15:50
xlDominik Excell - Wenn-dann-Funktion mit mehreren Variablen
Keine neuen Beiträge Excel VBA (Makros): Wie kann ich in Vba excell zum drucken nach Optionen wählen 5 tijda 488 11. Nov 2008, 14:31
Bamberg Wie kann ich in Vba excell zum drucken nach Optionen wählen
Keine neuen Beiträge Excel Formeln: Wie prüft Excell, ob die Zahlen in einer Spalte in einer and 2 LoWi 602 01. Jul 2008, 15:26
LoWi Wie prüft Excell, ob die Zahlen in einer Spalte in einer and
Keine neuen Beiträge Excel Formeln: Feld aus Excell Datei importieren 2 Sunny1 382 28. Jun 2008, 12:08
Sunny1 Feld aus Excell Datei importieren
Keine neuen Beiträge Excel Formeln: Zeilen und Spalten mit anderen Excell Tabellen verknüpfen 5 Sascha Gast 4970 22. Jun 2008, 22:17
BIG_RizZ Zeilen und Spalten mit anderen Excell Tabellen verknüpfen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA