Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable Striche - aber wie?

Forumthread: 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
Anzeige

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)

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