Clever-Excel-Forum › Office-Anwendungen › Excel v
Textfarbe ändern mit commbutton

Thema geschlossen 
Baumstrukturmodus
Textfarbe ändern mit commbutton
MichaX Offline
pausiert
Registriert seit: 26.08.2016
Version(en): 2016
#1
12.10.2016, 09:51
Hallo zusammen ich bräuchte mal Hilfe zu einen Thema wo ich nichts Finden kann. Undecided
Ich denke das ich schon ganz gut in Excel bin aber hier sind einfach meine grenzen. :s
Und zwar geht darum das ich Formulare habe die ich einmal mit dem Pc ausfühle und einmal die Formulare habe die eine Kollegin mit der Hand ausfühlt aber Blanco Formulare unterschreiben list die ich dann nachträglich Drucken muss.
Da aber nicht Doppel gedruckt werden soll muss ich ein paar Sachen Ausblenden Text in weiß und die Ramen wider weg.
Jetzt wehre das was ich gerne machen würde das ich sage über einen Commbutton zusagen das was nicht gedruckt will soll der Text in der Zelle in weis umwandeln übereinen Commbutton. 
Und das ganze habe ich mir so gedacht Commbutton 1 soll heißen Ausblenden und Commbutton 2 Einblenden also Text wider in Schwarz.
Dazu suche ich eine Formel Textfarbe ändern mit Commbutton. 

Vieleicht ist es ja so gar ganz einfach.


Private Sub CommandButton1_Click()

End Sub

Vielen Dank schon mal im voraus. Blush
Suchen
Top
Crazy Tom Offline
Benutzer
Registriert seit: 12.04.2014
Version(en): Office 365
#2
12.10.2016, 10:02
Hallo

du weißt wie du die Schriftfarbe und Rahmen von Hand veränderst?
dann mach das doch von Hand und lass den Makrorekorder dabei mit laufen
dann hast du schon mal einen Ansatz den man hier noch bearbeiten kann

MfG Tom
Suchen
Top
MichaX Offline
pausiert
ThreadStarter
Registriert seit: 26.08.2016
Version(en): 2016
#3
12.10.2016, 10:07
Hallo ja super werde ich probieren.
Da ich noch nicht mit dem Makrorekorder gearbeitet habe was macht er genau nur ein Video aufnehmen.
Suchen
Top
Crazy Tom Offline
Benutzer
Registriert seit: 12.04.2014
Version(en): Office 365
#4
12.10.2016, 10:14
Hallo

der Makrorekorder zeichnet jeden Schritt auf den du im Tabellenblatt ausführst
und wandelt diese Schritte in VBA-Code um
da wird es danach nur noch erforderlich sein den Code ein bissel zu bereinigen

ansonsten schau mal hier

http://www.online-excel.de/excel/singsel_vba.php?f=84

MfG Tom
Suchen
Top
MichaX Offline
pausiert
ThreadStarter
Registriert seit: 26.08.2016
Version(en): 2016
#5
12.10.2016, 10:34
Ich glaube jetzt geht die suche los was man brauch.
Aber sehr schöne Idee :19:


Sub Doppeldruck()
'
' Doppeldruck Makro
' Aus und Einblenden
'

'
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-36
    Range( _
        "A2:B6,B8,A7:H7,G1,H2,H3,G3,G4,G5,G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14,B15,B16,B17" _
        ).Select
    Range("B17").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,A2:B6,B8,A7:H7,G1,H2,H3,G3,G4,G5,G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14" _
        ), Range("B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24")).Select
    Range("B31").Activate
    ActiveWindow.SmallScroll Down:=9
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,B33,A34,B34,B35,B36,B37,A38,A39,B39,B38,G39,A2:B6,B8,A7:H7,G1,H2,H3,G3,G4,G5" _
        ), Range( _
        "G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24" _
        )).Select
    Range("G39").Activate
    ActiveWindow.SmallScroll Down:=15
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,B33,A34,B34,B35,B36,B37,A38,A39,B39,B38,G39,B41,B42,B43,B44,F46,B46,A46,B47,A48:B48" _
        ), Range( _
        "A49:B49,A50:B50,A51,A52:B52,A53,A54:B54,B51,B53,F50,F51,F52,D53:E53,A2:B6,B8,A7:H7,G1,H2,H3,G3,G4,G5,G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14" _
        ), Range("B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24")).Select
    Range("D53").Activate
    ActiveWindow.SmallScroll Down:=12
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,B33,A34,B34,B35,B36,B37,A38,A39,B39,B38,G39,B41,B42,B43,B44,F46,B46,A46,B47,A48:B48" _
        ), Range( _
        "A49:B49,A50:B50,A51,A52:B52,A53,A54:B54,B51,B53,F50,F51,F52,D53:E53,B56,A56,B57,B58,B59,B60,B61,B62,E64,F64,G64,A2:B6,B8,A7:H7,G1,H2,H3,G3,G4,G5" _
        ), Range( _
        "G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24" _
        )).Select
    Range("G64").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-57
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,B33,A34,B34,B35,B36,B37,A38,A39,B39,B38,G39,B41,B42,B43,B44,F46,B46,A46,B47,A48:B48" _
        ), Range( _
        "A49:B49,A50:B50,A51,A52:B52,A53,A54:B54,B51,B53,F50,F51,F52,D53:E53,B56,A56,B57,B58,B59,B60,B61,B62,E64,F64,G64,F1,A2:B6,B8,A7:H7,G1,H2,H3,G3,G4" _
        ), Range( _
        "G5,G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24" _
        )).Select
    Range("F1").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Union(Range( _
        "B26,B27,A28,A29,A30,A31,A26,A27,B28,B29,B30,B31,B33,A34,B34,B35,B36,B37,A38,A39,B39,B38,G39,B41,B42,B43,B44,F46,B46,A46,B47,A48:B48" _
        ), Range( _
        "A49:B49,A50:B50,A51,A52:B52,A53,A54:B54,B51,B53,F50,F51,F52,D53:E53,B56,A56,B57,B58,B59,B60,B61,B62,E64,F64,G64,F1,H1,A2:B6,B8,A7:H7,G1,H2,H3,G3" _
        ), Range( _
        "G4,G5,G6,F6,H4,H5,H6,F12,B11,B12,A11,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23,B24,F23,F24" _
        )).Select
    Range("H1").Activate
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With
    Range("A1").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1:H63").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("B4").Select
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Selection.Delete
    Range("A9:H63").Select
    With Selection.Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveWindow.SmallScroll Down:=-27
    Range("B5").Select
End Sub
Suchen
Top
MichaX Offline
pausiert
ThreadStarter
Registriert seit: 26.08.2016
Version(en): 2016
#6
12.10.2016, 11:35
Hallo noch mal also so wie ich das sehe krieg ich das alleine hin schon mal vielen danke.
Aber eins habe ich noch wenn ich jetzt meine zwei Button erstellt habe wie kann es so machen das die immer in meiner Excel sind.
Also wenn ich play Drücke kann ich den Button benutzen aber wie kann ich es so abspeichern das es immer in der Excel ist.
Und kann ich mit dem Recorder auch alle folge Mappen machen das wenn ich den Button drücke auch auf den folge Mappen alles weg ist. Blush
Suchen
Top
MichaX Offline
pausiert
ThreadStarter
Registriert seit: 26.08.2016
Version(en): 2016
#7
14.10.2016, 10:50
Hallo noch mal zusammen.
Ich weis leider nicht weiter bis jetzt habe ich es gut hin bekommen ich kriege einen Button erschaffen und kriege es hin über den Button das aus zu Blenden was ich will.
Jetzt meine frage jedes mal wenn ich es Speichern will kommt eine Fehlermeldung hier mal einen Anhang.
Kann mir bitte jemand sagen was ich Falsch mache. Huh


Angehängte Dateien Thumbnail(s)
   
Suchen
Top
IchBinIch Offline
pausiert
Registriert seit: 21.07.2016
Version(en): 2007
#8
14.10.2016, 11:19 (Dieser Beitrag wurde zuletzt bearbeitet: 14.10.2016, 11:20 von IchBinIch.)
Hallo,

Arbeitsmappen mit Makros lassen sich nicht als *.xlsx speichern. Hierbei gehen die Makros verloren.
Datei speichern unter *.xlsm (Arbeitsmappe mit Makros).

Gruß
Ich
Suchen
Top
schauan Offline
Einer von hier
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
#9
15.10.2016, 19:40
Hallöchen,

und falls Du die Datei doch ohne Makros speichern willst, kannst Du die Meldungen mit Application.DisplayAlerts=False ausschalten. Einschalten nach dem Speichern nicht vergessen.
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Homepage Suchen
Top
MichaX Offline
pausiert
ThreadStarter
Registriert seit: 26.08.2016
Version(en): 2016
#10
19.10.2016, 13:53
Hallo zusammen ich wollte mich noch mal bedanken wegen der großen Hilfe hier.
Habe es so weit hin bekommen echt tool!!! :19:
Suchen
Top
Thema geschlossen 


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste