Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1756to1760
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
Inhaltsverzeichnis

Erweiterung klappt nicht

Erweiterung klappt nicht
09.05.2020 16:47:39
sigrid
Guten Tag,
ich habe am 6.5. eine Lösung gefunden,
leider klappt es nicht für die Spalte daneben, das die Roten Datumswerte in
der UF auch angezeigt werden.
Die Spalte B funktioniert einwandfrei.
'----------- jetzt werden die Datumswerte Rot in UF übernommen ----
Dim x
For x = 0 To 30
'''UserForm2.Controls("Label" & x + 2).Caption = Cells(x + 14, 3).Text
UserForm1("Label" & x + 1).ForeColor = Cells(x + 14, 2).Font.Color
Next
'----------- klappt nicht !!!-------------
'Dim x
For x = 31 To 61
UserForm1("Label" & x + 1).ForeColor = Cells(x + 14, 3).Font.Color
Next
mfg sigrid

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Erweiterung klappt nicht
09.05.2020 16:49:20
Hajo_Zi
Hallo Sigrid,
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
änderrn.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
GrußformelHomepage
Anzeige
AW: Erweiterung klappt nicht
09.05.2020 16:50:39
Oberschlumpf
lol
Hi sigrid,
sorry, aber bitte was sollen wir für dich tun?
Zumindest ich kenne deine Lösung vom 6.5 nicht, somit kenne ich auch dein eigentliches Problem nicht (welches du wahrsch frühestens vor dem 6.5 hier beschrieben hast)
Und nein, ich suche nicht nach deiner Frage zu dem hier von dir sehr unvollständigem Text^^ ;-)
Ciao
Thorsten
ok da nicht --))
09.05.2020 17:09:46
sigrid
Vielleicht hier helfen ?
09.05.2020 17:57:46
sigrid
Hallo zusammen,
habe jetzt mal einzeln Zeilen erstellt.
Kann man dies als Schleife erstellen ?
Es soll immer die active Tabelle angesprochen werden.
Label32.ForeColor = Cells(14, 3).Font.Color
Label33.ForeColor = Cells(15, 3).Font.Color
Label34.ForeColor = Cells(16, 3).Font.Color
Label35.ForeColor = Cells(17, 3).Font.Color
Label36.ForeColor = Cells(18, 3).Font.Color
Label37.ForeColor = Cells(19, 3).Font.Color
Label38.ForeColor = Cells(20, 3).Font.Color
Label39.ForeColor = Cells(21, 3).Font.Color
Label40.ForeColor = Cells(22, 3).Font.Color
Label41.ForeColor = Cells(23, 3).Font.Color
Label42.ForeColor = Cells(24, 3).Font.Color
Label43.ForeColor = Cells(25, 3).Font.Color
Label44.ForeColor = Cells(26, 3).Font.Color
Label45.ForeColor = Cells(27, 3).Font.Color
Label46.ForeColor = Cells(28, 3).Font.Color
Label47.ForeColor = Cells(29, 3).Font.Color
Label48.ForeColor = Cells(30, 3).Font.Color
Label49.ForeColor = Cells(31, 3).Font.Color
Label50.ForeColor = Cells(32, 3).Font.Color
Label51.ForeColor = Cells(33, 3).Font.Color
Label52.ForeColor = Cells(34, 3).Font.Color
Label53.ForeColor = Cells(35, 3).Font.Color
Label54.ForeColor = Cells(36, 3).Font.Color
Label55.ForeColor = Cells(37, 3).Font.Color
Label56.ForeColor = Cells(38, 3).Font.Color
Label57.ForeColor = Cells(39, 3).Font.Color
Label58.ForeColor = Cells(40, 3).Font.Color
Label59.ForeColor = Cells(41, 3).Font.Color
Label60.ForeColor = Cells(42, 3).Font.Color
Label61.ForeColor = Cells(43, 3).Font.Color
Label62.ForeColor = Cells(44, 3).Font.Color
mfg sigrid
Anzeige
AW: Schriftfarben aus Zellen in Userform-Label
09.05.2020 18:17:51
GerdL
Moin Sigrid!
Private Sub UserForm_Initialize()
Dim Z As Long
For Z = 14 To 44
Me.Controls("Label" & (Z + 18)).ForeColor = ActiveSheet.Cells(Z, 3).Font.Color
Next
End Sub

Gruß Gerd
Danke Gerd Supi, schönen Sonntag noch -)
09.05.2020 18:23:39
sigrid
AW: Danke Gerd Supi, schönen Sonntag noch -)
09.05.2020 18:31:44
sigrid
Hallo Gerd,
kannst Du mir kurz erklären, versteh nicht Labels fangen bei 32 an und
hören bei 62 auf.
Die Zeile von der Datei Anfang 32 UND ENDE 44 ok un Dspalte 3 auch ok.
eine kurze Erklärung,
würde mich freuen
mfg sigrid
AW: Danke Gerd Supi, schönen Sonntag noch -)
09.05.2020 19:00:05
GerdL
Hallo Sigrid,
lt. deinen Codezeilen beginnen die Zeilen mit 14, Differenz zum ersten Label-Suffix mit 32 = 18.
Gruß Gerd
Anzeige
Danke ! -)
09.05.2020 19:11:09
Kurt
AW: Danke ! -)
10.05.2020 10:19:07
sigrid

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige