per steuerelement in dokument hin und her springen

Hallo, das ist mein erster Besuch hier, ich hoffe mir kann jemand weiterhelfen!
Ich bin gerade dabei, einen Kalender zu erstellen. Ich kontrollie per Drehfeld eine Jahresanzeige und eine Monatsanzeige, wobei bei der Monatsanzeige das Feld von Januar auf Februar weiter springt, wenn man den Wert per Klick erhöht.
Unter diesen beiden Drehfeldern habe ich nun ein fortlaufendes Kalenderblatt (von 1.1.04 bis 31.12.10) mit KalenderWochen-Anzeige und pro Wochentag einem Bereich zum Eintragen von Terminen. Eine KW nimmt 6 Zeilen ein. Ich möchte nun dass wenn ich mit den Drehfeldern die Werte des Monats- und des Jahresfeldes verändere, dass automatisch dieser Bereich angezeigt wird (z.b. "April" und "2004" zeigt als erste KW im Bildbereich Nummer 14 an, da in dieser KW der erste April liegt), wobei man natürlich noch manuell wieder hoch in den März und runter in den Mai scrollen kann. Die Zeile mit den Drehfeldern und die mit den Namen der Wochentage sind fixiert.
Ich weiß nicht ob diese Funktion überhaupt möglich ist, ich habe in der Hilfe darüber leider gar nichts gefunden. Ich hoffe dass mir hier jemand helfen kann!
Vielen Dank schonmal im Voraus,
Kathrin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Kathrin
du must in der Userform für den Commandbutton1 noch den Code tauschen!
Da ich nur mit den ersten Monaten getestet habe, habe ich vergessen den Code komplett
anzupassen!Ich hatte nur Januar bis Mai oder so! Hoffe du findest spass an VBA und dich
wohl im Forum!
LG aus BaWü
Willie


Private Sub CommandButton1_Click()
Dim auswahl As String
If SpinButton1.Value = 1 Then
wert = "Januar"
ElseIf SpinButton1.Value = 2 Then
wert = "Februar"
ElseIf SpinButton1.Value = 3 Then
wert = "März"
ElseIf SpinButton1.Value = 4 Then
wert = "April"
ElseIf SpinButton1.Value = 5 Then
wert = "Mai"
ElseIf SpinButton1.Value = 6 Then
wert = "Juni"
ElseIf SpinButton1.Value = 7 Then
wert = "Juli"
ElseIf SpinButton1.Value = 8 Then
wert = "August"
ElseIf SpinButton1.Value = 8 Then
wert = "September"
ElseIf SpinButton1.Value = 10 Then
wert = "Oktober"
ElseIf SpinButton1.Value = 11 Then
wert = "November"
ElseIf SpinButton1.Value = 12 Then
wert = "Dezember"
End If
auswahl = wert & " " & SpinButton2.Value
Cells.Find(What:=auswahl, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

Private Sub CommandButton1_Click() Dim auswahl As String If SpinButton1.Value = 1 Then wert = "Januar" ElseIf SpinButton1.Value = 2 Then wert = "Februar" ElseIf SpinButton1.Value = 3 Then wert = "März" ElseIf SpinButton1.Value = 4 Then wert = "April" ElseIf SpinButton1.Value = 5 Then wert = "Mai" ElseIf SpinButton1.Value = 6 Then wert = "Juni" ElseIf SpinButton1.Value = 7 Then wert = "Juli" ElseIf SpinButton1.Value = 8 Then wert = "August" ElseIf SpinButton1.Value = 8 Then wert = "September" ElseIf SpinButton1.Value = 10 Then wert = "Oktober" ElseIf SpinButton1.Value = 11 Then wert = "November" ElseIf SpinButton1.Value = 12 Then wert = "Dezember" End If auswahl = wert & " " & SpinButton2.Value Cells.Find(What:=auswahl, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate End Sub

Beliebteste Forumthreads (12 Monate)

per steuerelement in dokument hin und her springen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread