Hallo zusammen, ich möchte eine Befehlschaltfläche in VB Programmieren!
Es geht um folgendes Problem, ich habe in Excel ein Angebot erstellt, bei dem mir alle Preise angezeigt werden, jetzt möchte ich einen Button programmieren, mit dem es durch betätigen (klicken) möglich ist, beispielsweise die Zelle A1, B3 u D4 unsichtbar zu machen und gleichzeitig einen Druckbefehl zu erteilen. Bei dem Ausdruck sollen dann alle Zeilen bis auf A1, B3 u D4 sichtbar bzw dargestellt sein…
Mfg
Tim
Es geht um folgendes Problem, ich habe in Excel ein Angebot
erstellt, bei dem mir alle Preise angezeigt werden, jetzt
möchte ich einen Button programmieren, mit dem es durch
betätigen (klicken) möglich ist, beispielsweise die Zelle A1,
B3 u D4 unsichtbar zu machen und gleichzeitig einen
Druckbefehl zu erteilen. Bei dem Ausdruck sollen dann alle
Zeilen bis auf A1, B3 u D4 sichtbar bzw dargestellt sein…
Hallo Tim,
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
Ansicht—Symbolleisten–Formular, ziehe dir da eine Schaltfläche auf und weise ihr das Makro zu.
Sub Druck()
Dim Farbe As Integer
Farbe = Range(„A1“).Font.ColorIndex
Range(„A1,B3,D4“).Font.ColorIndex = 2 'weiß
ActiveSheet.PrintOut
Range(„A1,B3,D4“).Font.ColorIndex = Farbe
End Sub
Gruß
Reinhard
Hallo Reinhard,
danke für deine Hilfe!!!
Die Zeilen funktionieren ganz gut, allerdings möchte ich den Code unter Steuerelemente toolbox einfügen… Hab ich auch gemacht u es funktioniert ganz gut… Allerdings, bleiben die Zellen nach dem drucken auch noch weiß u sie sollten wieder die ursprüngliche Farbe bekommen… Wie kann ich das jetzt in den Code mit einbauen?
Mfg
Tim
Die Zeilen funktionieren ganz gut, allerdings möchte ich den
Code unter Steuerelemente toolbox einfügen… Hab ich auch
gemacht u es funktioniert ganz gut… Allerdings, bleiben die
Zellen nach dem drucken auch noch weiß u sie sollten wieder
die ursprüngliche Farbe bekommen… Wie kann ich das jetzt in
den Code mit einbauen?
Hallo Tim,
kann ich nicht nachvollziehen. Bei mir sind die Zellfareben der drei Zellen nur beim Druck/Vorschau weiß.
Private Sub CommandButton1_Click()
Dim Farbe As Integer
Farbe = Range(„A1“).Font.ColorIndex
Range(„A1,B3,D4“).Font.ColorIndex = 2 'weiß
ActiveSheet.PrintPreview
'ActiveSheet.PrintOut
Range(„A1,B3,D4“).Font.ColorIndex = Farbe
End Sub
Gruß
Reinhard
Hallo Reinhard,
vielen Dank noch mal für deine Hilfe, ich weiß das echt zu schätzen! Also jetzt klappt es auch bei mir, hatte vorher nur eine Zeile vergessen!!! Vielen vielen Dank!!