Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
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
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spinbutton in UF und Textbox

Spinbutton in UF und Textbox
12.07.2008 16:08:03
Eggi
Hallo Zusammen
Evt. kann mir jemand von Euch VBA-Janer bei dieser für mich schwierigen Aufgaben dabei helfen.
Ich habe in einer UF ein Spinbutton und eine Textbox.
Wie kann ich das bewerkstelligen, dass die Fragen in Tabelle1 die untereinander stehen mit dem Spinbutton angesprochen werden und dann in eben nur eine Textbox übertragen werden.
Beispiel: Frage1 in Textbox. Beim betätigen des Spinbutton zu Frage2 und diese in Textbox usw.
Ist das überhaupt möglich mit einem Spinbutton in einer Userform?
Für Eure Hilfe wäre ich Euch sehr dankbar.
herzliche Grüsse
Eggi (Egidio)

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spinbutton in UF und Textbox
12.07.2008 16:51:57
Gerd
Hallo Eggie,

Private Sub UserForm_Initialize()
With Me
.SpinButton2.Min = 1
.SpinButton2.Max = 20
.SpinButton2.Value = 1
.TextBox1 = Cells(SpinButton2, 1)
End With
End Sub




Private Sub SpinButton2_SpinDown()
Me.TextBox1 = Cells(SpinButton2, 1)
End Sub




Private Sub SpinButton2_SpinUp()
Me.TextBox1 = Cells(SpinButton2, 1)
End Sub


Dann bastel dir etwas zusammen, noch etwas für 's Sheet vor Cells schreiben.
Gruß Gerd

Anzeige
AW: Spinbutton in UF und Textbox
12.07.2008 17:05:54
Eggi
Hallo Daniel
Vielen vielen Dank, dass ist genau was ich gesucht habe.
Sorry, wenn ich Dich dabei um Hilfe bitte.
Wie kann ich den untenstehenden Code so einfügen, dass wenn ich Frage1 habe mit der Combobox (Drei Auswahlmöglichkeiten) die entweder A,B oder C in die jeweilige Zelle B1 bzw. zu Frage2 in B2 zu Frage3 in B3 etc. in die richtige Zelle schreibt. Es existiert nur eine einzige Combobox und diese Auswahl gilt für alle Fragen.

Private Sub UserForm_Activate()
With Me.ComboBox1
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
End Sub




Private Sub ComboBox1_Change()
ThisWorkbook.Sheets("Tabelle1").Range("B1") = Me.ComboBox1.Value
End Sub


Für Deine Hilfe wäre ich sehr dankbar.
herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
12.07.2008 17:39:00
Daniel
HI
ThisWorkbook.Sheets("Tabelle1").cells(me.SpinButton1.Value, 2) = Me.ComboBox1.Value
Gruß, Daniel

AW: Spinbutton in UF und Textbox
12.07.2008 17:52:00
Eggi
Hallo Daniel
Habe es mit dem Code versucht, aber es schrieb immer nur auf B1. Mit Deinem Code funktionierts perfekt.
Möchte mich an dieser Stelle nochmals für Deine Hilfe bedanken.
Auch an Gerd ein grosse Dankeschön.

Private Sub ComboBox1_Change()
If TextBox1.Text = Sheets("Tabelle1").Cells(SpinButton1.Value, 1).Value Then
Sheets("Tabelle1").Range("B1") = Me.ComboBox1.Value
End If
If TextBox1.Text = Sheets("Tabelle1").Cells(SpinButton1.Value, 1).Value Then
Sheets("Tabelle1").Range("B2") = Me.ComboBox1.Value
End If
End Sub


herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 12:55:48
Eggi
Hallo Zusammen
Eigentlich funktioniert es perfekt. Damit ich die AddItem nicht 50 Mal schreiben muss für jede Combobox wollte ich eben diese AddItem in eine With me.. and verbinden. Leider funktioniert es nicht.
Könnte mir jemand dabei helfen was ich da wieder mal falsch geschrieben habe. Im Forum habe ich danach gesucht aber leider nichts gefunden.

Private Sub UserForm_Activate()
With Me.ComboBox1 and Me.ComboBox2 and Me.ComboBox3 and Me.Combobox4 'etc....hier kommen eben  _
noch mehrere Comboboxen
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
End Sub


herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 14:50:00
Daniel
Hi
wenn deine Comoboxen so benannt sind, dann könntest du dir das leben so einfacher machen:

Dim i As Long
For i = 1 To 50
With Me.Controls("Combobox" & i)
.AddItem "A"
.AddItem "B"
.AddItem "C"
End With
Next


Gruß, Daniel

AW: Spinbutton in UF und Textbox
13.07.2008 15:07:15
Eggi
Hallo Daniel
Besten Dank für Deine Hilfe.
Mit dem Einsetzen der Dim-Anweisung habe ich die Datei jetzt völlig beedet und es funktiert perfekt.
Möchte mich nochmals für Deine Hilfe bedanken. Teilweise getraue ich mich nicht im Forum auch so super Hilfestellungen zu geben, da ich mich noch zu unsicher fühle. Aber mit der Zeit und viel Uebung möchte ich auch Anderen im Forum helfen.
Nochmals Danke.
herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 22:55:26
Eggi
Hallo Daniel, Hallo Zusammen
Habe nochmals eine Frage bezüglich der Combobox. Von der Combobox in die Zelle schreiben geht wunderbar. Solange die Userform aktiviert bleibt ist der eingegebene Wert in der Combobox noch beständig danach nicht mehr.
Habe versucht mit der zweite Codezeile den Wert wieder in die Combobox zu übertragen. Leider ohne Erfolg. Da die Combobox mit einem SpinButton verknüpft ist kann ich leider nicht die direkte Zelle ansprechen.
Eventuell kann mir dabei geholfen werden.

