Replace oder ähnliches
30.12.2020 11:19:21
Mike
ich baue gerade Excel 4 Makros mit VBA nach
Ich hatte den Bereich mit Replace im Web gefunden. Leider ist davor etwas mit 'with' abhanden gekommen und ich finde die Seite nicht mehr.
Was möchte ich machen?
IDA wird der Wert der aktiven Zelle zugeordnet.
(Buchstabe Bindestrich 3 bis 5 Zahlen Buchstabe) Hier z.B. G-049a, kann aber auch S-1234c sein
Von diesem String soll der Buchstabe a oder b oder c (mehr gibt es nicht) gelöscht werden.
Und das in einem Schritt.
Das Ergebnis soll IDN zugewiesen werden, IDA soll den ursprünglichen Wert behalten
IDN soll dann in die Zelle D10 geschrieben werden.
Wenn es eine andere Möglichkeit gibt, kein Problem,
Hauptsache das Ergebnis stimmt.
schon mal Dank im voraus.
Sub Kassenbuch_Load()
'Call unprotect
Dim IDA As String
Dim IDN As String
If ActiveCell.Row >= 16 Then
IDA = Cells(ActiveCell.Row, 5).Value
MsgBox IDA
IDN = ..........
'.Replace "a", "", xlPart
'.Replace "b", "", xlPart
'.Replace "c", "", xlPart
Call Kassenbuch_neu
Cells(10, 4) = IDN
Call Kassenbuch_laden
Else
Exit Sub
End If
'Call protect
End Sub
vg
Mike