Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Button_Click ein neues UserForm Anzeigen.

Forumthread: Bei Button_Click ein neues UserForm Anzeigen.

Bei Button_Click ein neues UserForm Anzeigen.
14.11.2012 17:52:31
Alex
Ich nöchte auf einen Comandbutton klicken und dadurch ein zusätzliches Userform öffnen.
mit (Name).show kommt das Userform auch Nur werden keine Items in die Dropdown eingefügt.
Hir mal ein Teil des Codes:
Privata Sub Einfuegen_Initialize()
cborbt2.AddItem "Bitte Hersteller wählen"
cborbt2.AddItem "KUKA"
cborbt2.AddItem "ABB"
cborbt2.ListIndex = 0
cmbrbt2.Style = fmStyleDropDownList
cmbLF2.Style = fmStyleDropDownList
End Sub

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Bei Button_Click ein neues UserForm Anzeigen.
14.11.2012 17:53:44
Alex
..... Muss ich dort mit Load arbeiten oder gibt es ne andere Möglichkeit?
MfG
Alex K.

AW: Bei Button_Click ein neues UserForm Anzeigen.
14.11.2012 18:04:16
Hajo_Zi
Hallo Alex,
den Code hast Du schon in der neuen UserForm?

AW: Bei Button_Click ein neues UserForm Anzeigen.
14.11.2012 21:38:02
Alex
ja das ist alles erledigt

Anzeige
AW: Bei Button_Click ein neues UserForm Anzeigen.
14.11.2012 21:47:28
Alex
das wäre der code dazu vlt is dadrinnen der wurm
Private Sub Einfuegen_Initialize()
cborbt2.AddItem "Bitte Hersteller wählen"
cborbt2.AddItem "KUKA"
cborbt2.AddItem "ABB"
cborbt2.ListIndex = 0
cmbrbt2.Style = fmStyleDropDownList
cmbLF2.Style = fmStyleDropDownList
End Sub
Sub cborbt2_Change()
cborbt2.Value = ""
Select Case cborbt2
Case "KUKA"
cboLF2.AddItem "Bitte Lastfall wählen"
cboLF2.AddItem "33%/33%"
cboLF2.AddItem "33%/66%"
cboLF2.AddItem "33%/100%"
cboLF2.AddItem "66%/33%"
cboLF2.AddItem "66%/66%"
cboLF2.AddItem "66%/100%"
cboLF2.AddItem "100%/33%"
cboLF2.AddItem "100%/66%"
cboLF2.AddItem "100%/100%"
cboLF2.ListIndex = 0
Case "ABB"
lblLAF.Caption = "Nur STOP1 verfügbar"
cmbLF2.AddItem "STOP1"
cmbLF2.ListIndex = 0
End Select
End Sub
Sub cmbEinf_Click()
Select Case cborbt2
Case "Kuka"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("B21").Value = "txtbr"
Range("C21").Value = "txta2"
Range("d21").Value = "txta3"
Range("e21").Value = "txta3"
Case "ABB"
Worksheets("ABB").Activate
Rows.Insert ("2:19")
Range("B19").Value = "txtbr"
Range("C19").Value = "txta2"
Range("d19").Value = "txta3"
Range("e19").Value = "txta3"
End Select
Select Case cboLF2
Case "33%/33%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("f21").Value = "txtlfa1"
Range("g21").Value = "txtlfa2"
Range("h21").Value = "txtlfa3"
Case "33%/66%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("i21").Value = "txtlfa1"
Range("j21").Value = "txtlfa2"
txtlaf3.Locked = True
txtlaf3.BackColour = vbGrey
Case "33%/100%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("l21").Value = "txtlfa1"
Range("m21").Value = "txtlfa2"
txtlaf3.Locked = True
txtlaf3.BackColour = vbGrey
Case "66%/33%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("o21").Value = "txtlfa1"
Range("p21").Value = "txtlfa2"
txtlaf3.Locked = True
txtlaf3.BackColour = vbGrey
Case "66%/66%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("r21").Value = "txtlfa1"
Range("s21").Value = "txtlfa2"
txtlaf3.Locked = True
txtlaf3.BackColour = vbGrey
Case "66%/100%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("u21").Value = "txtlfa1"
Range("v21").Value = "txtlfa2"
txtlaf3.Locked = True
txtlaf3.BackColour = vbGrey
Case "100%/33%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("x21").Value = "txtlfa1"
Range("y21").Value = "txtlfa2"
Range("z21").Value = "txtlfa3"
Case "100%/66%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("aa21").Value = "txtlfa1"
Range("ab21").Value = "txtlfa2"
Range("ac21").Value = "txtlfa3"
Case "100%/100%"
Worksheets("KUKA").Activate
Rows.Insert ("2:21")
Range("ad21").Value = "txtlfa1"
Range("ae21").Value = "txtlfa2"
Range("af21").Value = "txtlfa3"
End Select
End Sub
Sub cmbend2_Click()
Unload einfuegen
End Sub
MfG Alex

