Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hintergrundfarbe aus- und einlesen

Hintergrundfarbe aus- und einlesen
08.06.2006 13:10:46
Manni
Hallo zusammen,
wie kann ich mit dem angehängten Code die Hintergrundfarbe mit aus- und einlesen ?
Die Variablen sind alle auf DIM AS DATE dimensioniert. Es kommen sämtliche Farben in betracht.
' Termine einlesen
zt = 3
Do While Cells(zt, 5) ""
If Right(Worksheets("Kalender").Cells(1, 1), 2) _
Right(Cells(zt, 5), 2) Then GoTo sprung1 ' wenn Kalenderjahr des Termins Kalenderjahr,
' dann Ausstieg
termt(zt) = Cells(zt, 5) ' Einlesen der Termine (Datum)
termin(zt) = Cells(zt, 6) ' Einlesen der Veranstaltung
sprung1: ' Sprungziel (1)
zt = zt + 1
Loop

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hintergrundfarbe aus- und einlesen
08.06.2006 14:10:02
Harald
Hi Manni,
vielleicht hilft's ja
dim farbeA as byte, farbeB as byte
zt = 3
Do While Cells(zt, 5) ""
If Right(Worksheets("Kalender").Cells(1, 1), 2) _
Right(Cells(zt, 5), 2) Then GoTo sprung1 ' wenn Kalenderjahr des Termins Kalenderjahr,
' dann Ausstieg
termt(zt) = Cells(zt, 5) ' Einlesen der Termine (Datum)
farbeA = cells(zt, 5).interior.colorindex
farbeB = cells(zt, 6).interior.colorindex
termin(zt) = Cells(zt, 6) ' Einlesen der Veranstaltung
sprung1: ' Sprungziel (1)
zt = zt + 1
Loop
Gruss Harald
AW: Hintergrundfarbe aus- und einlesen
09.06.2006 14:23:35
Manni
Hallo Franz, Hallo Harald,
danke für die schnelle Antwort. Ich habe mal das Makro von Harald bei mir eingebaut.
Es funzt wahrscheinlich mit dem auslesen. Ich bekomme die Zellenfarben nicht ganz richtig in das Kalenderblatt geschrieben. Es wird nur die Farbe des letzten Termins, in das Kalenderblatt übernommen.
Anzeige
AW: Hintergrundfarbe aus- und einlesen
09.06.2006 14:35:27
Harald
Hi,
tja...daist schlechter Rat billig ;-))
Ohne den Code zu sehen, kann man nur rätseln.
Vielleicht steigt er bei der If- Bedingung schon aus ?
Farben entstehen durch bedingte Formatierung ?
P.S.: Bin ab 14.45 im Wochenende ;-)
Gruss Harald
AW: Hintergrundfarbe aus- und einlesen
09.06.2006 15:22:04
Manni
Hallo Harald,
anbei der Kalender den ich mir erstellen will.
Ich komme mit der Übernahme der Zellenfarbe in das Kalenderblatt einfach nicht weiter.
https://www.herber.de/bbs/user/34265.xls
AW: Hintergrundfarbe aus- und einlesen
10.06.2006 21:45:18
Harald
Hi,
also ich hab den Code nur mal kurz überflogen und sehe das Problem nicht in der Übergabe des Colorindex, sondern in der Schleife.
Du solltest die Colorindex-Übergabe in den Loop mit einbauen, damit er für jeden Durchlauf auch den richtigen Colorindex nutzt.
Mir persönlich wäre dieser Code auch zu lang. Ich würde das in Einzelschritte(kleinere Subs) unterteilen und per
Call Makro irgendwas
Call Makro was anderes
übersichtlicher aufbauen.
Am Montag hab ich mehr Zeit dafür.....falls nötig
Gruß
Harald
Anzeige
AW: Hintergrundfarbe aus- und einlesen
09.06.2006 15:11:48
fcs
Hallo Manni,
so wie du die Termine und den Veranstaltungsnamen in die dimensionierten Variablen "termt" bzw. "termin" in Feld-Variablen einliest, so muß du auch die Farbinformation in eine Feldvariable einlesen. Wenn die Farben der beiden Zellen immer identisch sind, dann reicht ein eindimensionales Feld, sind die Farben verschieden, dann ist ein zweidimensionales Feld erforderlich. Nachfolgend wie es etwa aussehen muß bei verschiedenen Farben:

' Diese Dim-Anweisungen müssen bei dir so oder ähnlich zu Beginn des Codes stehen:
Dim termt(500) As Date, termin(500) As Variant, Farbe(500, 1 To 2) As Integer
' Falls die Felder mit ReDim später deklariert werden, dann am Anfang des Codes:
Dim termt(), termin(), Farbe()
'Später im Code
Zeilen = Cells(65000, 5).End(xlUp).Row 'Letzte Zeile in Spalte 5
ReDim termt(Zeilen), termin(Zeilen), Farbe(Zeilen, 1 To 2)
zt = 3
Do While Cells(zt, 5) <> ""
If Right(Worksheets("Kalender").Cells(1, 1), 2) _
<> Right(Cells(zt, 5), 2) Then GoTo sprung1 ' wenn Kalenderjahr des Termins <> Kalenderjahr,
' dann Ausstieg
termt(zt) = Cells(zt, 5) ' Einlesen der Termine (Datum)
Farbe(zt, 1) = Cells(zt, 5).Interior.ColorIndex ' Einlesen Farbe Termin
Farbe(zt, 2) = Cells(zt, 6).Interior.ColorIndex ' Einlesen Farbe Veranstaltung
termin(zt) = Cells(zt, 6) ' Einlesen der Veranstaltung
sprung1: ' Sprungziel (1)
zt = zt + 1
Loop

mfg
Franz
Anzeige
AW: Hintergrundfarbe aus- und einlesen
08.06.2006 14:49:35
fcs
Hallo Manni,
zum Testen hab ich etwas Beiwerk hinzugefügt.
Den Vergleich zur Prüfung ob Veranstaltung im aktuellen Jahr halte ich für nicht so gut. Funktionierte mit meinen Testdaten auch nicht, wenn der Inhalt der Zellen als Datum Formatiert war. Ich hab meinen Vorschlag mit eingebaut.

Sub Test()
' Termine einlesen
Dim termt() As Date, termin() As String, Farbe() As Integer, zt As Long
zt = 3
ReDim termt(1 To Cells(65000, 5).End(xlUp).Row)
ReDim termin(1 To Cells(65000, 5).End(xlUp).Row)
ReDim Farbe(1 To Cells(65000, 5).End(xlUp).Row, 1 To 2)
Do While Cells(zt, 5) <> ""
If Year(Worksheets("Kalender").Cells(1, 1)) _
<> Year(Cells(zt, 5)) Then GoTo sprung1 ' wenn Kalenderjahr des Termins <> Kalenderjahr,
' dann Ausstieg
termt(zt) = Cells(zt, 5) ' Einlesen der Termine (Datum)
termin(zt) = Cells(zt, 6) ' Einlesen der Veranstaltung
Farbe(zt, 1) = Cells(zt, 5).Interior.ColorIndex ' Einlesen Farbe Termin
Farbe(zt, 2) = Cells(zt, 6).Interior.ColorIndex ' Einlesen Farbe Veranstaltung
sprung1:   ' Sprungziel (1)
'Testzeile
MsgBox ("Datum: " & termt(zt) & ", Veranstaltung: " & termin(zt) & ", Farben: " & Farbe(zt, 1) & " / " & Farbe(zt, 2))
zt = zt + 1
Loop
End Sub


mfg
Franz
Anzeige

228 Forumthreads zu ähnlichen Themen

Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Erweiterung eines Makros wg. Einlesen von Daten
Daten

Guten Morgen, kann man das Makro
Sub tt() Dim Zei As Long, Werte, W As Integer, Spa As Long For Zei = 30 To Range("A" & Rows.Count).End(xlUp).Row If InStr(Cells(Zei, 1), Chr(124)) > 0 Then Werte = Split(Cells(Zei, 1), Chr(124)) For W = LBound(Werte) To UBound(Werte) If Len(Werte(W)...
14.10.2008 08:20:04
Thread-ID: 1016214
9 Beiträge
Inhalt einer Webseite einlesen
Richard

Hallo,
ich hätt' da mal folgende Frage
Private Sub CommandButton1_Click() ThisWorkbook.FollowHyperlink "htt p://de.wikipedia.org/wiki/Hallo_Welt" End Sub
21.10.2008 11:22:37
Thread-ID: 1017906
5 Beiträge
Anzeige
Kein Textvergleich nach Einlesen aus TXT
sunni

Hallo da draußen :-),
ich habe ein Problem, an dem ich mir echt die Zähne ausbeiße:
Ich habe (über VBA) aus einer TXT Daten in Excel eingelesen. Die Zahlen konnte ich "verwendbar" machen, indem ich diese mit 1 multipliziert habe. Aber der Text wird nicht als Text erkannt.
Hintergrun...
30.10.2008 14:29:00
Thread-ID: 1020611
4 Beiträge
Aktuellen Pfad in Variable einlesen
Daniel

Hallo Excel-Götter,
ich als VBA-Dummie darf mich mit einem schönen Makro-Problem befassen:
Ich arbeite mit einem Excel-File, das Auswertungen aufgrund von Daten in einem 2.File macht. Beide Files liegen im gleichen Ordner auf meinem Rechner. Das ganze wurde erstellt von meinem Vorgänger...
07.11.2008 06:58:19
Thread-ID: 1022480
6 Beiträge
VBA ExcelDateinamen und Arbeitsblattnamen einlesen
MarkusL

Hallo,
gibt es per VBA eine Möglichkeit alle Excel Dateien eines Verzeichnisses inkl. der jeweils enthaltenen Arbeitsblattnamen einzulesen (der Name der Exceldatei sollte ohne .xls ausgegeben werden), so dass nachfolgendes Ergebnis erzeugt wird:
Dateiname.......Arbeitsblattname
Date...
16.11.2008 15:07:00
Thread-ID: 1024906
5 Beiträge
Namen in Array einlesen und an Fkt. übergeben
adrian

Hi,
bin mir hierbei nicht ganz sicher ob das so klappt.
Möchte mit dier Funktion ("SearchOEM"), die ein Namen ("OEMName") zurückgibt, falls in einem Bereich ("ODMArea") ein Suchname ("ODMName") vorkommt.
Die Namen die diese Fkt. zurückgibt möchte ich in einem Array Speichern und an...
19.01.2009 13:06:00
Thread-ID: 1041390
4 Beiträge
Wert einer Zelle einlesen ?
Gerd

Halo!
Habe ein Problem bei dem ich nicht weiterkomme und bitte um Eure Hilfe.
Ich lese über VBA die letzte beschriebene bzw. erste freie Zeile in einer Tabelle aus in die ich dann schreibe. Ich hätte gerne daß VBA sich einen Wert, in dieser Zeile Spalte N merkt, ohne daß ich aber ein M...
03.02.2009 16:59:57
Thread-ID: 1046719
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
18
1
8
4
6
3
5
4
3
6
2
5
5
9
1
2
6
6
4
3
8
8
1
6
6