Hallo zusammen,
ich veruche eine vielleichs kinderleichte aber für mich wohl unüberwindliche Hürde zu nehmen:
Aus 12 Tabellenblättern (Jan - Dez) sollen Zeilen mit bestimmtem Inhalt auf ein anderesTabellenblatt kopiert werden.
Ich nutzte folgenden Code:
Sub Zeilen_kopieren()
Dim a As Long, i As Long
Application.ScreenUpdating = False
a = 3
For i = 3 To 300
With Worksheets("Jan").Range("A:I")
If .Cells(i, "I") = "Ja" Then
.Rows(i).copy _
Destination:=Worksheets("Q1").Rows(a)
a = a + 1
End If
End With
Next i
End Sub
Soweit funktioniert das. Wenn ich das ganze für den Februar mache, dann überschreibt es die Werte aus Januar. Das Ende der bestehenden Einträge zu finden und erst dort die neuen Werte eintragen zu lassen veruche ich nun seit einer Ewigkeit, komme aber alleine nicht weiter. Wer eine Idee oder eine Lösung hat, bekommt ein virtuelles Bussi und meinen ewigen Dank. Wenn das keine Motivation ist .....
Liebe Grüße aus Niederbayern
|