Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

variable Striche - aber wie?

variable Striche - aber wie?
29.11.2005 11:43:28
Lupo
Hallo Forum,
wie ist per VBA ein Makro zu schreiben, damit ganze Zeilen von B:H leicht gepunktet unterstrichen werden. Start ist immer in Zeile 5, die Anzahl der Zeilen nach unten immer unterschiedlich. Dies sollte sich anpassen. Hat jemand so ein script? Wäre super!
Gruß
Lupo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable Striche - aber wie?
29.11.2005 11:55:13
u_
Hallo,
das kannst du mit einer bedingten Formatierung machen, ohne Makro.
Gruß
Geist ist geil!
AW: variable Striche - aber wie?
29.11.2005 12:30:21
Lupo
Danke u_,
ist es richtig, ich soll einen Maximalbereich bed. formatieren "wenn gefüllt"? Habe schon 3 Farbformatierungen für den Bereich. Aber wie passe ich die zeilenweise Punktlinien hier ein? Der Bereich Format2 ist der Max.Wert - soll aber nur, solange in "F" etwas steht. Kannst Du da weiterhelfen? Wäre prima!!
Habe:

Sub bedingt_Format2()
' Textzeilen bedingte Formatierung Rot, Blau, Schwarz
Application.Goto Reference:="Format2"
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F5=""2x/Woche"""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F5=""1x/Woche"""
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$F5=""1x/Monat"""
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D5").Select
End Sub

Anzeige
AW: variable Striche - aber wie?
29.11.2005 12:44:00
u_
Hallo,
dafür müsste auch ich den Recorder bemühen.
Gruß
Geist ist geil!
AW: variable Striche - aber wie?
29.11.2005 13:13:10
Lupo
Hi,
trotzdem danke!
Gruß
Lupo

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige