VBA mehrere Zellen statt einer kopieren
14.07.2021 09:04:33
Lisa
ich habe eine VBA Frage, bei der ich nicht weiter komme.
Der Code geht die Zeile D durch, kopiert den Inhalt von Zelle D1, solange sie nicht leer ist und, fügt diesen in Blatt "1" in C3 ein, ruft ein anderes Makro auf und kopiert solange weiter, wie Spalte D ungleich leer.
Folgenden Code habe ich geschrieben:
Option Explicit
Sub Kopieren()
Dim lZeile_D As Long
With ThisWorkbook.Worksheets("2")
For lZeile_D = 1 To 10000
If Trim(.Range("D" & lZeile_D).Value) "" Then
.Range("D" & lZeile_D).Copy
Sheets("1").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Call Zeile_kopieren
End If
Next lZeile_D
End With
Application.CutCopyMode = False
End Sub
Die Werte sollen dann jedes Mal in Blatt "1" Zelle B3, C3, D3 und F3 abgelegt werden, das Makro Zeile_kopieren aufgerufen werden und ein neuer Durchgang gestartet werden. Eine kleine Schwierigkeit gibt es noch: Im ersten Durchgang soll das Makro Zeile_kopieren aufgerufen werden, bei allen weiteren Durchgängen Zeile_kopieren2. Das habe ich im obigen VBA Code rausgenommen, weil das überhaupt nicht mehr funktioniert hat.
Über Hilfe bin ich sehr dankbar, ich bekomme es einfach nicht hin, dies so umsetzten, wie ich es brauche. Zwar schaffe ich es alle Spalten durchzugehen und in die entsprechenden Zellen in Blatt "1" zu kopieren, dann wird jedoch das Makro Zeile_kopieren nicht mehr zum richtigen Zeitpunkt aufgerufen. Das Aufrufen von Zeile_kopieren2 bekomme ich auch mit einer Schleife nicht wirklich hin.
Liebe Grüße
Lisa