Lieber Lutz
Liebe VBA Cracks
Wie müsste ich die Formel erweitern, wenn ich untenstehende IF Formel anwenden möchte diese jedoch nach g7 auch die if prüfung in g8 uff. bis zu <> "" macht? Habe wieder versucht dies hinzukriegen - leider ohne Erfolg:
Sub Neu()
Dim StartRow As Integer
Dim CurrentRow As Integer
Dim CopyRange As String
StartRow = 7
CurrentRow = StartRow
found = False
While Sheets("main").Cells(CurrentRow, 7) <> ""
CurrentRow = CurrentRow + 1
Wend
If Sheets("main").Range("g7") >= 9 Then
Sheets("main").Range("a7:g7").Copy Destination:=Sheets("selection").Range("a7:g7")
End If
End Sub
|