variable Striche - aber wie? | HERBERS Excel Forum

Forumthread: variable Striche - aber wie?

variable Striche - aber wie?

29.11.2005 12: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

AW: variable Striche - aber wie?

29.11.2005 12:55:13

u_
AW: variable Striche - aber wie?

29.11.2005 13:30:21

Lupo
AW: variable Striche - aber wie?

29.11.2005 13:44:00

u_
AW: variable Striche - aber wie?

29.11.2005 14:13:10

Lupo

AW: variable Striche - aber wie?

29.11.2005 12:55:13

Hallo,
das kannst du mit einer bedingten Formatierung machen, ohne Makro.
Gruß
Geist ist geil!

AW: variable Striche - aber wie?

29.11.2005 13: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

AW: variable Striche - aber wie?

29.11.2005 13:44:00

Hallo,
dafür müsste auch ich den Recorder bemühen.
Gruß
Geist ist geil!

AW: variable Striche - aber wie?

29.11.2005 14:13:10

Lupo

Hi,
trotzdem danke!
Gruß
Lupo

variable Striche - aber wie?

Forumthread: variable Striche - aber wie?

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

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread