VBA - kopieren wenn die Bedingung erfüllt ist
30.10.2019 21:23:35
STMakro
komme leider mit dem vorhandenen Makro nicht weiter.
Ich möchte gerne wenn ab Spalte A9 ein Wert vorhanden ist, dass es immer die Spalte AW8:HD8 kopiert. Beispiel: wenn in A9 ein Wert steht, dann soll es die Spalte AW8:HD8 kopieren und dann die kopierten Sachen in AW9:HD9 einfügen und wenn in A10 ein Wert steht, dann soll ee wieder AW8:HD8 kopieren und in AW10:HD10 einfügen usw. ....
Option Explicit
Sub Kopieren()
Dim LoLetzte As Long
Dim LoI As Long
Dim Cells As Range
With Worksheets("Test 123")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
For LoI = 9 To LoLetzte
If .Cells(LoI, 1) "" Then
.Range("AW8:HD8").Copy .Range("AW:HD" & Lol)
End If
Next LoI
End With
End Sub
Ich hoffe Ihr könnt mir helfen.
Anzeige