hab dank der Recherche mir folgendes Macro zusammen gestellt....
Sub Uebergeben1()
Dim lRow As Long
lRow = Worksheets("Tabelle1").Cells(Rows.Count, 3).End(xlUp).Row + 1
Worksheets("Tabelle1").Unprotect
Worksheets("Tabelle3").Range("C3, C5, C7, C9, C11, C13, C15, C17, C19, C21, C23").Copy
Worksheets("Tabelle1").Cells(lRow, 2).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Worksheets("Tabelle1").Protect
Worksheets("Tabelle3").Activate
Range("C3").Value = ""
Range("C5").Value = ""
Range("C7").Value = ""
Range("C9").Value = ""
'Range("C11").Value = ""
Range("C13").Value = ""
Range("C15").Value = ""
Range("C17").Value = ""
Range("C19").Value = ""
Range("C21").Value = ""
Range("C23").Value = ""
ActiveWorkbook.SaveAs
End Sub
....ist es möglich das wenn in den Zellen von C3;C5;C7;C9;C11;C13;C15;C17;C19;C21 nicht befüllt sind, das Macro zu stoppen und einen Hinweis zu geben und zurück zur eingabe.
Es soll verhindert werden, die Liste unvollständig zu befüllen.
C23 bleibt davon unberührt.
Vorab schon mal Dank für die Hilfe!
Gruß Uwe