Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform mit Spinbutton

Userform mit Spinbutton
27.10.2017 10:07:05
Sigrid
Guten Morgen,
ich habe eine kleine Datenbank und damit eine Userform mit Textboxen
erstellt.
Label1 ist die Nummerierung der Datensätze die ab Zelle A3 anfängt.
Jetzt möchte ich gern mittels Spinbutton zum nächsten Datensatz und der soll
dann in der Userform angezeigt werden.
So geht es nicht: 
Private Sub xSpinButton1_SpinDown()
ActiveSheet.Range("A3") = ActiveSheet.Range("A3") - 1
UF_Daten.Label1 = ActiveSheet.Range("A3").Value
UF_Daten.Show
End Sub


Private Sub xSpinButton1_SpinUp()
ActiveSheet.Range("A3") = ActiveSheet.Range("A3") + 1
UF_Daten.Label1 = ActiveSheet.Range("A3").Value
UF_Daten.Show
End Sub
Vielleicht hat jemand ein kleines Beispiel.
gruß Sigrid aus r

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
habe dies gefunden, funktioniert aber
27.10.2017 10:29:36
Sigrid
Hallo nochmal,
habe dies gefunden, der nächste Datensatz wird angezeigt,
allerdings möchte ich das der obere Datensatz also in Zeile 3 nicht
weiter nach oben geht.
gruß sigrid r
Private Sub SpinButton1_SpinDown()
ActiveCell.Offset(1, 0).Select
UserForm_Initialize
End Sub

Private Sub SpinButton1_SpinUp()
If ActiveCell.Row = 1 Then _
ActiveCell.Offset(1, 0).Select              'dieser Befehl beugt einem Fehler vor
'falls du in der obersten Zelle nach oben  _
willst
ActiveCell.Offset(-1, 0).Select
UserForm_Initialize
End Sub

Anzeige
AW: habe dies gefunden, funktioniert aber
27.10.2017 11:04:25
JoWE
Hallo Sigrid,
vllt. so wie in diesem einfachen Beispiel, welches Du auf Deine Umgebung umbastelst:
(hier nur unter Verwendung von TextBoxen statt der Label): 
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub SpinButton1_SpinDown()
On Error GoTo fb_spinbutton1
TextBox1 = TextBox1.Value - 1
If TextBox1
Gruß
Jochen
Danke Jochen, habe noch die Lösung.. -)
27.10.2017 11:13:20
Sigrid
Hallo Jochen,
danke für die Unterstützung.
Habe gerade mal selbst rumprobiert und die Lösung gefunden, so das
nach oben nur bis zur Zelle A3 geht. 
Private Sub SpinButton1_SpinUp()                ' nach oben
If ActiveCell.Row = 3 Then
Exit Sub
Else
ActiveCell.Offset(-1, 0).Select
End If
UserForm_Initialize
End Sub
mfg gruß sigrid aus r
Anzeige

104 Forumthreads zu ähnlichen Themen

Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Anzeige
Userform ohne überschrift und ohne Löschbutton
Lutz

Hallo,
wie kann ich in einer Userform die blaue "Caption-Leiste" und den "Exit-Button" entfernen, das diese beim Aufruf nicht mit erscheinen?
M.f.G.
Lutz
28.11.2009 15:41:56
Thread-ID: 1120708
6 Beiträge
UserForm mittels vba ohne separaten Button starten
Ole

Hallo Ihr Profis,
sitze schon ewig und google aber habe seit Stunden nicht gefunden, was ich anders machen muß. Würde mich riesig freuen, wenn Ihr helfen könntet. Habe folgendes Problem: Habe in meinem Projekt eine UserForm erzeug, wie man dies ganz normal tut. Projekt, rechte Maus, Einfüge...
22.05.2010 21:01:46
Thread-ID: 1158426
7 Beiträge
Anzeige
Eingabe über userform mit optionbuttons
Stefan

Hallo zusammen,
vielleicht hat von Euch jemand eine Idee. Ich habe eine Tabelle mit 7 Spalten. In diesen stehen Mailadressen für verschiedene Themengebiete drinnen. Zusätzlich gibt es eine 8.Spalte für 4 verschiedene Bereiche.
Ich habe jetzt über jeder Spalte einen Button eingebaut, der...
27.04.2011 18:00:25
Thread-ID: 1212070
7 Beiträge
Websiten mit Command Button öffnen
Kampfbiber

Hallo Exel VBA Profis
Ich möchte über einen Button mehrere Websiten öffnen lassen, d. h jede Website in einem eigenen Tab des IE.
Das daher weil es z. b. 3 verschiedene Hersteller von Luftfederbälgen gibt und ich alle auf einmal öffnen muss.
Mit dem untenstehendem VBA Code funktioni...
14.09.2011 17:44:30
Thread-ID: 1229846
2 Beiträge
Optionsbuttons mit und ohne Userform
Marlon

Guten Morgen,
ich hab ein paar grundlegende Fragen zu Optionsbuttons auf einem Sheet:
[Hintergrund: Ich möchte Rahmen mit Optionsbuttons auf dem Sheet plazieren. Einer soll als Vorauswahl aktiviert sein.]
- Wie spreche ich aus VBA Optionsbuttons an, wenn sie nicht in einer Userform...
09.11.2011 09:38:12
Thread-ID: 1237123
5 Beiträge
userform frame1 mit 2optionbutton abfragen!
Lisa

Hallo zusammen, ich habe in meiner Userform1 ein Frame mit 2 Optionbutton
OptionButton1.Caption = "ja"
OptionButton2.Caption = "nein"
einer der beiden muss zwingend betätigt werden !
Dazu müsste also der Wert geprüft werden!
ich habe es so versucht, dann kommt aber immer die...
06.12.2011 14:49:23
Thread-ID: 1240854
3 Beiträge
Neue Datei mit CommandButton öffnen
Peter

Hallo Leute,
ich habe ein Problem. Wenn ich in meiner Excel Datei auf einen CommandButton klicke, sollte eine andere Excel-Datei geöffnet werden.
Dies funktioniert auch ohne Probleme. Hier der Code:
Private Sub CommandButton1_Click() Dim objExcel As Object Set objExcel = CreateObje...
08.03.2012 19:36:46
Thread-ID: 1254260
7 Beiträge
Anzeige

Links zu Excel-Dialogen

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