Jede Zelle im Excel Arbeitsblatt zufällig einfärben?

Hallo, ich habe in einem Buch gelernt, wie man jeweils eine Zelle bei Excel zufällig einfärbt:

Range("A1").Interior.Color = Int(16777216 * Rnd)

nach etwas nachdenken habe ich einen bestimmten Bereich zufällig eingefärbt:

Range("A1:H90").Interior.Color = Int(16777216 * Rnd)

Wie mache ich das nun, wenn ich aber jede einzelne Zelle in dem Bereich in einer eigenen zufälligen Farbe einfärben will ohne (720/2)x die Syntax

Range("A1").Interior.Color = Int(16777216 * Rnd)

Range("A2").Interior.Color = Int(16777216 * Rnd)

zu verwenden?

Vielen Dank im voraus!

2 Antworten

Hannes62a

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

08.03.2020, 19:00

Hi,

etwas eleganter und leichter lesbar und verständlich finde ich diesen Weg mit nur einer Schleife:

For Each Zelle In ActiveSheet.Range("A1:H90").Cells
    Zelle.Interior.Color = Int(16777216 * Rnd())
Next

Ciao

Hannes

Woher ich das weiß:eigene Erfahrung

LtLTSmash

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

07.03.2020, 20:44

z.B. mit 2 Schleifen

For i = 1 to 8
   for j = 1 to 90
     cells(j,i).Interior.Color = Int(16777216 * Rnd)
   next j
next i

Hallo!

Ich habe folgendes Problem:

Als Beispiel habe ich den Bereich A1 - A10. Wenn ich "RE" in Zelle A3 eintrage, soll sich A3 - A10 einfärben. Genauso wenn ich in A5 "RE" eintrage, soll sich A5 - A 10 einfärben. Oder wenn ich A4 nutze, dann A4 -A10.

Es soll sich quasi immer die Zelle selbst und die darauffolgenden Zellen bzw. die restliche Zeile einfärben, je nach dem welche Zelle ich ausfülle. Es kann also auch A1, A2, A7, etc. sein.

Ich kenne nur die Formatierungen mit denen ich entweder die Zelle selbst nur einfärbe und die ganze Zeile A1 - A10. Ich möchte aber nur teilweise einfärben.

Geht das?

Vielen Dank im Voraus!

...zur Frage

Excel: Wenn Wert in Zelle A1 größer ist als in Zelle A2, wie Zelle A1 einfärben?

Hallo,

nehmen wir an ich habe in Zelle A1 einen Wert von 100 und in Zelle A2 einen WErt von 50. Damit hat A1 größeren WErt als A2, wie färbe ich mit einer Formel die Zelle A1 ein. Am besten mit bedingter Formatierung.

Kann jemand helfen?

Danke

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

Excel Variable Range angabe?

Hallo, ich hätte eine Frage bezüglich Excel VBA:

Ich versuche folgendes zu erreichen:

Damit soll der Zellinhalt von (in dem Fall) Zelle A1 geändert werden.
Wenn man "x = 2" verwendet, dann soll der Inhalt in Zelle A2 geändert werden usw.

Gibt es da eine Spezielle Syntax oder geht es gar nicht so?

Danke für eure Hilfe!

...zur Frage

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zur Frage

Drehfeld in Excel programmieren

Würde gerne ein Drehfeld in Excel programmieren ich finde im Internet immer diese Codes.

Private Sub SpinButton1_SpinDown()
Range("A1") = Range("A1") - 0.1
End Sub

Private Sub SpinButton1_SpinUp()
Range("A1") = Range("A1") + 0.1
End Sub

Aber wie gebe den Code ein? Wenn ich auf Code anzeigen kommt dann kommt etwas mit SpinButton_Change und es macht wohl wenig Sinn das dort einzugeben. Und einzeln kann ich die Felder nicht aussuchen.

Kann mir jemand helfen? Gruß

...zur Frage

Fenster fixieren in Excel?

Hey. Es ist ja in Excel möglich sowohl über die Auswahl im Menu Ansicht, als auch durch VBA-Programmierung (wo ich mich nicht auskenne) möglich einen Bereich auszuwählen, welcher fixiert werden soll, wenn man durch das Datenblatt scrollt.
Nun ist es aber anscheinend nur möglich Excel mitzuteilen, welche Spalten links und welche Zeilen oberhalb der ausgewählten Zellen fixiert werden soll.
Bsp: Markierung der Zelle F4. Die Zellen von A1:E3 werden fixiert.

Ist es auch möglich die Range individuell festzulegen. Also dass die "Startzelle" nicht A1 sondern z.B. B2 ist; Range ("B2:F4)?
Ich habe leider nichts dazu gefunden, auch nicht mit VBA.

Ich hoffe es ist klar geworden, was ich meine. Danke

...zur Frage

Excel - Zelleninhalte löschen, wenn in anderer Zelle "ein Wert" steht

Hallo liebes Forum,

ich habe ein kleines Problem bei einer kleinen Datenbank und hoffe das ihr mir weiterhelfen könnt.

Zum Problem: Ich habe in Zelle A1 eine Auswahlliste, bei der ich a,b oder c auswählen kann.

habe ich a ausgewählt, soll nichts passieren.
wähle ich jedoch b oder c aus, sollen im Zellbereich C4:F14 die Werte gelöscht werden

Dazu habe ich folgenden Code programmiert:

Private Sub Worksheet_TEST(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case CInt(Range("A1"))
        Case b
            Range("C4:F14").Select
            Selection.ClearContents
        Case c
            Range("C4:F14").Select
            Selection.ClearContents
        End Select
    End If
End Sub

Ändere ich nun die Auswahl, passiert jedoch nichts, die Einträgen werden nicht gelöscht. Wo liegt der Fehler?

Danke für Eure Hilfe

Gruß diece

...zur Frage

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zur Frage

Excel: Zelle sperren wenn Inhalt einer Zelle nicht den richtigen Wert enthält

Kann man bei Excel eine Zelle sperren wenn eine andere Zelle nicht den richtigen Wert enthält?

Beispiel:

A1=Test1 A2="angeforderter Text(Test2)" =Zelle ist gesperrt

wenn aber

A1=Test2 A2="angeforderter Text(Test2)" = Die Sperrung der Zelle ist aufgehoben

...zur Frage

Excel Wenn-Dann Funktion mit Zellen einfärben?

Wie kann ich bei excel eine bestimmte Zelle grün einfärben wenn in einer anderen (!) Zelle ein Wert >0 steht und rot einfärben wenn kein Wert darin steht?

Danke im Voraus

...zur Frage

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zur Frage

Excel in Zelleformel Tabellenblattindex benutzen statt Tabellenblattname?

Hallo,

ich habe eine Excelmappe mit mehreren Tabellenblättern.

Diese haben natürlich Name wie z.b. "Personal", "Umsatz", "Gewinn"

Wenn ich in eine Zelle eine Formel benutze und auf ein anderes Blatt zugreife dann benötige ich ja den Name z.b. ='Personal'!A1

Ich möchte aber nicht den Namen benutzen sondern den im Hintergrund Festgelegten Namen "Tabelle3" so wie in VBA Tabelle3.Range("A1") statt Worksheet("Personal").Range("A1")

Ist das in den Formeln auch möglich??? Oder gibt es dazu eine VBA-Funktion die das ermöglicht?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen