VBA-Code modifizieren
13.10.2003 10:46:56
edie
im nachfolgenden VBA-Code wird eine Zahl, Format "00.00",
(z.B. Gewicht,kg 11,03)aus der Tabelle1 in die Tabelle2
kopiert und in Spalten D,E,F und G aufgeteilt.
Wenn ich aber 9,87 eingebe dann steht in der Tabelle2 Spalte D eine
9 in der Spalte E ein , (Komma) und in Spalte F 8 und Spalte G 7.
Wie kann man das erreichen, Komma soll immer in der Spalte F
bzw.zweitletzten Spalte in der gleichen Zelle vor der Zahl stehen?
Die Zelle kann als Text Formatiert werden.
Sub GewichtAufteilen()
Dim wsQuelle As Worksheet, wsZiel As Worksheet
Dim iStartzeile%, lEndzeile&, lZähler&
Dim Gewicht$, Kg$, Gramm$
Set wsQuelle = Worksheets("Tabelle1")
Set wsZiel = Worksheets("Tabelle2")
Application.ScreenUpdating = False
wsQuelle.Activate
iStartzeile = 4 '1.in C4
lEndzeile = Cells(4, 3).End(xlDown).Row
For lZähler = iStartzeile To lEndzeile
Gewicht = Format(Cells(lZähler, 3), "0.00")
Kg = Left(Gewicht, 2) 'Kilogramm auslesen
Gramm = Mid(Gewicht, 4, 2) 'Gramm auslesen
wsZiel.Activate
Cells(lZähler + 8, 4) = Left(Kg, 1)
Cells(lZähler + 8, 5) = Right(Kg, 1)
Cells(lZähler + 8, 6) = Left(Gramm, 1)
Cells(lZähler + 8, 7) = Right(Gramm, 1)
wsQuelle.Activate
Next lZähler
Application.ScreenUpdating = True
End Sub
Kann mir jemand helfen?
Vielen Dank im Voraus.
Grüße