Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Jahresauswahl bei Spinbutton

Forumthread: Jahresauswahl bei Spinbutton

Jahresauswahl bei Spinbutton
15.09.2008 15:09:55
Walter
Hallo Zusammen,
habe folgendes Makro:

Private Sub spnJ_Change()
TextBox10 = Format(spnJ, "yyyy")
End Sub


ich wollte damit das mir bei betätigen das akt.Jahr angezeigt wird und man dann das nächste
Jahr auswählen kann,
klappt nicht.
Was habe ich vergessen ?
mfg walter mg

Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jahresauswahl bei Spinbutton
15.09.2008 15:15:00
Rudi
Hallo,
welchen Wert hat denn der Spinbutton?
Gruß
Rudi
AW: Jahresauswahl bei Spinbutton
15.09.2008 15:25:35
Walter
Hallo Rudi,
in der Textbox steht nichts drin.
Ich beim anklicken bzw. auswählen durch den Spinbutton als
erstes das akt. Jahr ausgewählt wird und danach halt entweder 2007 oder auch 2009.
mfg walter mg
AW: Jahresauswahl bei Spinbutton
15.09.2008 16:01:03
Rudi
Hallo,
einfach Textbox1=Spinbutton1
Gruß
Rudi
Anzeige
Leider nicht
15.09.2008 17:44:00
Walter
Hallo Rudi,
habe so eingesetzt:

Private Sub spnJ_Change()
TextBox10 = spnJ
TextBox10 = Format(spnJ, "yyyy")
End Sub


wenn ich jetzt den Pfeil nach oben betätige, kommt 1899 dann 1900 und dann ist Schluß.
mfg walter mg

AW: Leider nicht
15.09.2008 21:50:46
Herby
Hallo Werner,
warum nicht so ?

Private Sub SpinButton1_SpinDown()
TextBox1.Value = TextBox1.Value - 1
End Sub




Private Sub SpinButton1_SpinUp()
TextBox1.Value = TextBox1.Value + 1
End Sub




Private Sub UserForm_Initialize()
TextBox1.Value = 2000
End Sub


Viele Grüße
Herby

Anzeige
Frage Begrenzung ?
16.09.2008 09:42:57
Walter
Hallo Herby,
Frage: kann man Zahlen eingrenzen z.b. von 1 bis 12 ?
mfg walter mg
AW: Frage Begrenzung ?
16.09.2008 10:43:00
Rudi
Hallo,
Eigenschaften Min und Max des Spinbuttons wie gewünscht festlegen (z.B. 1990-2020)
Code in der UF:

Private Sub SpinButton1_Change()
TextBox1 = SpinButton1
End Sub
Private Sub UserForm_Activate()
TextBox1 = SpinButton1.Min
End Sub


Gruß
Rudi

Anzeige
AW: Frage Begrenzung ?
16.09.2008 10:56:00
Walter
Hallo Rudi,
sehr nett das Du mir nochmal hilfst.
Habe dies so drin stehen, ich möchte nur die Bergrenzung von 1-12 bzw. Auswahl.

Private Sub UserForm_Activate()
TextBox9 = spnM.Min
End Sub




Private Sub spnM_Change()
TextBox9 = spnM
End Sub




Private Sub spnM_SpinDown()     'runter
TextBox9.Value = TextBox9.Value - 1
End Sub




Private Sub spnM_SpinUp()       'rauf
TextBox9.Value = TextBox9.Value + 1
End Sub


geht so nicht,
mfg walter mg

Anzeige
AW: Frage Begrenzung ?
16.09.2008 12:53:00
Rudi
Hallo,

Private Sub UserForm_Activate()
spnM.Min=1
spnM.Max=12
TextBox9 = spnM.Min
End Sub




Private Sub spnM_Change()
TextBox9 = spnM
End Sub


Und mehr nicht! SpinUp/ SpinDown kannst du löschen.
Gruß
Rudi

Anzeige
Rudi Super Danke !!!
16.09.2008 13:10:38
Walter
Hallo Rudi Super, danke !
mfg walter mg
AW: Leider nicht
15.09.2008 23:26:18
Rudi
Hallo,
was treibt dich zu Format?
Gruß
Rudi
Danke -)
16.09.2008 08:46:00
Walter
Guten Morgen Rudi,
ich wollte das Jahr hinterlegt haben, DU hast RECHT ich
habe das Beispiel von Herby genommen, funktioniert,
herzlichen Dank auch für deine Hilfe,
mfg walter mg
Anzeige
;

