Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Excel 2010 Makro zum hervorheben der aktiven Zelle
zurück: Grafik formatieren weiter: Excel 2010 Text formatieren funktioniert nicht immer Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Excel Amateur
Neuling


Verfasst am:
30. Apr 2014, 11:14
Rufname:

Excel 2010 Makro zum hervorheben der aktiven Zelle - Excel 2010 Makro zum hervorheben der aktiven Zelle

Nach oben
       Version: Office 2010

Guten Tag an alle Profis hier im Forum,
ich habe mir für eine Excel Arbeitsmappe folgenden Code zum hervorheben der aktiven Zelle aus dem Internet gesucht.
Das Problem ist, das auf meinen Arbeitsblättern schon Zellen Farblich sind und diese durch die aktive Zelle dann ihre Farbe verlieren.
Würde mich sehr freuen, wenn mir jemand dabei helfen könnte, das der Code die schon Farblichen Zellen nach verlassen der Zelle wieder in Ihre vorherige Farbe umwandelt. Dies sollte auch beim Speichern der Fall sein.
Danke schon mal im Voraus :)

Hier der Code:


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ci1 As Integer, ac As String
Dim zf1 As Variant, zf1_1 As Variant, zf2 As Variant
Dim zell As Range
ci1 = 6

ac = ActiveCell.AddressLocal(columnabsolute:=False, rowabsolute:=False)

For Each zell In ActiveSheet.UsedRange
If zell.Interior.ColorIndex = ci1 Then
zell.Interior.ColorIndex = xlColorIndexNone
End If
Next zell
zf1 = Mid(ac, 2, 5)
zf1_1 = IsNumeric(zf1)

If zf1_1 = True Then
Target.Interior.ColorIndex = ci1
Else
zf2 = Mid(ac, 3, 5)
Target.Interior.ColorIndex = ci1
End If

End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Daten in einer Zelle trennen 2 bsailer 7161 07. Jan 2005, 13:39
bsailer Daten in einer Zelle trennen
Keine neuen Beiträge Excel Formeln: mehrere WENN-Verknüpfungen pro Zelle 9 MichaP 2491 13. Dez 2004, 19:37
ae mehrere WENN-Verknüpfungen pro Zelle
Keine neuen Beiträge Excel Formeln: Bei der Formel "=C5-((B6-B5)*G3)" soll die Zelle G 2 Gast 1502 26. Nov 2004, 15:55
Gast Bei der Formel "=C5-((B6-B5)*G3)" soll die Zelle G
Keine neuen Beiträge Excel Formeln: Werte aus Liste mit Validation in Zelle 1 Gast 2516 18. Okt 2004, 15:20
icke Werte aus Liste mit Validation in Zelle
Keine neuen Beiträge Excel Formeln: spalte einer bestimmten zelle in einer anderen zelle anzeige 1 brouwe 1290 13. Okt 2004, 18:41
Arnim spalte einer bestimmten zelle in einer anderen zelle anzeige
Keine neuen Beiträge Excel Formeln: Leerzeichen in Zelle löschen 3 pkegelking 1807 01. Okt 2004, 11:57
pkegelking Leerzeichen in Zelle löschen
Keine neuen Beiträge Excel Formeln: vorangegangene Zelle 1 Gast 1986 23. Sep 2004, 15:26
fl618 vorangegangene Zelle
Keine neuen Beiträge Excel Formeln: Formatieren in Abhängigkeit von Zelle 'links'? 9 abidmon 2819 06. Sep 2004, 10:03
abidmon Formatieren in Abhängigkeit von Zelle 'links'?
Keine neuen Beiträge Excel Formeln: übernehmen von werten in eine andere zelle 6 Gast 3717 21. Aug 2004, 18:38
alex81 übernehmen von werten in eine andere zelle
Keine neuen Beiträge Excel Formeln: Zelle Schützen 8 mika2002 1890 29. Jul 2004, 14:51
mika2002 Zelle Schützen
Keine neuen Beiträge Excel Formeln: Einfügen des Datei- oder Tabellennamens in eine Zelle 5 Atomteilchen 5024 29. Jul 2004, 12:43
Atomteilchen Einfügen des Datei- oder Tabellennamens in eine Zelle
Keine neuen Beiträge Excel Formeln: Text und fortlaufende Nr. in eine Zelle 2 Strebe nach Können 1013 16. Jul 2004, 19:19
Strebe nach Können Text und fortlaufende Nr. in eine Zelle
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme