hab wieder mal ne Frage. Hab hier folgende Code gefunden, um bestimmte Werte aus Tabelle 1 in Tabelle 2 zu kopieren.
-------------------------------------------------
Sub Kopieren()
Dim loLetzte As Long
With Worksheets("Tabelle2")
loLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp).Row, . _
_
Rows.Count) + 1
.Cells(loLetzte, 1) = Worksheets("Tabelle1").Range("A1")
.Cells(loLetzte, 2) = Worksheets("Tabelle1").Range("A2")
.Cells(loLetzte, 3) = Worksheets("Tabelle1").Range("A3")
End With
End Sub
--------------------------------------------------
Nun meine Frage: Wie muss der Code verändert werden, wenn der Befehl nur ausgeführt werden soll, wenn in A1:A3 Eintragungen sind. Oder anders, wenn in einem Feld von A1:A3 nichts steht, soll ne Meldung kommen "Es fehlen Eintragungen" oder sowas. Ich hoffe ihr versteht mich.
Ein schönes WE und Danke im voraus.
Holger