zusammenfügen von Zeilenwerten mit Sonderformat
08.01.2019 22:34:40
Zeilenwerten
ich möchte mit meinem Code die jeweiligen Werte aus 2 Spalten zusammenfügen durch "-" getrennt. Es funktioniert auch, nur leider bestehen die Werte aus Zahlen zwischen 001 - 100. Mein Code erkennt aber 001 als 1 und fügt mir dann auch anstatt 001-089 --> 1-89 zusammen, obwohl in der zu Ursprungsspalte 001 bzw. 089 steht....
Kann mir jmd helfen wie ich das "Sonderformat" mitkopieren kann? (Ändern der Einstellung der jeweiligen Zielzeile hilft auch nicht).
Mein Code:
Sub Merge()
Dim lz As Long
Dim i As Integer
lz = Worksheets("Namensliste").Cells(Rows.Count, 12).End(xlUp).Row
For i = 2 To lz
Cells(i, 26).Value = Cells(i, 12).Value & "-" & Cells(i, 13).Value
Next i
End Sub
Vielen Dank für eure Unterstützung!