Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
360to364
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Variable TextBox?

Variable TextBox?
11.01.2004 10:56:07
Heiner
Hallo Forum,
in einer UserForm habe ich zwei TextBoxen.
In die TextBox1 muss entweder A oder Z eingegeben werden.
Abhängig von der Eingabe (A/Z) soll ein Wert aus zwei verschiedenen Zellen der Tabelle1 (G62/G61) ausgelesen werden.
Bei Eingabe A in die TextBox1 soll der Wert aus Tabelle1 Zelle G62, bei Eingabe von Z soll der Wert aus Tabelle1 Zelle G61 in der TextBox2 ausgegeben werden.
Nach Klick auf CommandButton1 soll der jeweilige Wert aus der TextBox2 in die Zelle F56 und der Wert aus TextBox1 (A/Z) in die Zelle H61 der Tabelle1 geschrieben werden.
Wurde in TextBox1 kein Wert eingegeben, soll eine Fehlermeldung ausgegeben werden und der Cursor wieder in TextBox1 gesetzt werden!
Ich hoffe, ich habe mich einigermassen verständlich ausgedrückt und mir kann jemand von euch weiterhelfen (am Besten mit einem Code-Beispiel, meine VBA-Kenntnisse halten sich noch sehr in Grenzen...).
Vielen Dank im Voraus und einen schönen Sonntag!
Gruss Heiner

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

Betreff
Datum
Anwender
Anzeige
AW: Variable TextBox?
11.01.2004 11:41:44
Heiner
Hallo Nepumuk,
vielen Dank für Deine Mühe!
Das klappt bestens!!
Noch einen schönen Sonntag!
Gruss Heiner
AW: Variable TextBox? - Noch eine Frage...
11.01.2004 13:54:21
Heiner
Hallo Forum, hallo Nepumuk,
ich habe noch einmal eine Bitte...
Wie kann ich es anstellen, das in TextBox2 der Wert als Zeitformat dargestellt wird?
Folgenden (funktionierenden) Code bekam ich heute von Nepumuk, hatte aber leider nicht hinzugefügt, das die TextBox2 als Zeitformat dargestellt werden sollte... :-(
Wer kann helfen und den Code umstricken?
Nepumuks Code:
Option Explicit

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
MsgBox "Eingabe fehlt.", 48, "Hinweis"
TextBox1.SetFocus
Else
With Tabelle1
Range("H61") = TextBox1
Range("F56") = TextBox2
End With
Unload Me
End If
End Sub



Private Sub TextBox1_Change()
Select Case TextBox1
Case "A"
TextBox2 = Worksheets("Tabelle1").Range("G62")
Case "Z"
TextBox2 = Worksheets("Tabelle1").Range("G61")
End Select
End Sub



Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If TextBox1 <> "" Then KeyAscii = 0
Select Case KeyAscii
Case 65, 97
KeyAscii = 65
Case 90, 122
KeyAscii = 90
Case Else
KeyAscii = 0
End Select
End Sub



Private Sub UserForm_Click()
End Sub

Danke und Gruss
Heiner
Anzeige
AW: Variable TextBox? - Noch eine Frage...
11.01.2004 15:54:11
Nepumuk
Hallo Heiner,
ändere folgende Zeile:
TextBox2 = Worksheets("Tabelle1").Range("G61")
so:
TextBox2 = Format(Worksheets("Tabelle1").Range("G61"), "hh:mm:ss")
Als Format geht auch "hh:mm" oder "mm:ss" das musst du selber wissen.
Gruß
Nepumuk
OT: Variable TextBox? - Danke Nepumuk!
11.01.2004 21:37:38
Heiner

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige