Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

was einfaches...

was einfaches...
20.05.2003 16:59:16
Xico

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: was einfaches...
20.05.2003 17:10:47
Andreas Walter

Sub TEST()
actRow = ActiveCell.Row
actCol = ActiveCell.Column
If ActiveSheet.Cells(actRow, actCol) = "1" Then
'Mein Befehl
Else
MsgBox (" Fehler ")
End If
End Sub

Sub TEST()
If Activecell.value = "1" Then
'Mein Befehl
Else
MsgBox (" Fehler ")
End If
End Sub




Re: was einfaches...
20.05.2003 17:43:06
Xico

Hi Andreas,

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


Mehr Info benötigt
20.05.2003 17:56:20
Andeas Walter

Du sagst
> Leider geht das so nicht ganz,
und
> jetzt bringt er immer die Fehlermeldung

Könntest Du bitte mehr Information geben

m.E. sind beide Makros identisch

Anzeige
Re: Mehr Info benötigt
20.05.2003 18:13:35
Xico

Hallo,

durch Probiererei hab ich auch was (unelegantes) gefunden:

Danke dennoch :-)
Xico

Dann gehen diese
20.05.2003 19:17:51
Andreas Walter

a bisserl eleganter ist

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.



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige