VBA Excel
22.05.2018 14:13:35
Eva
leider habe ich nicht besonders viel Erfahrung in VBA. Weil ich mir mit Makros das Leben aber viel leichter machen würde, habe ich begonnen mich einzulesen nun ja, aller Anfang ist schwer. Und so stehe ich schon seit Tagen bei folgendem Problem an:
In einer Tabelle sollen Daten abgegelichen werden. Wenn der Wert in Spalte D gleich wie der Wert in Spalte D darunter ist, dann sollen die Daten von B:I nach unten kopiert werden. Wenn er nicht gleich ist, dann nicht. Also so:
Sub kopieren()
Dim Ziel As Range
Set Ziel = Range("D" & ActiveSheet.Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Row + 1)
If ActiveSheet.Range("D2").Value = ActiveSheet.Range("D3").Value Then
ActiveSheet.Range("B2:I2").Select
Selection.Copy
ActiveSheet.Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End If
End Sub
Schön und gut, ich bin ja schon stolz, dass sich das bewegt :-) Nun will ich aber eine Schleife. Also, wenn D2 mit D3 verglichen wurde, dann soll er D3 mit D4 vergleichen und bei übereinstimmenden Werten wieder kopieren. Usw...
Ich hab es schon mit Next, Loop und auch Schleifen, "zeile = zeile + 1", ".Offset(1, 0).Select" usw... versucht. Und ich komme einfach nicht dahinter... Ich denke, das Problem ist, dass ich die Zellen (D2; D3 usw) genau definiert habe. Sobald ich aber Row +1 versuche einzubauen, haut gar nichts mehr hin.
Ich finde die Seite hier übrigens echt toll, hier kann man wirklich einiges lernen :-)
Vorba schon tausend Dank für jegliche Tipps!
Eva