Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Textboxen mit schleife füllen oder leeren
#1
Hallo

Habe folgendes Problem .

möchte gern das , wenn ich in der Userform ein optionbutton (1-4) betätige , sich die felder typ automatisch erst leeren und dann mit dem jeweiligen typ füllen .
kann natürlich jedes feld einzeln füllen aber eine lösung mit zb  einer for next schleife wäre Vieeeeelll besser .
die typen felder hab ich txt_feld1 bis txt_feld10 genannt .

bin dankbar für jede lösung
   
Antworten Top
#2
Hallo,

in deinem Bild sehe ich aber 30 Textboxen. Wie heißen die weiteren Textboxen?
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#3
(27.03.2015, 16:35)Steffl schrieb: Hallo,

in deinem Bild sehe ich aber 30 Textboxen. Wie heißen die weiteren Textboxen?

hoi stefan

ich möchte nur die textboxen in der mitte füllen ....allso die in der spalte Typ.
und das abhängig vom option button ....
also wenn option button 1 gedrückt wurde dann in textbox 1 - 10 zb audi....wenn textbox 2 gedrückt wurde zb opel usw....
Antworten Top
#4
Hallo,

man könnte hier auch mit einer Klasse arbeiten aber vielleicht reicht es dir auch so

Code:
Option Explicit

Private Sub OptionButton1_Click()
   prcTextBox_fill "Audi"
End Sub


Sub prcTextBox_fill(strText As String)
   Dim lngC As Long
  
   For lngC = 1 To 10
      Me.Controls("txt_feld" & lngC).Value = strText
   Next
End Sub

Private Sub OptionButton2_Click()
   prcTextBox_fill "Opel"
End Sub
Gruß Stefan
Win 10 / Office 2016
Antworten Top
#5
Hola,

warum postest du in einem anderen Forum, während du hier Hilfe bekommst?

http://www.office-fragen.de/index.php/to...420.0.html

Gruß,
steve1da
Antworten Top
#6
Hallo steve1da,

danke für die Information.

Gruß Stefan
Antworten Top
#7
(28.03.2015, 19:21)Steffl schrieb: Hallo steve1da,

danke für die Information.

Gruß Stefan

Hallo Stefan

Erstmal vielen Dank für die Super Hilfe ....klappt wunderbar .

Ich wollte durch meine 2te Anfrage in einem Anderen Forum niemanden auf die Füsse treten .
Hab nur gedacht Viel hilft Viel . Mein Fehler .
Bin hier in meinem neuen Arbeitsbereich mit VBA ins kalte Wasser geworfen worden und deshalb riesig dankbar für eure Hilfe...

mfg
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste