Hallo zusammen!
Ich komme mal wieder nicht weiter! Ich möchte, dass es mir zwei Zeilen mit den gleichen Daten untereinander füllt!
Ihr mein Code. Denke dies ist nicht eine grosse Sache? Besten Dank für Eure Hilfe.
Dim Quelle As Range
Dim Ziel As Range
Set Quelle = Worksheets(12).Range("A1,C1,E1,F1,G1")
Set Ziel = Range("B" & X & ":" & "E" & X)
If Range("B" & X).Value = "" Then
If Worksheets(12).Range("G1") = "PL" Then
If Range("B" & X + 1).Value = "" Then
MsgBox "PL wird eingetragen!"
Application.DisplayAlerts = False
Quelle.Copy
'Ihr sollten zwei Zeilen gefüllt werden!
Ziel.PasteSpecial xlPasteFormulas
Application.DisplayAlerts = True
Unload UserForm_Zeit