Thema Datum  Von Nutzer Rating
Antwort
Rot If then else für einen Bereich definieren
 08.08.2019 23:58:54 Marina
Solved
09.08.2019 03:26:01 frau
*****
NotSolved
09.08.2019 09:31:21 Gast62401
NotSolved

Ansicht des Beitrags:
Von:
Marina		 Datum:
08.08.2019 23:58:54		 Views:
1233		 Rating:
     
Antwort:
 Nein
Thema:
If then else für einen Bereich definieren
Hallo liebe VBA-Cracks, ich sitze nun schon ewig an einem Problem und Ihr seid meine letzte Rettung. Ich habe untenstehenden Code. Das funktionert auch prima bei einer Zelle. In meinem Fall J8. Ich würde das aber gerne über einen Bestimmten Bereich haben. z.B.: A6:J15. Könnte mir jemand sagen, wie ich das hinbekomme? Vielen lieben Dank! Marina Private Sub Worksheet_Activate() ChangeEvent End Sub Private Sub Worksheet_Calculate() ChangeEvent End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) ChangeEvent End Sub Private Sub ChangeEvent() Dim Zelle As Range Set Zelle = Range("J8") If Zelle = "U" Then Zelle.Font.Size = 10 Zelle.Font.ColorIndex = 3 Zelle.Font.Bold = True Zelle.Interior.ColorIndex = 2 ElseIf Zelle = "" Then Zelle.Interior.ColorIndex = 2 Else: Zelle.Font.Size = 6 Zelle.Font.ColorIndex = 1 Zelle.Font.Bold = False Zelle.Interior.ColorIndex = 35 End If End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot If then else für einen Bereich definieren
 08.08.2019 23:58:54 Marina
Solved
09.08.2019 03:26:01 frau
*****
NotSolved
09.08.2019 09:31:21 Gast62401
NotSolved