Möchte eine Überprüfung machen und bin auf der Suche nach dem VBA Makro dafür:
"Wenn in Zelle K2 ein Datum steht, dann markiere A2:Q2 in Calibri 11 kursiv".
Viele Grüße
Lisa
Sub Makro4()
If Range("K2").NumberFormat = "dd.mm.yyyy" Then
Range("A2:Q2").Font.Italic = True
End If
End Sub
Funktioniert aber irgendwie nicht ganz.
If Worksheetfunction.count(Rang("K:K")) > 0 Then
With Range("K:K").SpecialCells(xlcelltypeconstants, 1)
With Intersect(.EntireRow, Range("A:Q").font
.Name = "Calibri"
.Size = 11
.Italic = True
End With
End with
end if
wenn die Werte durch Formeln erzeugt werden, ersetze in der SpecialCells-Funktion das "xlcelltypeconstants" durch "xlcelltypeformulas"
Um eine ganze Zeile in Excel kursiv zu formatieren, wenn in einer bestimmten Zelle ein Datum steht, kannst du sowohl VBA als auch bedingte Formatierung verwenden. Hier sind die Schritte für beide Methoden:
Mit VBA:
Öffne Excel und drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Klicke auf Einfügen
und wähle Modul
.
Füge den folgenden Code ein:
Sub GanzeZeileKursivMarkieren()
If Range("K2").NumberFormat = "dd.mm.yyyy" Then
Range("A2:Q2").Font.Italic = True
End If
End Sub
Schließe den VBA-Editor und führe das Makro aus.
Mit bedingter Formatierung:
Markiere den Bereich A2:Q2.
Gehe zu Start
> Bedingte Formatierung
> Neue Regel
.
Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden
.
Gib die folgende Formel ein:
=$K$2<>""
Klicke auf Formatieren
, wähle Schriftart
und aktiviere Kursiv
.
Bestätige mit OK
.
Fehler: Das Makro funktioniert nicht.
Fehler: Die bedingte Formatierung wird nicht angewendet.
Neben VBA und bedingter Formatierung gibt es auch andere Methoden, um Zeilen in Excel zu formatieren. Eine Möglichkeit ist die Verwendung von Formeln innerhalb von Excel, um dynamisch auf bestimmte Bedingungen zu reagieren. Du könntest auch die Formatübertragung verwenden, um Formatierungen von einer Zelle auf andere zu kopieren.
Verwendung von VBA für mehrere Zeilen:
Sub MarkiereAlleZeilen()
Dim i As Integer
For i = 2 To 100 ' Beispiel für Zeilen 2 bis 100
If Range("K" & i).NumberFormat = "dd.mm.yyyy" Then
Range("A" & i & ":Q" & i).Font.Italic = True
End If
Next i
End Sub
Bedingte Formatierung auf mehrere Zeilen anwenden:
SpecialCells
-Methode in VBA, um gezielt Zellen mit bestimmten Formaten anzusprechen.$K$2
), um sicherzustellen, dass die Formatierung auf die richtige Zelle verweist.1. Kann ich die Schriftart und -größe über die bedingte Formatierung ändern? Nein, die bedingte Formatierung erlaubt es nur, die Schriftart kursiv zu setzen. Schriftgröße und -art sind davon ausgeschlossen.
2. Welche Excel-Version wird benötigt, um VBA zu nutzen? VBA ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen