Zahl in Zelle Schreiben

Sub Inputbox_öffnen() ActiveSheet.Unprotect Password:="" Range("K1").Select Dim E As Variant E = InputBox("Jahreszahl eintragen", "Eingabebox") Range("K1").Value = E ActiveSheet.Protect Password:="" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Inputbox_öffnen() ActiveSheet.Unprotect Password:="" Dim E As Variant E = InputBox("Jahreszahl eintragen", "Eingabebox", 1, Type:=1) 'Typ 1 = nur Zahlen If StrPtr(E) = 0 Then Exit Sub 'Ausstieg wenn Abbrechen gedrückt If E ="" Or E 9999 Then MsgBox "Falsche Eingabe." Else Range("K1").Value = E End If ActiveSheet.Protect Password:="" End Sub

Hallo MaBlu,
Werner hat dir ja schon eine Antwort gegeben, aber auch ich möchte dir noch eine Möglichkeit nennen :).
Da ich selbst auf Arbeit mit Excel und VBA zu tun habe, weiß ich das man vieles gerne individuell eingestellt haben möchte.
Ich würde dir Vorschlagen, sofern du ein Arbeitsblatt für Formeln hast, dort diese 3 Varianten zu hinterlegen (Untereinander)

=Jahr(Heute())-1
=Jahr(Heute())
=Jahr(Heute())+1

Dann in dem Arbeitsblatt wo du das Jahr für den Kalender hast, über "Daten", "Datenüberprüfung" der zelle eine Liste mit Dropdownfunktion zu hinterlegen für die oberen 3 Zellen.
So kann du dann Individuell deinen kalender einstellen, auf das Jahr was du möchtest.
Kannst du selbst auch variieren, wenn du z.B. das vergangene Jahr nicht brauchst, kann der Code weg.
Falls du beim Start immer Automatisch, das jetzige Jahr drin haben willst.
Einfach die zelle per VBA einfügen lassen. Hier ein Beispiel:
VBA CODE, einzutragen in "DieseArbeitsmappe":

Private Sub Workbook_Open()
worksheets("Tabelle1").Range("A1").value = Worksheets"(Tabelle1").Range("A1").value
End Sub

Tabelle1 und Zelle A1, musst du ja individuell anpassen.
Dies wäre meine Lösung welche ich nutzen würde.
Vielleicht sagt auch diese dir zu, bzw. gibt dir Gedanken für was komplexeres :).
Mfg René

Sub Inputbox_öffnen() ActiveSheet.Unprotect Password:="" Dim E As Variant E = InputBox("Jahreszahl eintragen", "Eingabebox", 2016) 'Typ 1 = nur Zahlen If StrPtr(E) = 0 Then Exit Sub 'Ausstieg wenn Abbrechen gedrückt If E = "" Or E 9999 Then MsgBox "Falsche Eingabe." Else Range("K1").Value = E End If ActiveSheet.Protect Password:="" End Sub Gruss MaBlu

Sub Inputbox_öffnen() Dim E As Variant wiederholen: E = InputBox("Jahreszahl eintragen", "Eingabebox") If StrPtr(E) = 0 Then Exit Sub 'Ausstieg wenn Abbrechen gedrückt If E = "" Or E 9999 Then MsgBox "Falsche Eingabe." GoTo wiederholen Else ActiveSheet.Unprotect Password:="" Range("K1").Value = E End If ActiveSheet.Protect Password:="" End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahl in Zelle Schreiben

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread