|
Hallo Michael
wenn du schon ein Makro hast mit dem du die Parameter einliest laesst es sich leicht aendern. Die Anzahl der Variablen musst du bitte selbst festlegen. :
Wenn du ein bisschen von Makros verstehst kannst du den Rest selbst ergaenzen. Man kann auch den Befehl Right verwenden, der Code ist aber laenger
Bei Mid schneidest du aus der Mitte heraus, wenn du das 2.Argument auf 100 , 200 oder n setzt heisst das, alles was hinten dranhaengt wird übernommen!
mfg Nobody
Dim PWert1 As String, PWert2 As String
For i = 1 To n
PWert1 = Mid(Range("xx"), 11, 200) 'alle Parameter laden (bis n...)
PWert2 = Mid(Range("xx"), 11, 200) ':vorderen Text abschneiden
Range(Zielzelle) = PWert1
Range(Zielzelle) = PWert2
Next i
|