Prüfen Wert in Zelle dann.......
25.07.2003 06:35:57
sigi
ich habe die Tabelle "Eingabe" und dann Untertabellen in einer Arbeitsmappe.
Nun rufe ich über ein CommandButton eine UserForm auf und möchte dann
über eine Schaltfläche prüfen lassen, dass wenn in Tabelle "Eingaben" in Zelle F8 kein Wert steht, dann
soll eine MsgBox erschein mit "Namen eingeben in F8" und in diese Zelle gesprigen werden.
Wenn in Tabelle "Eingaben" in Zelle F8 ein Wert steht, dann
soll in die Tabelle 1 gesprungen werden.
Kann mir jemand erklären wie das funktioniert.
Private Sub CommandButton13_Click()
If Sheets("Eingaben").Range("f8") <= 0 Then
MsgBox "Namen in in F8 eingeben"
End If
Sheets("Eingaben").Select
If Sheets("Eingaben").Range("F8") >= 0 Then
Sheets("Tabelle1").Select
Range("B21").Select
End If
Unload Me
End Sub
Gruß
Sigi