Sub TEST()
If Activecell.value = "1" Then
'Mein Befehl
Else
MsgBox (" Fehler ")
End If
End Sub
Danke für die Antwort; jetzt bringt er immer die Fehlermeldung, egal wo der Courser possitioniert ist und was in der 1. Reihe/Zeile steht.
(Der 2. Code funktionert auch, nur brauche ich so rum leider nicht.)
Gruss, Xico
Könntest Du bitte mehr Information geben
m.E. sind beide Makros identisch
durch Probiererei hab ich auch was (unelegantes) gefunden:
Danke dennoch :-)
Xico
Private Sub CommandButton1_Click()
actRow = ActiveCell.Row
actCol = ActiveCell.Column
If ActiveSheet.Cells(actRow, 1) = "1" and
ActiveSheet.Cells(1, actCol) = "1" Then
'Mein Befehl
Else
MsgBox (" Fehler! ")
End If
End Sub
oder
Private Sub CommandButton1_Click()
If ActiveSheet.Cells(ActiveCell.Row, 1) = "1" and
ActiveSheet.Cells(1, ActiveCell.Column) = "1" Then
'Mein Befehl
Else
MsgBox (" Fehler! ")
End If
End Sub
gehen.