Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro Speziell

Forumthread: Makro Speziell

Makro Speziell
21.05.2004 08:14:58
Achim
Hallo Excel Freunde
Wer kann mir helfen!
Ich brauche ein Makro dass ich in einem Projekt einbinden kann!!!!
und zwar...:)?
Suche in der Kopfzeile C1 bis AG1 nach dem Begriff Sa. (von dem Begriff
gibt es, weil es sich um einen Monat handelt logisch mehrere male Sa)
Wenn gefunden dann alle Zellen mit Sa und die darunter liegenden bis
200 in blau einfärben.
Danke
Gruß
Achim H.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro Speziell
Oberschlumpf
Hi Achim
Versuch es mal so:

Sub Blau()
Dim liSuche As Integer
For liSuche = 67 To 100
If liSuche < 91 Then
If InStr(1, Range(Chr(liSuche) & "1").Value, "Sa") Then
Range(Chr(liSuche) & "1:" & Chr(liSuche) & "200").Interior.ColorIndex = 5
End If
Else
If InStr(1, Range("A" & Chr(liSuche - 26) & "1").Value, "Sa") Then
Range("A" & Chr(liSuche - 26) & "1:A" & Chr(liSuche - 26) & "200").Interior.ColorIndex = 5
End If
End If
Next
End Sub

Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Makro Speziell
Ramses
Hallo
warum immer VBA ?
Datenbereich markieren
Format - Bedingte Formatierung
"Formel ist" "=SUCHEN("Sa";A$1;1)"
Muster zuweisen - Fertig
"A$1" steht für den Beginn deines Datenbereiches
"$1" für die Zeile wo deine Datumsangaben stehen
Gruss Rainer
Sorry,.. der Beitrag sollte zu Achim ,-) o.T.
Ramses
...
der aber nicht zu antworten scheint...tzz oT
Oberschlumpf
Anzeige
AW: der aber nicht zu antworten scheint...tzz oT
21.05.2004 11:56:17
Achim
Hallo Oberschlumpf u. Ramses
Bin wieder wach und es klappt super:):):)
Danke Euch beiden habe Lösung Oberschlumpf verwendet da schon bedingte Formatierungen eingestellt sind.
Nochmal tausend Dank
Achim H.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige