Makro etwas einkürzen
Karsten
kann mir jemand diesen Makro etwas einkürzen. Es geht immer chronologisch von F1 - L1 mit dem Selben weiter.
Danke.
Gruß
Karsten
Range("f1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("g1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("h1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("i1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("j1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("k1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents
End If
Range("l1").Select
If ActiveCell Like "*#####*" Then
Range("D10") = ActiveCell & " " & ActiveCell.Offset(0, 1) & " " & ActiveCell.Offset(0, 2) & " " & ActiveCell.Offset(0, 3)
Selection.ClearContents