Forumthreads zu verwandten Themen

Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Anzeige
Ja-Nein Abfrage per VBA beantworten
rogger777

Hallo,
ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
10.11.2008 15:16:00
Thread-ID: 1023218
6 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Anzeige
Problem mit MSGBox vbYesNo
Jaffi

Hallo liebes Forum,
gaanz kleines Problem was ich da habe glaube ich.
Bin gerade dabei meinen Wareneingang den letzten Schliff zu verpassen.
Folgender Code macht eigentlich auch das was ich will:
If ..... Then msg = MsgBox(" " & vbNewLine & " Möc...
10.06.2009 11:26:56
Thread-ID: 1080384
5 Beiträge
Anzeige
vbYesNo!!!
serge

Hallo Leute
was klappt da nicht Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim wahl As Integer wahl = MsgBox("Bitte A1 kontrolieren mit yes wird der Drucker abgestellt!", vbYesNo, " _ Druck!") If wahl = vbYes Then Exit Sub Else ActiveWindow.SelectedSheets.PrintOut Copies:=1, Coll...
12.10.2009 10:00:53
Thread-ID: 1109016
7 Beiträge
Kombinationsfeld mit msgbox + vbYesNo
Dietmar

Hallo zusammen
ich benötige ein weiteres Featur in meinem Progrämmle.
Ich habe ein Kombinationsfeld, dem ich eine Liste von Ziffern 1- 20 zugewiesen habe. Das Ergebnis der Auswahl wird in A1 gezeigt.
Dem Kombinationsfeldes habe ich nachfolgendes Makro zugewiesen.
Wie kann ich er...
15.04.2010 16:20:35
Thread-ID: 1152046
5 Beiträge
MsgBox mit ja/nein
Karsten

Hallo,
Bei diesem Code kann ich momentan nur mit ok bestätigen. Kann mir bitte jemand die Variante fürs Abbrechen codieren?
Danke für eure Hilfe
Gruß
Karsten
ActiveCell > 0 Then
MsgBox "Stunde Löschen?"
05.10.2010 09:06:57
Thread-ID: 1180692
6 Beiträge
Anzeige
MsgBox: Abfrage ob Druckbereich ja nein
Bernd

Hallo zusammen,
nachfolgenden Code habe ich gerade mit Recorder aufgezeichnet.
Allerding soll nicht immer alles gedruckt werden sondern, einmal mit Tabelle "KfW" und Tabelle "Tilgungsplan Kfw" einmal ohne. Nun habe ich versucht eine Abfrage (an den mit Kreuzen dargestellten Code) mit Ms...
16.07.2013 11:30:36
Thread-ID: 1322686
7 Beiträge
Einfachen Ja Nein Button
Sandy

Hey,
Ich kenne mich leider nicht mit Makros aus. Würde gern einen Button so haben das sich eine Zelle per Mausklick auf Ja, Nein, und " "(also keine beschriftung) einstellt.
Weiß aber nicht wie:( Könntet ihr mir vllt Helfen?
Liebe Grüße
Sandy
26.07.2013 10:29:49
Thread-ID: 1324258
20 Beiträge
vbYes vbNo
Knoof

Hallo,
Ich habe ein Excel Sheet auf dem sich verschiedene Pflichtfelder befinden, sobald ein pflichtfeld nicht gefüllt ist und der User die Datei schließen möchte, taucht eine Meldung auf welche mit Ja oder Nein angeklickt werdne kann.
Drückt er auf Ja soll sich die Datei Schließen ohne...
28.01.2015 09:23:37
Thread-ID: 1405558
4 Beiträge
VBA MsgBox Ja/Nein funktioniert nicht?!
Bernd

Hallo zusammen,
ich bin begeisterter Leser dieses Forums und konnte hier schon viele Lösungen und hilfreiche Tipps finden. Leider bin ich jetzt an einem Punkt angekommen, zu dem ich hier und über Google keine Erklärung finden konnte.
Ich habe eine Userform, auf der ich mir Pfadangaben a...
27.11.2015 10:17:50
Thread-ID: 1461060
3 Beiträge
Flussdiagramm mit Ja/Nein Abfrage
mangokiwi

Hallo :)
leider ist die letzte VBA-Vorlesung schon eine Weile her und ich muss zugeben, dass ich nicht mehr so fit im Umgang mit VBA bin... *hust*
Ich möchte aber gerne eine Ja/Nein Abfrage mit VBA machen.
Die Abfrage kann dabei entweder von Benutzer manuell als Dropdown ausgewählt...
20.04.2016 10:32:34
Thread-ID: 1489112
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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