Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
420to424
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
420to424
420to424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

4 Textboxen

4 Textboxen
Mario
Hallo Leute
Hoffe das mir jemand helfen kann.
Wie kann ich in einem sheet mit 4 Textboxen und Commandbutton.
Das ich nur einen wert in eine der Textboxen eingeben kann und der rest der Textboxen soll kein Wert eingegeben werden. Sobals ich 2 Textboxen einen wert gebe und mit dem Commandbutton bestätige, soll eine MsgBox kommen. Und wenn ich diese bestätige sollen die werte gelöscht werden.
Danke für eure Hilfe
Mario

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

Betreff
Benutzer
Anzeige
AW: 4 Textboxen
K.Rola
Hallo,
dein eigentliches Ziel ist, dass nur in eine Textbox etwas eingegeben
werden kann, oder?
Gruß K.Rola
AW: 4 Textboxen
Mario
Nein.
Ich möchte nur das eine Textbox etwas eingegeben wird.
AW: 4 Textboxen
K.Rola
Hallo,
ich hab das Gefühl, wir posten aneinander vorbei.
Du hast 4 Textboxen und es soll immer nur in eine etwas eingegeben
werden können, egal in welche, so richtig?
Gruß K.Rola
AW: 4 Textboxen
Mario
Ja genau. Man darf nur in eine Textbox von den 4 was eingeben. Die anderen müssen leer sein. zbsp. eine Menge.
Gruss
Mario
AW: 4 Textboxen
K.Rola
Hallo.
ein Beispiel:
Option Explicit
Dim oldColor As Long

Private Sub TextBox1_Change()
If Len(TextBox1) > 0 Then
Call sperren(1)
Else
Call entsperren
End If
End Sub



Private Sub TextBox2_Change()
If Len(TextBox2) > 0 Then
Call sperren(2)
Else
Call entsperren
End If
End Sub



Private Sub TextBox3_Change()
If Len(TextBox3) > 0 Then
Call sperren(3)
Else
Call entsperren
End If
End Sub



Private Sub TextBox4_Change()
If Len(TextBox4) > 0 Then
Call sperren(4)
Else
Call entsperren
End If
End Sub

Sub sperren(i As Byte)
Dim t As Byte
For t = 1 To 4
Controls("Textbox" & t).Enabled = False
Controls("Textbox" & t).BackColor = Me.BackColor
Next
Controls("Textbox" & i).Enabled = True
Controls("Textbox" & i).BackColor = oldColor
Controls("Textbox" & i).SetFocus
End Sub
Sub entsperren()
Dim t As Byte
For t = 1 To 4
Controls("Textbox" & t).Enabled = True
Controls("Textbox" & t).BackColor = oldColor
Next
End Sub 

Private Sub UserForm_Activate()
oldColor = TextBox1.BackColor
End Sub

Gruß K.Rola
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige