hallo,
ich habe in der Spalte B eine Auflistung der Monatstage von "01.01." bis zum 31.12. Ich möchte immer wenn der String in einer Zelle mit 02 beginnt einen bestimmten Zellbereich kopieren und einfügen. Leider komme ich nicht weiter...
Vielen dank für die Hilfe im Voraus!!
Sub g()
Dim i As Integer
ActiveSheet.Range("c7:d7").Copy
For i = 6 To 370
If ActiveSheet.Cells(i, 2) Like "*02*" Then ActiveSheet.Paste Destination:=ActiveSheet.Cells(i, 3)
Next i
End Sub
|