Wenn-Dann-Funktion als Makro
24.11.2008 16:47:36
Sulley
ich hänge an einem Makro fest.
Matthias L und fcs (Vielen dank noch mal an dieser Stelle) haben mir mal jeder ein super makro gebaut, mit welchem ich Daten von einer Tabelle ans Ende einer anderen Tabelle schicken kann. Hat auch super geklappt.
Hier nochmal das Makro:
Sub spalteFinden()
Dim s As Integer
With Worksheets("Mastertabelle")
s = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
Worksheets("Eingabetabelle").Range("B2:B11").Copy .Cells(2, s)
End With
Worksheets("Eingabetabelle").Range("B2:B11").ClearContents
MsgBox ("Stückzahlen wurden erfolgreich übertragen")
End Sub
Meine Frage:
Wie kann man das Makro so erweitern, dass erst wenn ein Zellenwert erreicht ist dieses Makro ausgeführt werden soll.
Z. B.: Wenn C31=21 - Dann Makro ausführen - Sonst nicht ausführen und MsgBox ("Bitte Eingabe vervollständigen")
Schon jetzt vielen Dank an euch.
Gruß,
Sullivan
Anzeige
