Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

301 Forumthreads zu ähnlichen 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
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
Bild aus Tabelle einem Image in einer Userform zuw
Polarfuchs

Hallo Ihr Checker,
in einer Arbeitsmappe habe ich ein Tabellenblatt mit Bildern. Wie kann ich ein bestimmtes Bild, die haben die Benennungen "Vorname_Nachname", einem Image einer UserForm zuweisen? Mit "LoadPicture" habe ich es schon versucht. Da bekomme ich die Fehlermeldung "Typen unvertr...
28.09.2008 14:40:18
Thread-ID: 1012915
7 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
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
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
18
2
3
6
2
2
5
6
30
7
7
4
2
8
2
3
6
3
3
8
3
11
3
2
8