folgender Code überträgt mir Werte in meine Blatt DRUCKMENÜ.
Ich weiss die "Select" müssen noch weg.
Würde aber gern noch folgendes , bevor aus dem Sheets("Hilfstabelle EINGABE") die Zellen ("A14:F17") kopiert werden, das dort ein Abfrage stattfindet, ob die Zellen ("A14:F17") überhaupt befüllt sind. Immer vorhanden sind Rahmen und graue Füllfarbe. Sind sie leer, also befindet sich darin weder Text noch Zahl, dann soll dieses Makro beendet werden. MsgBox "ACHTUNG keine Daten zum Einfügen vorhanden"
Wie könnte die Abfrage dazu aussehen?
Option Explicit
Sub Objekt_in_Druckmenü_einfügen()
' Befülle Objektdaten in Druckmaske
Sheets("Hilfstabelle EINGABE").Select
Range("A14:F17").Select
Selection.Copy
Sheets("DRUCKMENÜ").Select
Range("O20").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O28").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC38").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Gruß Andreas