Hyperlink in Gültigkeit

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 5 And Target.Column = 1 Then Application.StatusBar = Target.Value Select Case Target.Value Case "Januar 2013" Range("A50").Select Case "Februar 2013" Range("F773").Select Case "Dezember 2013" Range("IV900").Select End Select End If End Sub

Diesen Bonus nehme ich gerne mit. ;-)
Folgefrage:
Ich habe den Code jetzt in meine Datei (in Zelle B3) eingebunden und entsprechend geändert.
Sieht gut aus und funktioniert. Unglücklicherweise sieht man diese Auswahl auch beim Druck. Gibt es eine "einfache" Möglichkeit, diese Zelle in der Bearbeitung anzuzeigen, aber nicht mitzudrucken? (idealerweise werden die Zellen A3 und B3 nicht mitgedruckt)
Wäre es z.B. ein Kombinationsfeld (VBA), dann könnte ich es in den Eigenschaften ändern, da es aber eine Zelle ist, wird es vermutlich schwerer. Vielleicht bin ich einfach an die Sache falsch rangegangen und hätte gleich ein VBA-Kombinationsfeld nutzen sollen.
Hast du oder jemand sonst eine Idee oder Verbesserungsvorschlag? Wenn der Code in ein Listen- oder Kombinationsfeld einfach zu integrieren ist, dann nehme ich auch gerne diese Lösung.
Sorry, da hätte ich wirklich erst überlegen sollen.

Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Code von Uwe Küstner If ActiveSheet.Name = "Zusammenfassung" Then On Error GoTo Ende Application.EnableEvents = False Cancel = True With ActiveSheet Range("A3:B3").NumberFormat = ";;;" .PrintOut Range("A3:B3").NumberFormat = "General" End With End If Ende: Application.EnableEvents = True End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean) 'Code von Uwe Küstner 'Referenzierung verbessert von Klaus M.vdT. If ActiveSheet.Name = "Zusammenfassung" Then On Error GoTo Ende Application.EnableEvents = False Cancel = True With ActiveSheet .Range("A3:B3").NumberFormat = ";;;" .PrintOut .Range("A3:B3").NumberFormat = "General" End With End If Ende: Application.EnableEvents = True End Sub

Hi,
mit einer ComboBox geht es genauso, sogar noch einfacher (da du die Zelle nicht mehr abfragen musst sondern direkt das ComboBox-Ereigniss nehmen kannst).
erstelle eine ComoBox namens "ComboBox1", weise ihr deine "Januar 2013" - "Dezember 2013" Werte zu. Im Entwurfsmodus doppelclick auf die Box und folgenden Code:

Private Sub ComboBox1_Change()
Application.StatusBar = ComboBox1.Value
Select Case ComboBox1.Value
Case "Januar 2013"
Range("A50").Select
Case "Februar 2013"
Range("F773").Select
Case "Dezember 2013"
Range("IV900").Select
End Select
End Sub

natürlich erweitern wie oben. Den Bonus hab ich drinnen gelassen ;-)
Dann noch rechtsclick, Eigenschaften und den Haken bei "Objekt drucken" weg.
Grüße,
Klaus M.vdT

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Hyperlink in Gültigkeit

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread