Hallo
ich bin neu im Forum und Anfänger.
Nach vielen ,vergeblichen Versuchen wende ich mich nun , mit meinem Problem , an das Form.
Ich habe eine Excel-Tabelle mit einigen hundert Zeilen. Diese Zeilen enthalten Namen und dazu gehörige Informationen.
Diese Tabelle enthält auch Leer-Zeilen
z.B. Heinrich BACH (1311-1362) Ratsherr, Stadtpfleger (Generation 20)
oder Heinrich BACH (1280-1334) Bürgermeister (Generation 21)
Nun möchte ich die Berufsangaben aus dieser Zeile entfernen und durch ein Komma ersetzen." ) Ratsherr, Stadtpfleger ( "
Da die Anzahl der Buchstaben in jeder Zeile unterschiedlich ist ,versuche ich es mit dem Platzhalter " * ".
Mein letzter , misslungener Versuch sieht so aus:
Sub SuchenErsetzen()
Dim alteZeile, suchen, ersetzen, neueZeile
suchen = ")*("
ersetzen = ","
For i = 1 To 620
If Cells(i, 2).Value <> Empty Then alteZeile = Cells(i, 2).Value
neueZeile = Replace(alteZeile, suchen, ersetzen)
Next i
End Sub
Kennt jemand die Lösung !?
Gruß
baxbo
*Topic verschoben*
ich bin neu im Forum und Anfänger.
Nach vielen ,vergeblichen Versuchen wende ich mich nun , mit meinem Problem , an das Form.
Ich habe eine Excel-Tabelle mit einigen hundert Zeilen. Diese Zeilen enthalten Namen und dazu gehörige Informationen.
Diese Tabelle enthält auch Leer-Zeilen
z.B. Heinrich BACH (1311-1362) Ratsherr, Stadtpfleger (Generation 20)
oder Heinrich BACH (1280-1334) Bürgermeister (Generation 21)
Nun möchte ich die Berufsangaben aus dieser Zeile entfernen und durch ein Komma ersetzen." ) Ratsherr, Stadtpfleger ( "
Da die Anzahl der Buchstaben in jeder Zeile unterschiedlich ist ,versuche ich es mit dem Platzhalter " * ".
Mein letzter , misslungener Versuch sieht so aus:
Sub SuchenErsetzen()
Dim alteZeile, suchen, ersetzen, neueZeile
suchen = ")*("
ersetzen = ","
For i = 1 To 620
If Cells(i, 2).Value <> Empty Then alteZeile = Cells(i, 2).Value
neueZeile = Replace(alteZeile, suchen, ersetzen)
Next i
End Sub
Kennt jemand die Lösung !?
Gruß
baxbo
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()