Wenn Monat = 1, dann...

Forumthread: Wenn Monat = 1, dann...

11.07.2003 21:49:28

Heiner

Hallo Excels,
ein Problem:
Die TextBox (Std_Ist) wird ausgeblendet, wenn in Tabelle1 Zelle C4 eine 1 steht.
Wenn in Tabelle1 Zelle C4 eine 2 steht, wird die TextBox (Std_Ist) wieder eingeblendet und eine Eingabe ist zwingend erforderlich.
Mein Problem:
Die TextBox wird auch abgefragt, wenn sie ausgeblendet und leer ist.
Das soll natürlich nur geschehen, wenn in Tabelle C4 eine 2 steht und sie sichtbar ist!

Wer kann meinen Code dem entsprechend umstricken?


Private Sub CommandButton1_Click()
With ANGABEN_ANFANGSWERTE
If .Std_Ist.Value = "" Then Call FehltWas: .Std_Ist.SetFocus: Exit Sub
Range("DISPO!F53") = ANGABEN_ANFANGSWERTE.[MIN_Std].Text
Range("DISPO!F54") = ANGABEN_ANFANGSWERTE.[Std_Ist].Text
Range("DISPO!F56") = ANGABEN_ANFANGSWERTE.[FRZ_Kto].Text
Range("DISPO!F55") = ANGABEN_ANFANGSWERTE.[ZUS_Std].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Alt].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!L76") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!F59") = ANGABEN_ANFANGSWERTE.[ZUS_Tage].Text
End With
Unload Me
End Sub

Vielen Dank im Voraus!
Gruss, Heiner

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Monat = 1, dann...

11.07.2003 22:01:28

OliveR
AW: Wenn Monat = 1, dann...

11.07.2003 22:17:54

Heiner
AW: Wenn Monat = 1, dann...

11.07.2003 22:30:20

OliveR
AW: Wenn Monat = 1, dann...

11.07.2003 22:38:17

Heiner

AW: Wenn Monat = 1, dann...

11.07.2003 22:01:28

OliveR

Hallo Heiner,
kurze Frage: Wie soll denn der Code umgestrickt werden?
Du musst doch die Zellen auf Tabelle1 abfragen, ob da eine 1 oder 2 drin steht.
z.B. in Tabelle1 einen CommandButton einbauen, dann folgendes als Code eingeben.


Private Sub CommandButton1_Click()
if Range("C4")=2 then
TextBox.Visible = True
end if
End Sub

Natürlich kannst Du auch mit Worksheet_Change(Target as Range) arbeiten.
Gruss
OliveR

AW: Wenn Monat = 1, dann...

11.07.2003 22:17:54

Heiner

Hallo OliverR,
das ist natürlich richtig, die Zelle muß abgefragt werden.
Ich habe mich wahrscheinlich (schon wieder mal) falsch ausgedrückt.
Nachdem die Zelle abgefragt wurde und in Tabelle1 Zelle C4 eine 1 vorgefunden wurde,
soll folgende If-Abfrage umgangen werden:
If .Std_Ist.Value = "" Then Call FehltWas: .Std_Ist.SetFocus: Exit Sub
Natürlich soll dann auch in die Tabelle DISPO!F54 kein Eintrag erfolgen, sonder nur
die anderen Anweisungen abgearbeitet werden:
Range("DISPO!F56") = ANGABEN_ANFANGSWERTE.[FRZ_Kto].Text etc.
Vielleicht ist das Problem jetzt besser umschrieben?
Das meinte ich eigentlich mit umstricken.
Hast Du eine Idee?
Danke und Gruss
Heiner

AW: Wenn Monat = 1, dann...

11.07.2003 22:30:20

OliveR

Hallo Heiner,
ich glaube ich habe heute Probleme mit meinen Gehirnwindungen. Meinst Du in etwa so?
Gruß
OliveR
____________________________________________________________________________________


Private Sub CommandButton1_Click()
With ANGABEN_ANFANGSWERTE
If Sheets("Tabelle1").Range("C4") = 2 Then
If .Std_Ist.Value = "" Then Call FehltWas: .Std_Ist.SetFocus: Exit Sub
Range("DISPO!F54") = ANGABEN_ANFANGSWERTE.[Std_Ist].Text
End If
Range("DISPO!F53") = ANGABEN_ANFANGSWERTE.[MIN_Std].Text
Range("DISPO!F56") = ANGABEN_ANFANGSWERTE.[FRZ_Kto].Text
Range("DISPO!F55") = ANGABEN_ANFANGSWERTE.[ZUS_Std].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Alt].Text
Range("DISPO!F57") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!L76") = ANGABEN_ANFANGSWERTE.[Url_Neu].Text
Range("DISPO!F59") = ANGABEN_ANFANGSWERTE.[ZUS_Tage].Text
End With
Unload Me
End Sub

AW: Wenn Monat = 1, dann...

11.07.2003 22:38:17

Heiner

Hallo OliveR,
genau das ist es, was ich meinte :-).
Klappt perfekt!
Danke und Gruss
Heiner

Beliebteste Forumthreads (12 Monate)

Forumthread: Wenn Monat = 1, dann...

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread