Zellen kopieren und zusammenfügen
03.10.2007 17:21:46
Herbert
Ich habe undenstehendes Makro aus diesem Forum aber leider ist noch ein kleines Problem aufgetaucht.
Ich kopiere das Ergebnis aus A1 in ein Firmeninternes Programm was an sich toll funktioniert.
Nur hat das Programm ein Problem mit dem Strichpunkt am Ende der letzten Zahl.
Kann man den Code so ändern daß nur zwischen den Zahlen der Strichpunkt ist?
Sub Loadingorder()
Dim rng As Range
Dim StrErgebnis As String
For Each rng In Selection
StrErgebnis = StrErgebnis & "74200" & rng.Value & ";"
Next rng
ActiveSheet.Range("A1") = StrErgebnis
' Tastenkombination: Strg+e
End Sub
mfg
Herbert
Anzeige