Hey Leute
Ich hab dazu zwar schonmal einen Thread aufgemacht, aber hier nochmal mit konkreter Fragestellung.
Wie kann ich einen String in seine Einzelteile in VBA zerlegen?
Also wenn ich in einer Zelle hinter dem normalen geschriebenen eine Klammer habe, dann soll das Vordere durch die Klammer ersetzt werden.
Also wenn x (y) --> y
Und wenn nur x dasteht, dann soll es so bleiben.
Das ist der Quellcode:
Sub Chemie ()
Dim intRow as Integer
For intRow = 1 too 200
If Cells (intRow,1) = "x(y)"
Then Cells (intRow,1)=y
Else Cells (intRow,1)=Cells(intRow,1)
Next intRow
End Sub
Ich hab dazu zwar schonmal einen Thread aufgemacht, aber hier nochmal mit konkreter Fragestellung.
Wie kann ich einen String in seine Einzelteile in VBA zerlegen?
Also wenn ich in einer Zelle hinter dem normalen geschriebenen eine Klammer habe, dann soll das Vordere durch die Klammer ersetzt werden.
Also wenn x (y) --> y
Und wenn nur x dasteht, dann soll es so bleiben.
Das ist der Quellcode:
Sub Chemie ()
Dim intRow as Integer
For intRow = 1 too 200
If Cells (intRow,1) = "x(y)"
Then Cells (intRow,1)=y
Else Cells (intRow,1)=Cells(intRow,1)
Next intRow
End Sub