Live-Forum - Die aktuellen Beiträge
Datum
Titel
09.05.2024 13:10:18
Pivot-Tabelle mit Monaten und nicht Tagen
09.05.2024 11:36:45
workbook schließen ohne abfrage
09.05.2024 08:18:18
Feldformatierung (Einzahl/Mehrzahl) ohne VBA
08.05.2024 23:37:20
Datenverbindung automatisiert aktualisieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
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
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

kleine Frage

kleine Frage
07.05.2020 09:37:17
kurt
Guten Morgen,
hatte das Problem von gestern gelöst,
allerdings wollte ich dann das Makro für alle 12 Monate durchführen.
'---- hier die Sa und Sonntage alle Monate rot färben ----
Dim c As Variant
Dim i As Variant
For i = 1 To 12
Sheets(i).Select
For Each c In ActiveSheet.Range("B14:c44")
ActiveSheet.Unprotect (getStrPasswort)
If Weekday(c) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c) = 7 Then
c.Font.Color = 255
End If
Next c
Next i
leider kommt Fehlermeldung,
gruß kurt k

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Grosse Frage: Was für eine Fehermeldung (owT)
07.05.2020 09:55:39
EtoPHG

Laufzeitfehler 13
07.05.2020 10:26:14
kurt
Guten Morgen,
Laufzeitfehler 13
Typen unverträglich
bleibt hier stehen:
If Weekday(c) = 1 Then
es sollen die aktive Sheet und die nächsten 11 Sheet
die rot Sa und So gesetzt werden.
gruß kurt k
AW: Laufzeitfehler 13 (Typen unverträglich!)
07.05.2020 10:33:14
EtoPHG
Hallo,
Dann guck doch mal, was in c steht. Wenn der Code beim Fehler anhält mit dem Mauszeiger über die Variable c fahren. Der Wert der Variablen muss eine Datum sein, also kein Text. Genau das sagt die Fehlermeldung.
Gruess Hansueli
wird das "" angezeigt
07.05.2020 13:42:39
kurt
Hallo Hansueeli,
bei c steht "".
Aber wenn ich nur eine Sheet laufen lasse, gehts einwandfrei.
Komisch,
gruß kurt k
Anzeige
AW: kleine Frage
07.05.2020 14:26:58
GerdL
Moin Kurt! 
Dim c As Range
Dim i As Integer
For i = 1 To 12
Sheets(i).Unprotect (getStrPasswort)
For Each c In Sheets(i).Range("B14:c44")
If IsDate(c.Value) Then
If Weekday(c.Value) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c.Value) = 7 Then
c.Font.Color = 255
End If
End If
Next c
Next i

Gruß Gerd
Super Danke Gerd klappt auch EtoPHG danke -)
07.05.2020 14:57:02
kurt
Danke Gerd,
klappt einwandfrei !
gruß
kurt k
Nachfrage bitte... !
07.05.2020 15:32:51
kurt
Hallo Gerd,
da ich die gleichen Tabellen für das nächste Jahr nutze,
bleibt die rote Schriftfarbe in den bisherigen Zellen vorhanden.
Das führt dazu das für 2021 z.B. der Mo und Di 4.1. ebenfalls rot ist,
könnte man mit einbinden das in der Spalte B14:B44 die Mo-Freitage
schwarz eingefärbt werden könnten ?
gruß kurt k
Anzeige
AW: kleine Frage
07.05.2020 16:03:47
GerdL
Hallo Kurt,
teste bitte mal. 
Dim c As Range
Dim i As Integer
For i = 1 To 12
Sheets(i).Unprotect (getStrPasswort)
For Each c In Sheets(i).Range("B14:c44")
If IsDate(c.Value) Then
If Weekday(c.Value) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c.Value) = 7 Then
c.Font.Color = 255
Else
c.Font.Color = 0
End If
End If
Next c
Next i

Gruß Gerd

Gerd soweit supi aber...
07.05.2020 16:13:58
kurt
Hallo Gerd,
soweit supi aber meine Feiertage in Spalte B14:B44 sind
jetzt auch schwarz beim Schwarz muss also Spalte B
außen vor bleiben.
gruß kurt k
Anzeige
AW: Feiertage u. Co.
07.05.2020 18:45:51
GerdL
Moin Kurt,
wie u. wo kommt die Feiertagsfarbe in die Tabelle?
Ich komme im Moment leider nicht mit.
Gruß Gerd
Durch ein anderes Makro... --)) Habe anders gelöst
07.05.2020 18:51:05
kurt
Hallo Gerd,
herzlichen Dank, habe es so gemacht und es läuft:
Public Sub A_Samstage_und_Sonntage_färben()
Dim c  As Range
Dim i As Integer
For i = 1 To 12
Sheets(i).Select
Range("B14:B44").Select
Sheets(i).Unprotect (getStrPasswort)
With Selection.Font
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Range("D14").Select
Next i
Worksheets(1).Select
ActiveSheet.Range("D14").Select
'----- Makro von Gerd -------------------------------------
For i = 1 To 12
For Each c In Sheets(i).Range("B14:c44")
Sheets(i).Unprotect (getStrPasswort)
If IsDate(c.Value) Then
If Weekday(c.Value) = 1 Then
c.Font.Color = 255
ElseIf Weekday(c.Value) = 7 Then
c.Font.Color = 255
End If
End If
Next c
Next i
End Sub
herzlichen Dank für die Super Unterstützung !!!
gruß kurt k
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige