Einzelnen Beitrag anzeigen
Alt 20.02.2018, 10:19   #5
Ausgeheckt
Neuer Benutzer
Neuer Benutzer
Standard String Anfangs oder Letes Zeichen entfernen Wenn ...

Hallo zusammen, ich hoffe es liest jemand und kann mir dazu helfen?

Ein Teil aus meiner Liste und den zuvor geposteten Fragen:

Wie kann ich dem String das erste und/oder das letzte Zeichen entfernen wenn es ein ";" ist. siehe folgend:

Die Auflistung der Zahlen kann länger oder kürzer sein und auch nicht zwingend chronologisch.

Code:

	Ist	Soll	VBA IST
A	1;2;3;	1;2;3	
B	;2;3;4	2;3;4	3;4
C	;2;3;4;	2;3;4	;2;3;4;
D	1;	1	1;
E	;2	2	;2
Code:

Option Explicit

Private Sub CommandButton1_Click()
Dim strA, strB, strC, strD, strE As String

strA = Range("B3")
strB = Range("B4")
strC = Range("B5")
strD = Range("B6")
strE = Range("B7")


'MsgBox ("A: " & strA & (Chr(13)) & "B: " & strB & (Chr(13)) & "C: " & strC & (Chr(13)) & "D: " & strD & (Chr(13)) & "E: " & strE & (Chr(13)))

'nun geht es los mit SOLL Anpassung?!

strA = Mid(strA, Len(strA) - InStr(StrReverse(strA), ";") + 2)
strB = Mid(strB, InStrRev(strB, ";") - 1)





Range("D3") = strA
Range("D4") = strB
Range("D5") = strC
Range("D6") = strD
Range("D7") = strE


End Sub
Ausgeheckt ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten