Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mehrere Textboxen einblenden

Forumthread: mehrere Textboxen einblenden

mehrere Textboxen einblenden
25.08.2014 14:49:43
Ludicla
Hallo Profis,
ich komm wieder mal nicht weiter.
wie kann ich mehrere Textboxen auf einmal auf Visible gleich true stellen.
z. B. Eingabe 5
dann sollen die Textboxen 1 bis 5 eingeblendet werden.
bei Eingabe 3 nur die Textbox 1 - 3
Gruss Ludicla

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Textboxen einblenden
25.08.2014 15:01:47
Ewald
Hallo Ludicla,
teste mal 
Sub Einblenden()
Dim i As Long
Dim x As Long
x = 5
On Error GoTo Fehler
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = True
Next
Fehler:
MsgBox "Es sind nur " & i - 1 & " Textboxen vorhanden"
End Sub
Sub Ausblenden()
Dim i As Long
Dim x As Long
x = 5
On Error GoTo Fehler
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = False
Next
Fehler:
MsgBox "Es sind nur " & i - 1 & " Textboxen vorhanden"
End Sub
Gruß Ewald

Anzeige
AW: mehrere Textboxen einblenden
25.08.2014 15:04:55
Ludicla
Hallo Ewald,
wird mich mal gleich drüberstürzen.
Dankeschön.

pack noch ein Exit Sub mit rein
25.08.2014 15:30:54
Matthias
Hallo
Ich würde hier vor die Zeile Fehler:
noch ein Exit Sub setzen (in beiden Sub's)
Sonst bekommst Du immer eine Meldung
Gruß Matthias

AW: mehrere Textboxen einblenden
25.08.2014 18:01:47
Adis
Hallo
mir ist für dieses Problem eine alte Schreibweise aus Excel7 Zeit bekannt.
Dort konnte man mehrere Objekte in ein Array zusammenfassen.
Anbei eine kleines Beispiel aus meiner Datei mit drei Kontroll Boxen. Hier nannte man Objekte DrawingObject.
Probier mal ob das Array auch auf OLEObjekte anwendbar ist. Würde mich freuen wenn es klappt.
ActiveSheet.DrawingObjects(Array("Check Box 1", "Check Box 2", "Check Box 3")).Visible = False
ActiveSheet.OLEObjects(Array("TextBox1", "TextBox2", "TextBox3")).Visible = False
Gruss Adis

Anzeige
AW: mehrere Textboxen einblenden
26.08.2014 00:39:13
Ewald
Hallo,
dann verbessern wir noch etwas mehr
Sub Einblenden()
Dim i As Long
Dim x As Long
Dim y As Long
For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).Name = "TextBox" & i Then
y = y + 1
End If
Next
x = Application.InputBox("Geben Sie eine Zahl von 1 bis " & y & " ein")
If x > y Or x = 0 Then
MsgBox "sie haben sich nicht an die Vorgabe gehalten,oder abgebrochen,es werden keine  _
Textboxen eingeblendet"
Exit Sub
Else
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = True
Next
End If
End Sub
Sub Ausblenden()
Dim i As Long
Dim y As Long
For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).Name = "TextBox" & i Then
y = y + 1
End If
Next
For i = 1 To y
ActiveSheet.OLEObjects("TextBox" & i).Visible = False
Next
End Sub
Gruß Ewald

Anzeige
AW: mehrere Textboxen einblenden
26.08.2014 09:07:52
Ludicla
Dank für eure Hilfe,
aber ich hab gestern vergessen dass ich eine Userform benutze und die Eingabe
in einer Combobox vornehme. Bei dem Eintrag in die Combobox soll er die gleiche Anzahl
von TextBoxen einblenden.
bis jetzt habe ich: bei Eingabe 1: Textbox1.visible = true
bei Eingabe 2: Textbox1.visible = True
Textbox2.visible = True
bei Eingabe 3: Textbox1.visible = true
Textbox2.visible = true
Textbox3.visible = true
usw. ist etwas mühselig.
Gruss Ludicla

Anzeige
AW: mehrere Textboxen einblenden
26.08.2014 11:06:21
Ewald
Hallo,
dann so, Userform.Name anpassen
Private Sub ComboBox1_Change()
Dim i As Long
Dim x As Long
Dim y As Long
Dim c As Control
For Each c In UserForm3.Controls
If LCase(TypeName(c)) = "textbox" Then
y = y + 1
End If
Next
If ComboBox1.Value = "" Then
For i = 1 To y
UserForm3.Controls("TextBox" & i).Visible = False
Next
Else
x = CDbl(ComboBox1.Value)
If x > y Or x = 0 Then
MsgBox " Es gibt keine " & x & " Textboxen"
Exit Sub
Else
For i = 1 To x
UserForm3.Controls("TextBox" & i).Visible = True
Next
End If
End If
End Sub
Gruß Ewald

Anzeige
AW: mehrere Textboxen einblenden
26.08.2014 12:12:14
Ludicla
Danke Ewald
das wars. Nun flutscht es genauso wie gewünscht.
Gruss Ludicla
;

Forumthreads zu verwandten Themen

Wert aus Combobox zurückgeben in Textboxen
Peter

Hallo wertes Form
bin kurz vor der Vollende meinesWerkes
benötige aber noch die Hife aus dem Forum
Ich habe eine Combox19, die beim öffnen die 5000-26000 in 100 Steps an zeigt
Wenn ich den wert 0 bis 6999 eingebe soll in einer Textbox27 der wert 130 ausgegeben werden.
ab dem...
10.08.2008 20:06:00
Thread-ID: 1000671
7 Beiträge
Addieren von Textboxen - Fehlermeldung
Textboxen

