Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1020to1024
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
1020to1024
1020to1024
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen farbig unterlegen bei Eingabe über Inputbox

Zellen farbig unterlegen bei Eingabe über Inputbox
09.11.2008 13:54:18
Jochen
Hallo Forum
Ich habe eine Tabelle in der werden über eine Inputbox in die Zellen A9 bis K9 Werte eingetragen.
Diese Werte werden der Reihe nach über die Inputbox eingetragen.
Gibt es eine Möglichkeit das die geweils angesprochene Zelle für die Zeit der Eingabe die Farbe
wechselt?
Z.B:
Das ganze Blatt hat einen weißen Hintergrund
Wenn das Makro startet und der Wert der Zelle A9 eingetragen wird soll die Zelle
solange gelb sein.
Nachdem der Wert eingetragen ist soll die Zelle wieder weiß werden und die nächste Zelle
dann B9 soll sich gelb färben und so weiter bis alle Werte eingetragen sind.
Geht das?
Gruß Jochen

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Vieleicht hilft's weiter
09.11.2008 14:11:31
hary
Hallo Jochen
schau mal diese Mappe an. Vieleicht kannst Du den Code deinen beduerfnissen anpassen und verwenden.
https://www.herber.de/bbs/user/56640.xls
Gruss Hary
Zellen farbig unterlegen bei Eingabe über Inputbox
09.11.2008 14:11:00
Uwe
Hi Jochen,
schau mal:

Sub Eingabe()
Dim I As Integer
Dim Eingabe As String
With ActiveSheet
For I = 1 To 11
Cells(9, I).Interior.ColorIndex = 6
Cells(9, I).Select
Cells(9, I).Value = InputBox("Wert für " & .Cells(9, I).Address & " eingeben", " _
Eingabe")
Cells(9, I).Interior.ColorIndex = xlColorIndexNone
Next I
End With
End Sub


Klappt es?
Gruß
Uwe
(:o)

Anzeige
AW: Zellen farbig unterlegen bei Eingabe über Inputbox
09.11.2008 14:13:00
Tino
Hallo,
hier mal eine Möglichkeit.
Option Explicit

Sub Einträge()

Dim Zelle As Range

Dim altIndex As Integer

For Each Zelle In Range("A9:A9")

'merke Zellfarbe 

altIndex = Zelle.Interior.ColorIndex

'schreibe Zellfarbe 

Zelle.Interior.ColorIndex = 6

'schreibe Eingabe 

Zelle = InputBox("Eingabe für die Zelle: " & Zelle.Address(False, False))

'Zellfarbe zurücksetzen 

Zelle.Interior.ColorIndex = altIndex

Next Zelle

End Sub


Gruß Tino

Anzeige
AW: Zellen farbig unterlegen bei Eingabe über Inputbox
09.11.2008 14:23:00
Tino
Hallo,
die Zeile
For Each Zelle In Range("A9:A9")
muss natürlich so lauten
For Each Zelle In Range("A9:K9")
Gruß Tino
AW: Zellen farbig unterlegen bei Eingabe über Inputbox
09.11.2008 14:13:05
Daniel
Hi
im Prinzip so

Range("A1").interior.Colorindex = 6
Range("A1").Value = Inputbox("Ihre Eingabe bitte")
Range("A1").Interior.Colorindex = -4142


ob 6 bei dir jetzt Gelb ist oder nicht, musst du halt ausprobieren, das hängt von deine Farbeinstellungen ab.
man kann sich mit der WITH-Klammer auch etwas schreibarbeit sparen:


With Range("A1")
.interior.Colorindex = 6
.Value = Inputbox("Ihre Eingabe bitte")
.Interior.Colorindex = -4142
end with
With Range("B1")
.interior.Colorindex = 6
.Value = Inputbox("Ihre Eingabe bitte")
.Interior.Colorindex = -4142
end with
usw


oder man schreibt ein kleines untermakro, das vom Hauptmarko aufgerufen wird


Sub Hauptmakro()
Call EingabeMarkiert(Range("A1"))
Call EingabeMarkiert(Range("B1"))
End sub
Private Sub EingabeMarkiert(Zelle as Range)
With Zelle
.interior.Colorindex = 6
.Value = Inputbox("Ihre Eingabe bitte")
.Interior.Colorindex = -4142
end with
end sub


Gruß. Daniel

Anzeige
Danke an alle
09.11.2008 14:40:00
Jochen
Danke an alle die sich so schnell geantwortet haben.
Werde mich damit heute Abend beschäftigen.
Jetzt ruft die Familie
Gruß Jochen

306 Forumthreads zu ähnlichen Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Anzeige
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:38:53
Thread-ID: 1093112
2 Beiträge
VBA Zelle einfärben
Tom

Hi Leute,
ich weis zwar wie man ne Zelle einfärbt leider nicht beim objektorientierter Schreibweise kann mir da vll. jemand weiterhelfen?
Es soll einfach die Zeile Grün werden die Kopiert wurde, bzw. die Zelle. Private Sub CSearch_Click() Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, T...
03.08.2009 08:42:25
Thread-ID: 1093113
4 Beiträge
Anzeige
VBA: Gültigkeit für eine Zelle zuweisen
André

Moin zusammen,
ich möchte per VBA einer Zelle eine Gültigkeit zuweisen, und zwar eine Liste von Werten, die dann per Dropdown ausgewählt werden können.
Um den hierzu notwendigen Code zu erhalten, habe ich die Gültigkeit manuell zugewiesen und per Makrorekorder aufzeichnen lassen. Dabei...
22.03.2010 14:10:36
Thread-ID: 1147568
3 Beiträge
Zelle farbig ausfüllen über Formel / bedingte Form
Jim

Hallo Forum,
ich habe eien Frage bzgl. einer Zellformatierung.
Mit welcher Formel oder bedingten Formatierung kann ich einer Zelle eine Füllfarbe unter Randbedingungen zuweisen
Z.B steht in der Zelle A1 die Zahl 1, 2, 3, 4 oder 5. Nun soll die Zelle A2 farbig sein (ohne das ich ein...
22.07.2010 22:07:47
Thread-ID: 1168460
3 Beiträge
VBA Zellen je nach Inhalt einfärben
jens

Hallo Excel-Profis,
ich habe ein Makro das mir einen Bereich durchgeht und die Zellen je nach inhalt färbt:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Sheets("Reservierung (3)").Select Dim RaBereich As Range, RaZelle As Range Set RaBereich = Range("B8:P48") 'Set RaBereic...
28.10.2010 12:00:06
Thread-ID: 1184257
7 Beiträge
Formatieren von Zellen per VBA
Zellen

Guten Tag
habe bereits eine Ergänzungsfrage zu einem Projekt bei welchem mir hier via Forum schon sehr sehr gut geholfen wurde....
und zwar:
mittels folgendem Code schreibe ich in eine Spalte ein Datum:
Cells(j, 10).Value = CDate(MyDatStrg)
Wie müsste ich diese Zeile erweite...
07.12.2010 10:53:17
Thread-ID: 1190357
18 Beiträge
Zellen einfärben per VBA
Heinz

Guten morgen,im Forum
Ich hätte bitte gerne ein Makro.
Wenn zB. A3"" das in E4+F4 die Zelle gelb eingefärbt wird.
Also immer eine Zelle in E+F darunter, wenn Spalte A ungleich "".
Angefangen von A5 bis A1000
Mit bed.Formatierung würde die Arbeitsmappe einfach zu groß.
Kö...
29.03.2011 09:10:20
Thread-ID: 1208020
5 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

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
7
2
1
3
2
2
2
6
17
4
4
2
5
7
2
7
2
5
2
2
2
3
8
2
6