Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

UserForm Drop Down drucken

Betrifft: UserForm Drop Down drucken von: Andy
Geschrieben am: 15.08.2004 17:11:54

Hallo,

wie bekomme ich folgendes hin:
in Zelle a1 (Tabelle 1) habe ich ein Drop Down Menü mit dem ich den Namen der einzelnen Arbeitsblätter (Tabelle 1, Tabelle 2, sonstiges) auswählen kann. Nun möchte ich vom UserForm aus den Ausdruck eines Balttes entsprechend starten, das ich in der Zelle a1 ausgewählt habe. Kann mir da auch jemand weiterhelfen?

https://www.herber.de/bbs/user/9666.xls

Wäre sehr dankbar für eine Hilfe!

Gruß
Andy

  


Betrifft: AW: UserForm Drop Down drucken von: Bertram
Geschrieben am: 15.08.2004 17:59:05

Hi Andy,

aus einem UF geht das z.B. so:


Private Sub CommandButton1_Click()
Sheets(Sheets("Tabelle1").Range("A1").Value).PrintOut
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5


Es geht aber auch so:


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim Frage As String
If Target.Address(False, False) = "A1" Then
    Frage = MsgBox("Blatt drucken?", vbYesNo)
    If Frage = vbYes Then Sheets(Range("A1").Value).PrintOut
End If
End Sub


     Code eingefügt mit Syntaxhighlighter 2.5

Gruß
Bertram


  


Betrifft: Danke! von: Andy
Geschrieben am: 15.08.2004 18:03:17

Danke!!!


 

Beiträge aus den Excel-Beispielen zum Thema "UserForm Drop Down drucken"