Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
2012to2016
2012to2016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Nur in graue Zellen springen und Wert eintragen

Forumthread: Nur in graue Zellen springen und Wert eintragen

Nur in graue Zellen springen und Wert eintragen
10.05.2025 19:29:35
Hotte
Hallo Forum.....
Ich habe mal eine Idee....um einen Ablauf etwas zu vereinfachten
Ich lasse mir in der Zelle G5 ein Ergebnis berechnen .
Jetzt möchte ich per Klick dieses Ergebnis in Zelle z.b b7 eingetragen habe .
Das nächste Ergebniss dann in c7 . Usw...
20 Werte die teils nebeneinander und untereinander stehen.

Jetzt wollte ich die Ergebnisszellen grau hinterlegen ,sodass die Programmierung nur in die grauen Zellen springt und dann nach und nach das Ergebnis einträgt

Vereinfacht gesagt...
Per Klick prüfe ob Zelle grau ist,steht ein Wert drin,dann trage den neuen Wert in nächste graue Zelle ein.

Somit spare ich mir das ständige kopieren einfügen .
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wenn du deine...
10.05.2025 21:33:30
Case
Moin, :-)

... Idee noch mit einer Beispieldatei untermauerst (aussagekräftig und mit Wunschergebnis), wäre das eine feine Sache. ;-)

Servus
Case
AW: Nur in graue Zellen springen und Wert eintragen
10.05.2025 21:59:15
Piet
Hallo

wenn du das Ergebnis von rechts nach links ausfüllen willst geht es mit diesem einfachen Code.
Du musst nur für "B7:K8" DEINEN aktuellen Bereich angeben, und ggf. K8 für die MsgBox ändern.

mfg Piet 

Sub Ergebnis_eintragen()

    Dim AC As Range

    '2x 10 Zeilen für Ergebnis

    For Each AC In Range("B7:K8")   'DEINEN Bereich angeben  (K8 für MsgBox ggf. ändern!)

        If AC.Value = "" Then

           AC.Value = Range("G5")

           If AC.Address(0, 0) = "K8" Then _

              MsgBox "Letzte Zelle ausgefüllt!"

           Exit Sub

        End If

    Next AC

End Sub
Anzeige
AW: Danke für die nette Rückmeldung. Freut mich oWt
11.05.2025 01:57:43
Piet
...
AW: Danke für die nette Rückmeldung. Freut mich oWt
15.05.2025 16:28:55
Hotte
Hallo Piet hallo @all

ich wollte nochmal den Beitrag aufnehmen und komme nicht ganz weiter.
ich wollte per klick immer in die Gelben Felder Springen.
code ist angepasst,aber er durchläuft alle.
Könnt ihr mir mal helfen,dass er nur dann weiter springt wenn ich klicke.....

Sub Ergebnis_eintragen()
Dim AC As Range
Dim objcell as Range
'2x 10 Zeilen für Ergebnis
For Each objcell In Range("B11:F11,B16:F16,B21:F21,B26:F26,B31:F31") 'DEINEN Bereich angeben (K8 für MsgBox ggf. ändern!)
If objCell.Interior.ColorIndex = 6 Then
objCell.Value = Range("M6")
If objCell.Address(0, 0) = "K8" Then _
MsgBox "Letzte Zelle ausgefüllt!"
Exit Sub
End If
Next objCell
End Sub
Anzeige
AW: Danke für die nette Rückmeldung. Freut mich oWt
15.05.2025 17:28:06
Hotte
Erledigt....
Habe es hinbekommen....
Kann geschlossen werden!
AW: Nur in graue Zellen springen und Wert eintragen
10.05.2025 22:29:42
Hotte
Super.vielen dank!
Passe mir das so an! 100% top!
Schönes Wochenende
AW: Nur in graue Zellen springen und Wert eintragen
11.05.2025 08:42:15
RPP63
Moin Piet!
Dein Code läuft eher unter dem Motto, wie man Excel möglichst effektiv ausbremst … ;)
Ich würde einen Wert wie folgt in einen fragmentierten Bereich übernehmen: 
Sub MachEs()

Range("B3,C2:D4,E8,F1:F5,G5:J8") = Range("A1")

End Sub


Gruß Ralf
Anzeige
AW: Nur in graue Zellen springen und Wert eintragen
15.05.2025 14:40:18
hotte
Hallo Piet hallo @all

ich wollte nochmal den Beitrag aufnehmen und komme nicht ganz weiter.
ich wollte per klick immer in die Gelben Felder Springen.
code ist angepasst,aber er durchläuft alle.
Könnt ihr mir mal helfen,dass er nur dann weiter springt wenn ich klicke.....

Sub Ergebnis_eintragen()
Dim AC As Range
Dim objcell as Range
'2x 10 Zeilen für Ergebnis
For Each objcell In Range("B11:F11,B16:F16,B21:F21,B26:F26,B31:F31") 'DEINEN Bereich angeben (K8 für MsgBox ggf. ändern!)
If objCell.Interior.ColorIndex = 6 Then
objCell.Value = Range("M6")
If objCell.Address(0, 0) = "K8" Then _
MsgBox "Letzte Zelle ausgefüllt!"
Exit Sub
End If
Next objCell
End Sub
Anzeige
AW: Wenn du deine...
10.05.2025 21:37:54
Hotte
Ja das mache ich gerne die Tage...Muss mich hier mal zurecht finden ...
Danke für die Hilfe !
Gruß
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum