Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellfarbe mit Schleife ändern

Forumthread: Zellfarbe mit Schleife ändern

Zellfarbe mit Schleife ändern
21.04.2004 11:25:17
Stefan K.
Hallo Excelfreunde,
ihr haltet mich vielleicht für verrückt, aber kann mir dennoch jemand helfen ?
Ich möchte gern, daß ein blauer Kasten durch meine Start-Tabelle wandert (nur der Optic wegen). D.h. Zelle A15 blau, dann B15 blau und A15 wieder weiß, usw...
Sonst hat man ja in Excel nicht so viele Schmankerl´ die man so anbringen kann.
Kann man das in VBA per Schleife programmieren ?
Danke für Eure Hilfe.
Stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zellfarbe mit Schleife ändern
21.04.2004 11:26:39
Ulf
Stimmt deine Excelversion so? Die kennt kaum nach jemand.
Ukf
AW: Zellfarbe mit Schleife ändern
21.04.2004 13:21:38
Stefan K.
Leider ja. Ich muß mich hier auf der Arbeit damit herumschlagen.
Habe mir aber im Laufe der Zeit ein ganz ordentliches Programm gestrickt,
welches mir bei der bearbeitung von Ausschreibungen und Aufträgen die Arbeit
sehr erleichtert. Ist zwar deutsches VBA, aber wenn Du einen Code hast, kann
ich mir den schon umstricken. Vorausgesetzt er beginnt nicht mit Private Sub ...
Danke und Gruß
Stefan
Anzeige
Muss passen!
21.04.2004 13:26:33
Ulf
u
AW: Zellfarbe mit Schleife ändern
23.04.2004 15:11:54
andre
Hallo Stefan,
im Prinzip so:

Sub test()
Dim LSpalte%, Anzahl%, i%, j%
LSpalte = 10
Anzahl = 3
For j = 1 To Anzahl
For i = 1 To LSpalte
If i > 1 Then
Cells(15, i).Interior.ColorIndex = 41
Cells(15, i - 1).Interior.ColorIndex = 0
Else
Cells(15, 1).Interior.ColorIndex = 41
Cells(15, LSpalte).Interior.ColorIndex = 0
End If
NeueStunde = Hour(Now())
NeueMinute = Minute(Now())
NeueSekunde = Second(Now()) + 1
WarteZeit = TimeSerial(NeueStunde, NeueMinute, NeueSekunde)
Application.Wait WarteZeit
Next
Cells(15, LSpalte).Interior.ColorIndex = 0
Next j
End Sub



Grüße, André ( andre)


Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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