Anzeige
AW: Bei Button_Click ein neues UserForm Anzeigen.
15.11.2012 16:10:56
Hajo_Zi
Hallo Alex,
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Gruß Hajo
;

Forumthreads zu verwandten Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Eingabe in Userform in Tabelle suchen
Thorsten

Hallo,
ich habe ein Userform mit einem Textfeld, in das ich ein Datum eintragen will. Nach click auf ok soll dieses Datum in meiner Tabelle gefunden und markiert werden. (A1:A365) Kann mir jemand bei der Umsetzung helfen?
Vielen Dank im Voraus.
Thorsten
12.09.2008 14:41:00
Thread-ID: 1009379
3 Beiträge
Anzeige
Tabelle in Spreadsheet eines Userforms
Klaus

Hallo,
ich öffne beim Starten von Excel ein Userform und möchte darin ganze Tabellen der Exceldatei darstellen (inkl. Steuerelementen und Charts). Die Tabellen sollen in das Spreadsheet kopiert werden, das sich im Userform befindet.
Wie kann das gemacht werden?
Danke für eure Hilfe,...
26.09.2008 08:11:00
Thread-ID: 1012476
4 Beiträge
Anzeige
Verlauf in UserForm anzeigen
Gregor

Hallo
Ich habe im Makro folgenden Befehl, der mir in der Status-Zeile die Abarbeitung des Makros anzeigt:
Application.StatusBar = 2000 - Zeile (Zeile ist in Schlaufe eine Variable)
Wie kann ich diesen Verlauf in einer UserForm anzeigen. Diese ist zur Zeit statisch und meldet "Bitte...
18.11.2008 15:30:00
Thread-ID: 1025669
3 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
Anzeige
Daten von Userform ins Tabellenblett übertragen
Userform

Hi,
ich möchte mal folgendes versuchen:
Ich habe ein Tabellenblatt mit verschiedenen Datensätzen. Nun möchte ich die Datensätze nicht direkt in das Tabellenblatt schreiben, sondern über ein Formular. (Userform) . Ich stelle mir das so vor:
Auf einer Userform habe ich verschiedene Te...
26.01.2009 14:55:00
Thread-ID: 1043905
7 Beiträge
Daten von UserForm in Tabelle
UserForm

Hallo zusammen
Ich Arbeite an einem kleinen Programm, welches mir mittels einer UserForm die eingegebenen Daten in den Excel-Kalender übertragen soll.
Die UserForm habe ich schon fast komplett fertig bis auf die übertragung in den Kalender.
In der UserForm sind folgende Informatione...
24.03.2009 09:53:44
Thread-ID: 1063175
31 Beiträge
Was ist dass Es erscheinen merkwürdige Makros ???
juergen

Hallo liebe Excel Gemeinde
Bei mir passiert etwas sehr mekwürdiges.Und zwar
Öffne ich Excel mit leerem Blatt und gehe dann in die VBA Umgebung ist alles sauber.
Öffne Ich die Exceldatei von Hajo.Ziplies "nur_mit_aktivierten_makros_zeit_loeschen.xls"
Und gehe dann auf Makros...
30.03.2009 19:21:05
Thread-ID: 1065401
8 Beiträge
Verknuepfte Tabellen in einem USERFORM anzeigen
spezifischer

Die Ausgangslage:
1.Tabelle: VereinsAdressen (VereinsName, Strasse, PLZ, Ort, etc.)
2.Tabelle: VereinsSparten (VereinsName, SpartenName, Ansprechpartner, etc)
Der VereinsName ist ein-eindeutig (keine Duplikate). Zu jedem Verein kann es mehrere Sparten geben. Die Verknüpfung zwischen...
02.04.2009 17:53:23
Thread-ID: 1066441
8 Beiträge
PDF in UserForm anzeigen
Urmila

Hallo alle zusammen,
ich habe zwar gefunden dass es Möglichkeiten gibt Bilder in UserForm anzeigen zu lassen, doch besteht auch die Möglichkeit diverse PDF Dokumente (sind einzelne Seiten) im Userform darzustellen?
Ich bin gerade dabei ein Frage- und Antwortspiel aufzubauen, da habe ich...
09.06.2009 16:18:18
Thread-ID: 1080199
5 Beiträge
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
Userform, Crtl.-Felder in Tabelle übernehmen
Kay

Hallo,
...noch eine Frage zu Options- und Controllfeldern. Habe ziemlich viele davon in meiner Userform und möchte gern, nach der Übertragung des Inhalte (.Caption) in die Tabelle auch ermöglichen, dass die Userform zurück die Daten lesen kann. D.h. wenn ein enstprechender Datensatz (Zeile)...
11.07.2009 20:38:43
Thread-ID: 1087920
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige