Wenn und Wenn - dann -VBA | HERBERS Excel Forum

Forumthread: Wenn und Wenn - dann -VBA

Wenn und Wenn - dann -VBA

27.04.2008 09:20:06

Wolfgang

Hallo,
wenn im ausgeblendeten Tabellenblatt "Steuerung" die Zelle E31 den Wert "WAHR" enthält und die Zelle G 31 den Wert "0", dann Msgbox und Exit Sub, ansonsten weiter.- Kriege den Code irgendwie nicht hin und bin daher für jede Hilfestellung dankbar.
Gruß - Wolfgang

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn und Wenn - dann -VBA

27.04.2008 09:24:00

Hajo_Zi
Danke Hajo, klappt super!!

27.04.2008 10:00:17

Wolfgang
AW: Wenn und Wenn - dann -VBA

27.04.2008 10:31:10

Erich
wennschon ... dennschon ;o)

27.04.2008 11:03:00

Matthias
AW: wennschon ... dennschon ;o)

27.04.2008 12:58:00

Erich

AW: Wenn und Wenn - dann -VBA

27.04.2008 09:24:00

Hajo_Zi

Hallo Wolfgang,


Option Explicit
Sub Wolfgang()
With Worksheets("Steuerung")
If .Range("E31") = "WAHR" And .Range("G31") = 0 Then MsgBox "Test"
End With
End Sub

Danke Hajo, klappt super!!

27.04.2008 10:00:17

Wolfgang

Hallo Hajo,
danke für Deine schnelle Rückmeldung. Nachdem ich gecheckt hatte, dass das WAHR aus einer Checkbox wohl als True bezeichet werden muß (obschon in der Zelle WAHR erscheint), habe ich den Code entsprechend umgestellt und er läuft nun super. Herzlichen Dank dafür und einen schönen Sonntag.
Gruß - Wolfgang

AW: Wenn und Wenn - dann -VBA

27.04.2008 10:31:10

Erich

Hi Hajo und Wolfgang,
das WAHR in E31 ist doch wohl ein Wahrheitswert.
Dann kann (und sollte) man ihn auch so verwenden:


Sub Wolfgang1()
With Worksheets("Steuerung")
If .Range("E31") And .Range("G31") = 0 Then
MsgBox "Test"
Exit Sub
End If
End With
End Sub

.Range("E31") ist entweder True oder False - das "If" wird sich danach richten...
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

wennschon ... dennschon ;o)

27.04.2008 11:03:00

Matthias

Hallo Erich
Zitat:


wenn im ausgeblendeten Tabellenblatt "Steuerung" die Zelle E31 den Wert "WAHR" enthält und die Zelle G 31 den Wert "0", dann

Ich würde es deshalb so schreiben:


Sub Wolfgang2()
With Worksheets("Steuerung")
If .Range("E31") And .Range("G31").Value = "0" Then
MsgBox "Test"
Exit Sub
End If
End With
End Sub

Sonst kommt doch die Box auch wenn G31 "leer" ist, oder?
Gruß Matthias

AW: wennschon ... dennschon ;o)

27.04.2008 12:58:00

Erich

Hi Matthias,
ja, das stimmt, .Range("G31") = 0 erkennt auch den Wert einer leeren Zelle als 0,
.Range("G31") = "0" oder CStr(.Range("G31")) = "0" ist besser.
.Value als die Standardeigenschaft kann man hier auch weglassen, wie bei Range("E31").
Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Wenn und Wenn - dann -VBA

Forumthread: Wenn und Wenn - dann -VBA

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread