Hallo Leute,
ich hab die Frage ob sich das nachfolgende vereinfachen lässt:
With Worksheets("Mitarbeiter")
nm2.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm3.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm4.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm5.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm6.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm7.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm8.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm9.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nm10.List = .Range(.Cells(2, 1), .Cells(.UsedRange.Rows.Count + 1, 1)).Value
nh2.List = .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count + 1, 2)).Value
nh3.List = .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count + 1, 2)).Value
nh4.List = .Range(.Cells(2, 2), .Cells(.UsedRange.Rows.Count + 1, 2)).Value
End With
hab schon For Next Schleifen ausprobiert!
aber es funktioniert nie! bin ein bisschen genervt!
Grüsse!
ach ja, bei For next hatte ich folgendes als Initialisierung:
Dim nm(1 To 1000) As String
Dim nmV As Integer
|