per VBA InputBox in Zelle schreiben und drucken
03.05.2016 11:02:25
Dominic
ich benötige ein Skript bei dem ich einen Wert eingeben kann (1 bis 52) z. B. per InputBox. Dieser Wert wird in meine Tabelle in die Zelle C6 bis C12 übergeben.
Wie bekomme ich das hin? Mein folgendes Skript funktioniert nicht. Hier kommt immer der Fehler "Objekt erforderlich" und markiert mir die Zeile Anzahl = Value.Range("C6:C12")
Vielen Dank!
Sub StrichlisteDrucken()
ActiveSheet.Unprotect
'Spalten Ausblenden
' Zeilen vergrößern
Rows("6:12").RowHeight = 45
Columns("E:V").ColumnWidth = 12
Columns("X:X").ColumnWidth = 12
Columns("Z:Z").ColumnWidth = 12
Columns("AB:AC").ColumnWidth = 12
' Call InfosFuerZaehllistenEinfuegen568910
Dim Anzahl As Integer
Anzahl = InputBox(Chr(13) & Chr(13) & "Für welche Kalenderwoche soll die Liste ausgedruckt _
werden" & Chr(13) & "", "Bitte geben Sie die Kalenderwoche ein.")
If Anzahl 53 Then
MsgBox "Bitte eine Kalenderwoche auswählen. Der eingegebene Wert ist nicht erlaubt."
Exit Sub
Else
Anzahl = Value.Range("C12")
With ActiveSheet.PageSetup
.Zoom = False
.PrintArea = "$A$2:$AD$13"
.Orientation = xlPortrait
.Zoom = 70
End With
Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
End If
Rows("6:12").RowHeight = 15
Columns("E:V").ColumnWidth = 5
Columns("X:X").ColumnWidth = 6
Columns("Z:Z").ColumnWidth = 6
Columns("AB:AC").ColumnWidth = 9
ActiveSheet.Protect
End Sub
Anzeige