Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schaltfläche

schaltfläche
28.11.2014 06:48:45
Sandra
Hallo zusammen,
Wir bekommen jetzt excel 2010 vorher 2003.
Wir hatten über VBA immer eine Art schaltfläche
Jetzt kommt die Meldung:
Laufzeitfehler'1004':
Schriftgrad muss zwischen 1 und 409 Punkten liegen.
Dann gehe ich auf Debuggen.
Dann beim Code: Color Index =3 ein Fehler.
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = _
"Punkt für Komma ersetzen" & Chr(10) & "" & Chr(10) & "- Spalte H bis Spalte L selektieren" & Chr(10) & "- Strg+ H Taste drücken" & Chr(10) & "- Suchen nach: ein Punkt" & Chr(10) & "- Ersetzen nach: ein Komma" & Chr(10) & "- auf Alle ersetzen drücken" & Chr(10) & "" & Chr(10) & "Danach bitte auf diesen Button kl"
Selection.Characters(201).Insert String:="icken"
With Selection.Characters(Start:=1, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
With Selection.Characters(Start:=25, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=27, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=36, Length:=2).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=38, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=41, Length:=1).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=42, Length:=6).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=48, Length:=14).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=62, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=65, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=78, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=102, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=111, Length:=18).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=129, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=138, Length:=7).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=145, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=158, Length:=8).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=166, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=168, Length:=38).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("J28").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "PERSONAL.xls!Zeiterfassung1"
Range("J30").Select
End Sub
Woran liegt das und wie kann ich den Fehler beheben?
Lieben Dank
Sandy

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: schaltfläche
28.11.2014 08:16:14
{Boris}
Hi Sandra,
so wie ich das sehe, habt ihr einen Button aus der Formularsymbolleiste - und da kann man die Schrift nicht farbig gestalten. Das wiederum hat aber nix mit der Excelversion zu tun...
VG, Boris

AW: schaltfläche
28.11.2014 08:25:42
Sandra
Hallo Boris,
danke für deine hilfe
Ich hab diesen Code vorher in excel 2003 gehabtund hatte nie Probleme. Jetzt hab ich den Code in 2010 kopiert. Jetzt kommt diese Meldung
LG sandy

AW: schaltfläche
28.11.2014 10:57:14
Uwe
Hallo Sandy,
ich kann es jetzt gerade nicht mit E2010 testen, aber probiere es mal damit:
Sub Button1Beschriften()
With ActiveSheet.Buttons("Button 1")
.Text = "Punkt für Komma ersetzen" & Chr(10) & "" & Chr(10) & "- Spalte H bis Spalte L  _
selektieren" & Chr(10) & _
"- Strg+ H Taste drücken" & Chr(10) & "- Suchen nach: ein Punkt" & Chr(10) & "-  _
Ersetzen nach: ein Komma" & Chr(10) & _
"- auf Alle ersetzen drücken" & Chr(10) & "" & Chr(10) & "Danach bitte auf diesen  _
Button klicken"
With .Characters(Start:=1, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
With .Characters(Start:=25, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=27, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=36, Length:=2).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=38, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=41, Length:=1).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=42, Length:=6).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=48, Length:=14).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=62, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=65, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=78, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=102, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=111, Length:=18).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=129, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=138, Length:=7).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=145, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With .Characters(Start:=158, Length:=8).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=166, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With .Characters(Start:=168, Length:=38).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
.OnAction = "PERSONAL.xls!Zeiterfassung1"
End With
End Sub
Gruß Uwe

Anzeige
AW: schaltfläche
28.11.2014 11:58:26
Sandra
Hallo uwe,
Geht leider auch nicht.der damalige code lief über eine Formularbutton.
Anbei noch mal der Code vom Anfang:
Range("G12").Select
Application.CommandBars("Forms").Visible=True
Range("G8:H15").Select
ActiveSheet.Buttons.Add(308.25,100.5,295.5,237).Select
Selection.OnAction="PERSONAL.XLS!Zeiterfassung1"
Application.CommandBars("Forms").Visible=False
ActiveSheet.Shapes("Button 1").Select
Selection.Characters.Text = _
"Punkt für Komma ersetzen" & Chr(10) & "" & Chr(10) & "- Spalte H bis Spalte L selektieren" & Chr(10) & "- Strg+ H Taste drücken" & Chr(10) & "- Suchen nach: ein Punkt" & Chr(10) & "- Ersetzen nach: ein Komma" & Chr(10) & "- auf Alle ersetzen drücken" & Chr(10) & "" & Chr(10) & "Danach bitte auf diesen Button kl"
Selection.Characters(201).Insert String:="icken"
With Selection.Characters(Start:=1, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
With Selection.Characters(Start:=25, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=27, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=36, Length:=2).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=38, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=41, Length:=1).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=42, Length:=6).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=48, Length:=14).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=62, Length:=3).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=65, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=78, Length:=24).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=102, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=111, Length:=18).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=129, Length:=9).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=138, Length:=7).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=145, Length:=13).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Selection.Characters(Start:=158, Length:=8).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 12
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=166, Length:=2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection.Characters(Start:=168, Length:=38).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 18
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 3
End With
Range("J28").Select
ActiveSheet.Shapes("Button 1").Select
Selection.OnAction = "PERSONAL.xls!Zeiterfassung1"
Range("J30").Select
End Sub
Hoffe ihr findet eine Lösung.
Danke an Alle erstmal
Liebe Grüße
Sandy

Anzeige
AW: schaltfläche
30.11.2014 14:41:43
Uwe
Hallo Sandy,
ich habe nun herausgefunden, dass die Schriftgröße bei Farbänderungen einen Wert für den gesamten Text haben darf.
Mit folgendem Code geht es bei mir in E2010(wie Du siehst, lässt sich ein aufgezeichnetes Makro erheblich entschlacken ;-) ):
Sub ButtonErstellenUndBeschriften()
With ActiveSheet.Buttons.Add(308.25, 100.5, 295.5, 237)
.Visible = False
.Text = "Punkt für Komma ersetzen" & Chr(10) & "" & Chr(10) & _
"- Spalte H bis Spalte L selektieren" & Chr(10) & _
"- Strg+ H Taste drücken" & Chr(10) & _
"- Suchen nach: ein Punkt" & Chr(10) & _
"- Ersetzen nach: ein Komma" & Chr(10) & _
"- auf Alle ersetzen drücken" & Chr(10) _
& "" & Chr(10) & "Danach bitte auf diesen Button klicken."
'Voreinstellung für Textformate
.Font.Name = "Arial"
.Font.FontStyle = "Fett"
.Font.ColorIndex = xlAutomatic
.Font.Size = 12
'abweichende Textformate außer Schriftgrößen werden eingestellt
.Characters(1, 24).Font.ColorIndex = 3
.Characters(25, 2).Font.FontStyle = "Standard"
.Characters(36, 2).Font.ColorIndex = 5
.Characters(41, 1).Font.ColorIndex = 5
.Characters(48, 14).Font.ColorIndex = 5
.Characters(65, 13).Font.ColorIndex = 5
.Characters(102, 9).Font.ColorIndex = 5
.Characters(129, 9).Font.ColorIndex = 5
.Characters(145, 13).Font.ColorIndex = 5
.Characters(166, 2).Font.FontStyle = "Standard"
.Characters(168, 38).Font.ColorIndex = 3
'erst jetzt werden die abweichenden Schriftgrößen eingestellt
.Characters(1, 24).Font.Size = 18
.Characters(25, 2).Font.Size = 10
.Characters(166, 2).Font.Size = 10
.Characters(168, 38).Font.Size = 18
.OnAction = "PERSONAL.xls!Zeiterfassung1"
.Visible = True
End With
End Sub
Gruß Uwe

Anzeige
AW: schaltfläche
30.11.2014 22:28:28
Sandra
Hallo Uwe,
Danke für deine Mühe und deine Zeit.
Also muss ich alle Makros von 2003 umstellen. Denn in jeden wo ich die schaltfläche erstellt habe kommt der Fehler.
Lieb grüße
Sandra

AW: schaltfläche
30.11.2014 23:03:46
Uwe
Hallo Sandra,
Also muss ich alle Makros von 2003 umstellen.
ja, sieht wohl so aus. Das wusste ich bis zu Deiner Frage auch noch nicht, dass Microsoft so kreativ war. :-(
Gruß Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige