untenstehender Befehlt funktioniert fast tadellos.
Bloss: wie kann ich Herk.Cells(i, 3) & "." & Herk.Cells(i, 4) in einen Text umwandeln.
z.B. 281 & "." & 1550 ergibt in der Ziel-Tabelle 281.155.
Markus
Function Fuellen()
Dim Herk As Worksheet, Ziel As Worksheet
Dim i As Double
Set Herk = Sheets("0001")
Set Ziel = Sheets("Daten")
Zell_Daten_ermitteln ' ermittelt D_Freie und T_Last
For i = 5 To T_Last
Ziel.Cells(D_Freie, 1) = Herk.Cells(i, 3) & "." & Herk.Cells(i, 4)
Ziel.Cells(D_Freie, 2) = Herk.Cells(i, 6) & "." & Herk.Cells(i, 7)
Ziel.Cells(D_Freie, 3) = Herk.Cells(i, 12)
Ziel.Cells(D_Freie, 4) = Herk.Cells(i, 14)
Ziel.Cells(D_Freie, 5) = Herk.Cells(i, 17)
Ziel.Cells(D_Freie, 6) = Herk.Cells(i, 20)
Ziel.Cells(D_Freie, 7) = Herk.Cells(i, 22)
D_Freie = D_Freie + 1
Next i
End Function