VBA - kopieren wenn die Bedingung erfüllt ist

[STMakro]

Hallo zusammen,

komme leider mit dem vorhandenen Makro nicht weiter.
Ich möchte gerne wenn ab Spalte A9 ein Wert vorhanden ist, dass er immer die Spalte AW8:HD8 kopiert und dann z.B. wenn in A9 ein Wert steht, die kopierten Sachen in AW9:HD9 einfügt und wenn in A10 ein Wert steht, das er wieder AW8:HD8 kopiert und in AW10:HD10 einfügt also fortlaufend einfügt...

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.

 

[hroessler]

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 habe für dich den Code mal anständig formatiert...

greetz
hroessler