Makro für alle Tabellenlätter
18.09.2007 18:48:33
HeWie
(die Zellenposition für die Abfrage und Aktion ist in allen Tabellenblätter gleich)
Sub Schaltfläche2_BeiKlick()
If UCase(Worksheets("Tabelle2").Cells(18, 19)) = "0" Then
MsgBox ("Bitte wert größer 0 eingeben !")
Else
Range("A5").Select
End If
End Sub
Vielen Dank für Eure Hilfe
HW
Anzeige