Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1168to1172
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
1168to1172
1168to1172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 textboxen je Matix

2 textboxen je Matix
hp
Hallo Spezialisten,
habe eine Userform mit Page 1-5 gebastelt.
Page 1-5 sind Produktgruppen.
Für jede Produktgruppe habe ich in einem Tabellenblatt in verschiedenen Spalten (a, e, i, m + q ab Zeile 2) die dazugehörigen Produkte.
Für jedes Produkt möchte ich bei Aufruf der Userform 2 Textboxen dynamisch in die Produktgruppen-Pages einfügen.
Die Textfelder links sollen die Namen der Produkte enthalten, die zweiten Textfelder sollen rechts neben den Produkten erscheinen, um einen Preis einzugeben.
Die Länge der Produktlisten kann varieren.
Wie schaffe ich es die Textfelder der Produkte inklusive der leeren Textfelder automatisch zu generieren?
Wäre echt froh, wenn jemand mir auf die Sprünge hilft.
Vielen Dank für eure Mühe
Gruß/hp

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
vielleicht so
04.08.2010 20:20:01
Tino
Hallo,
wenn ich Dich richtig verstanden habe, spielt nur die Spalte A eine Rolle.
Private Sub UserForm_Initialize()
Dim oTxT As Control
Dim oPage As MSForms.Page
Dim rngRange As Range, rngCell As Range
Dim sngTop As Single

'Page angeben 
Set oPage = MultiPage1.Pages(0)

'Tabelle angeben 
With Tabelle1
    'Bereich angeben 
    Set rngRange = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
    
    'Schleife über Bereich 
    For Each rngCell In rngRange.Columns(1).Cells
        'TxT Box 1 erstellen 
        Set oTxT = oPage.Controls.Add("Forms.TextBox.1")
        oTxT.Top = 5 + sngTop: oTxT.Left = 5
        oTxT.Width = 90: oTxT.Height = 18
        'Wert eintragen 
        oTxT = rngCell.Value
        
        'TxT Box 2 erstellen 
        Set oTxT = oPage.Controls.Add("Forms.TextBox.1")
        oTxT.Top = 5 + sngTop: oTxT.Left = 100
        oTxT.Width = 90: oTxT.Height = 18
        
        'Höhe merken für nächste TxT 
        sngTop = oTxT.Top + oTxT.Height
    Next rngCell

End With

End Sub
Gruß Tino
Anzeige
Zusatz...
04.08.2010 20:28:33
Tino
Hallo,
sind es mehr TxT- Boxen, so dass diese nicht in die Page passen,
ergänzen nach der Schleife den Code durch diese Zeilen.
    If sngTop + 5 > oPage.InsideHeight Then
oPage.ScrollBars = fmScrollBarsVertical
oPage.ScrollHeight = sngTop + 5
End If
Gruß Tino
AW: Zusatz...
05.08.2010 09:59:23
hp
Hallo Tino,
vielen Dank, das ging ja zügig. Habe noch 3 Problemchen.
1. Wenn ich das Makro ausführe, stoppt er bei "Dim oTxT As Control". Als Fehler sagt er, das der Benutzerdefinierte Typ nicht definiert ist...
Muß ich vor "With" nicht auch einen Set otxt = ? eingeben?
2. Leider muss ich Produkte aus 5 verschiedenen Spalten auslesen. Diese haben unterschiedlich viele Einträge
"Set rngRange = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))" gibt dann aber immer die maximale Anzahl Zeilen. "For each..." müsste irgendwie die leeren Zellen ignorieren.
3. Aus den 5 Spalten mit den Produkten (A, E, I, M, Q)sollte die Produktgruppe aus der ersten Zelle der Spalte in die Beschriftung der 5 Pages übernommen werden. Die otxt müssen dann je Spalte auf den richtigen Pages erscheinen.
Entschuldige bitte wenn dies in meiner ersten Anfrage nicht so klar war.
Danke und Gruß/hp
Anzeige
lade mal ein Bsp.
05.08.2010 11:01:25
Tino
Hallo,
verstehen den Aufbau noch nicht richtig.
Gruß Tino
AW: lade mal ein Bsp.
05.08.2010 11:24:27
hp
Hallo Tino,
hier ein Beispiel. https://www.herber.de/bbs/user/70906.xls
Da es sich um Firmeninterne Daten handelt, habe ich die Inhalte durch Zahlen ersetzt.
Danke und Gruß/hp
AW: müsste funktionieren...
05.08.2010 13:42:18
hp
Hallo Tino,
das ist der Wahnsinn! Hätte nie gedacht, dass ich so schnell ein funktionierendes Programm nutzen könnte. Zudem ist das Modul extrem kurz.
Vielen, vielen Dank für deine Mühe.
Gruß/hp
Anzeige
Userform - Multipage - Listboxen
05.08.2010 13:55:21
fcs
Hallo hp,
Alternativvorschlag mit Nutzung einer Listbox je Page statt vielen Textboxen.
Preiseingabe des selektierten Produkts erfolgt in einer Textbox.
Eingaben in ein Userform müssen ja auch irgendwie verarbeitet bzw. in Tabellen zurückgeschrieben werden.
Da sind Listboxen wesenlich einfacher in der Programmierung als eine Vielzahl an Textboxen.
Gruß
Franz
https://www.herber.de/bbs/user/70917.xls
kleine Erweiterung
05.08.2010 14:08:06
Tino
Hallo,
wahrscheinlich möchtest Du die leere TxT- Box auch ausgeben,
dies kann man mit einer weiteren Codezeile erreichen.
Jetzt wird der eingetragene Wert in die Spalte 'Sortierung' eingetragen.
https://www.herber.de/bbs/user/70919.xls
Gruß Tino
Anzeige

299 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
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
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

Links zu Excel-Dialogen

ScrollBar TextBox

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
6
7
3
3
1
9
2
5
2
6
5
2
11
4
4
1
20
12
2
5
15
2
3
14
1