Private Sub ComboBox1_Change()
ThisWorkbook.Sheets("Tabelle1").Cells(Me.SpinButton1.Value, 2) = Me.ComboBox1.Value
Me.ComboBox1.Value = Sheets("Tabelle1").Cells(Me.SpinButton1.Value, 2) ' sollte von Zelle in  _
Combo..
End Sub


herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 23:03:00
Daniel
Hi
überleg nochmal genau, was du wann haben willst und lad vorallem mal deine Beispieldatei hoch.
das vereinfacht vieles.
das was du da versuchst hast zu programmieren, ist doch überflüssig, denn wenn ich den Wert von der Combobox in die Zelle schreibe, dann ist es nicht notwendig, gleich danach wieder den Zellwert in die Combobox zu schreiben, weil es ja der gleiche wert ist.
oder willst du, daß beim betätigen des Spin-Buttons der entsprechende Zellwert in die Comobox übergeben wird, falls der Anwender schon mal eine Antwort für diese Frage abgegeben hat?
wenn ja, dann muss der entsprechende Code aber in das Makro "Spinbutton_Change()"
Gruß, Daneil

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 23:42:06
Eggi
Hallo Daniel
Habe die Datei extrem verkürzt auf eine einzige Tabelle mit xxxx Daten.
https://www.herber.de/bbs/user/53786.xls
Es geht mir darum, dass der User die Comboboxen betätigt. Wenn der User die die Datei wieder benutzt sollte der entsprechende ausgewählte Eintrag wieder in die Combobox zurück. Zudem sollten die Comboboxen wieder entleert werden wenn die zweite Frage beantwortet werden muss.
Kann es nicht so gut erklären. Vieleicht ist es besser wenn Du die Datei vor Dir siehst.
herzliche Grüsse
Eggi (Egidio)

Anzeige
AW: Spinbutton in UF und Textbox
13.07.2008 23:45:00
Eggi
Hallo Daniel
Sorry habe die Frage nicht auf offen gestellt.
Datei habe ich hochgeladen
herzliche Grüsse
Eggi (Egidio)

AW: Spinbutton in UF und Textbox
15.07.2008 21:44:47
Eggi
Hallo Zusammen
Das Thread wird geschlossen.
Danke
Eggi

300 Forumthreads zu ähnlichen Themen

Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Anzeige
Cursor springt in Pampa (MultiLine TextBox)
Kilo

Hallo liebe VBA Profis
(Danke an Jürgen, der sich meines Problems annehmen wollte, aber der UpLoad meiner Datei war irgendwie fehlgeschlagen - hier der 2. Versuch)
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene...
11.08.2008 12:15:00
Thread-ID: 1000795
5 Beiträge
In derTextBox das Format ändern
edie

Hallo zusammen,
würde gerne, wenn es möglich wäre, das Datum in der TextBox im Format TT.MM.YYYY
zurückschreibe in die Zelle A1 im Format YYYY-MM-TT 00:00 z. B. 2008-07-01 00:00
Wenn es möglich ist dann wie?
Hat jemand eine Idee und kann weiter helfen?
Danke im Voraus.
...
13.08.2008 15:27:49
Thread-ID: 1001560
3 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Höhe einer Textbox nach Grafik ausrichten
TomTom

Hi,
ich habe eine Frage zur Ausrichtung einer Textbox: Ich habe auf meinem Sheet ein paar Textboxen (untereinender) die je nach Grösse und Inhalt zueinander in Höhe ausgerichtet werden (Makro)
Ganz unten im Sheet habe ich sowas , wie eine Fusszeile eingefügt, eine kleine Grafik (jpg, ei...
04.09.2008 11:19:00
Thread-ID: 1007335
5 Beiträge
Fokus in Textbox und Curser hinter Text
Reinhard

Hallo Wissende,
Autofilter "vergißt" einige Zeilen wenn mehr als 1000 unterschiedliche Listeneinträge da sind.
Deshalb bastelte ich mir folgenden Code. man hat im Blatt eine TextBox und eine Listbox. Je nach Eingabe in die Textbox erscheinen in der Listbox nur die Einträge die anfangs s...
12.09.2008 12:14:38
Thread-ID: 1009326
6 Beiträge
Externen Datensatz in TextBox einfügen
Wolfgang

Hallo,
Nachdem ich Ihr mir schon einmal sehr geholfen habt, versuche ich es noch einmal:
Ein Datensatz wird aus einer Datenbank (keine Access-Datenbank) ins Clipboard kopiert, danach in Excel eine UserForm mit einer TextBox geöffnet, die den Datensatz aufnehmen und danach an ein Excel-T...
19.09.2008 16:28:23
Thread-ID: 1011092
8 Beiträge
Druckerauswahl in TextBox 'auslagern'
Henner

Hi,
ich drucke (erzeuge) in meiner Mappe über den folgenden Code (ein PDF File):
Sub Print() Application.ActivePrinter = "FreePDF XP auf Ne02:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "FreePDF XP auf Ne02:", Collate:=True Application.ActivePrinter = "Brother...
07.10.2008 11:58:00
Thread-ID: 1014674
2 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox 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
1
6
4
2
4
9
4
5
7
1
2
2
2
2
3
3
1
4
9
9
2
2
5
2
1