Hallo nochmals
ich mochte mit folgender Zeile Textboxen addieren:
Private Sub TXT_ZEIT3_Change() TXT_ERG = CDbl(TXT_ZEIT1.Value) + CDbl(TXT_ZEIT2.Value) + CDbl(TXT_ZEIT3.Value) End Sub
Funzt...
Allerdings wenn ich jetzt in txt_Zeit1 oder txt_Zeit2 die Zahl lösche um sie zu ve...
13.08.2008 23:47:20
Thread-ID: 1001684
8 Beiträge
Wie kann ich 3 Textboxen wert addieren
Kurt

Guten Abend,
wie kann ich 3 Werte der Textboxen addieren ?
Habe es so versucht:
Label69.Caption = TextBox13.Value + TextBox14.Value + TextBox15.Value
mfg Kurt
(nicht Orginal)
14.08.2008 20:54:00
Thread-ID: 1001982
4 Beiträge
Färben von Textboxen in Userform
Textboxen

Guten Morgen!
Ich habe in einer UserForm 22 TextBoxen in denen Zahlen stehen.
Wenn eine positive Zahl in den Textboxen steht, dann soll der Hintergrund (Backcolor) grün gefärbt werden.
Wenn eine negative Zahl in den Textboxen steht dann soll der Hintergrund hellrot gefärbt werden.<...
21.08.2008 07:38:00
Thread-ID: 1003354
4 Beiträge
Formateierung von Textboxen in einer Userform
Textboxen

Hallo, nochmal 'ne warscheinlich blöde Frage:
Wie man Schriftart, Farbe etc. für Textboxen einstellt, bekomme ich hin. Aber
wie lege ich fest, dass es sich um das Format "Zahl" mit x Kommastellen oder
ähnliches handeln soll? - Hintergrund:
Auf einer Userform muß der Benutzer in...
16.09.2008 16:24:26
Thread-ID: 1010158
2 Beiträge
TextBoxen formatieren
Frank

Hallo liebes Forum!
Wieder einmal brauche ich Rat! In einem Tabellenblatt befinden sich mehrere Textboxen, welche über die Eigenschaft LinkedCell sich ihren Inhalt holen. Nun möchte ich das wenn der darin befindliche Wert negativ ist, der Inhalt rot geschrieben wird. Wie bekomme ich zwische...
28.10.2008 20:37:00
Thread-ID: 1020080
10 Beiträge
TextBoxen werden nicht geleert
Josef

Hallo!
Ich habe folgenden Code in einer Userform
Private Sub ListBox1_Click() On Error Resume Next If ListBox1.List(ListBox1.ListIndex, 7) = "EV-N / FV-XPV" Then Call Text_EF Call Text_EF2 Call Text_EF3 TextBox40.Text = "" Else If ListBox1.List(ListBox1.ListIndex, 7) = "J" Then TextBo...
29.10.2008 14:19:00
Thread-ID: 1020283
3 Beiträge
Anzeige
Textboxen aus Tabelle füllen
Sebastian

Guten Abend zusammen,
ich sitze wieder mal vor einem Problem und hoffe auf eure Hilfe. Ich habe eine Tabelle mit Kundennamen, die sich von Monat zu Monat verändert. Ich möchte nun (wenn möglich) eine Userform mit einer variablen Anzahl von Textfeldern auf "Knopfdruck" generieren, wobei die...
03.11.2008 18:25:00
Thread-ID: 1021413
6 Beiträge
Anzeige
Nur Zahlen in sehr vielen Textboxen
uli

Hallo,
habe ein im Internet gefunden, der allerdings noch ein bisschen angepasst werden muss. Vielleicht könnt ihr mir helfen, da ich an dieser Stelle nicht mehr weiterkomme.
Ich möchte die Eingabe von Buchstaben in mehreren Textboxen verbieten. Dies mache ich mit folgendem Code in eine...
13.11.2008 10:24:00
Thread-ID: 1024091
3 Beiträge
Rechnen mit TextBoxen
Frank

Hallo Zusammen!!!
Einen schönen guten Abend und schon vorab Danke für bestimmt zahlreiche Hilfe!
Ich benutze folgenden Code:
TextBox4.Value = TextBox2.value - TextBox3.Value
Diese Codezeile wird mittels Klick auf eine Schaltfläche ausgelöst. Funzt mit normalen Zahlen auch Super,...
14.11.2008 19:27:33
Thread-ID: 1024690
7 Beiträge
Userform Textboxen Text in Tabelle schreiben
Erich

Hallo Excelprofis,
habe ein Problem und hoffe ich könnt mir weiterhelfen.
ich habe eine Userform mit 100 Textboxen
1. ich will den inhalt der Textboxen 1 - 50 in die Tabelle Gültigkeit Spalte A 1 bis A50 eintragen den inhalt der Textboxen 51 - 100 in die Spalte B 1 bis B50
2...
18.11.2008 19:16:31
Thread-ID: 1025756
6 Beiträge
Textboxen auf Sheet per drag drop verschieben
Joachim

Hi,
ich habe auf einem Sheet ein paar Textboxen und würde diese im laufenden Betrieb (Maktos aktiviert) gerne mit der Maus auf dem Sheet bewegen und an anderer Stelle platzieren. Habe mich mit drag drop aber noch kein bisschen beschäftigt.
Geht das irgend wie ?
Danke Joachim
05.12.2008 17:14:00
Thread-ID: 1030513
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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