Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
428to432
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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.

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
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
Anzeige
Sorry,.. der Beitrag sollte zu Achim ,-) o.T.
Ramses
...
der aber nicht zu antworten scheint...tzz oT
Oberschlumpf
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
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige