Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

Textbox und Fehler

Textbox und Fehler
Volker
Hallo zusammen,
ich benötige eine Hilfestellung bei dem untenstehenden Code.
Ich übergebe aus einer UF Textbox Daten an eine Tabelle. Da die Daten an unterschiedlichen Tagen in die Tabelle eingetragen werden kann es sein,daß in der Zelle schon ein Datum steht. Wie kann ich wenn die
Zelle bereits gefüllt ist bzw. wenn die für diese Zelle "zuständige" Textbox leer ist zur nächsten
gelangen?
Private Sub CommandButton8_Click()
With ActiveSheet
If TextBox1.Value = "" Or Range("AG2")  "" Then
'hier soll dann zur nächsten Zelle bzw. Textbox gesprungen werden
'um diese auch zu prüfen
Else
Range("AG2") = CDate(TextBox1.Value)
End If
Range("AG3") = CDate(TextBox10.Value)
Range("AG4") = CDate(TextBox11.Value)
Range("AG5") = CDate(TextBox12.Value)
Range("AG6") = CDate(TextBox13.Value)
Range("AG7") = CDate(TextBox14.Value)
Range("AG8") = CDate(TextBox15.Value)
Range("AG9") = CDate(TextBox16.Value)
End With
End Sub
Gruß
Volker

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Textbox und Fehler
10.04.2011 16:48:08
Hajo_Zi
Hallo Volker,
einfach ein Vergleich
If Textbox10"" then
oder
If Range("AG3")="" then

AW: Textbox und Fehler
10.04.2011 16:57:51
Hajo_Zi
Hallo Volker,
oder in einem Vergleich
If Textbox10"" And Range("AG3")="" then
Range("Ag3")=Textbox10
End if
Gruß Hajo
AW: Textbox und Fehler
10.04.2011 17:11:06
Volker
Super Hajo, Danke
Gruß
Volker
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige