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

Wenn Zellebereich leer dann Buchstaben einfügen

Forumthread: Wenn Zellebereich leer dann Buchstaben einfügen

Wenn Zellebereich leer dann Buchstaben einfügen
26.06.2024 15:14:28
Tom
Hallo zusammen,

ich möchte eine Excel Datei erstellen, in denen im Bereich B5:AF5 & D8bisAF8 immer über VBA automatisch ein P eingetragen werden, wenn die Zelle leer ist.
Kann mir jemand helfen? Irgendwie bekomme ich das nicht hin.

Viele Grüße,
Tom
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn Zellebereich leer dann Buchstaben einfügen
26.06.2024 15:36:05
GerdL
Hallo Tom,

wenn in Zellen in den beiden Bereichen der Wert entfernt wird. 
Option Explicit





Private Sub Worksheet_Change(ByVal Target As Range)



    Dim C As Range

    

    If Not Intersect(Target, Range("B5:AF5,D8:AF8")) Is Nothing Then

        For Each C In Intersect(Target, Range("B5:AF5,D8:AF8"))

            If C.Value = "" Then C.Value = "P"

        Next

    End If



End Sub

Gruß Gerd
Anzeige
AW: Wenn Zellebereich leer dann Buchstaben einfügen
26.06.2024 16:48:47
Tom
Funktioniert super! Danke!

Eine Frage habe ich noch dazu, ich möchte jetzt eine bedingte Formatierung einfügen über VBA und zwar möchte ich bei dem P die Schriftart dann ändern in Wedding 2. Kann man das in dem von dir geschickten Code unterbringen?

VG Tom
AW: Wenn Zellebereich leer dann Buchstaben einfügen
27.06.2024 10:31:38
MCO
Moin!

Über die bedingte Formatierung der Zellen kann man die Schriftart nicht beeinflussen. Aber das willst du ja auch nicht.

Alles in Zelle kannst du so beeinflussen: 
Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

    Dim C As Range

    

    If Not Intersect(Target, Range("B5:AF5,D8:AF8")) Is Nothing Then

        For Each C In Intersect(Target, Range("B5:AF5,D8:AF8"))

            With C

                If .Value = "" Then

                    .Value = "P"

                    .Font.Name = "Wedding 2"

                    '.Font.Size = 12

                End If

            End With

        Next

    End If    

End Sub


Gruß, MCO
Anzeige

Forumthreads zu verwandten Themen

Zellen hochzählen unter Bedingungen (Max +1 je Kategorie)
fettes Schaf
Hallo zusammen,

erstmal finde ich dieses Forum hier klasse. Ich habe schon so viele Antworten auf meine Excel-Probleme gefunden. Für mein aktuelles finde ich aber keine Lösung, obwohl ich denke, dass das ein gar nicht so ungewöhnliches Problem ist.

Es geht um Bäume, die verschieden...
20.09.2023 13:35:44
Thread-ID: 1946767
5 Beiträge
Wie erreicht man mit einer Formel eine leere Zelle
Peter

Wie bekomme ich eine Zelle mit einer Formel in einer Spalte, die für ein Linien-diagramm benutzt wird "leer", so dass sie nicht wie Null interpretiert wird.
Schreibe ich: "Wenn(1=1;;1)" dann ist das Ergebnis schon in der Zelle "0".
Was ich übrigens wirklich Unsinn finde, warum denn "0"?...
15.03.2005 20:45:17
Thread-ID: 585713
15 Beiträge
Auslesen einer Spalte ohne scheinbar leere Felder
SKY

Hallo zusammen,
ich möchte aus einer Spalte, welche über eine Formel Text oder leere Zellen anzeigt nur die Zellen auslesen, welche einen Text beinhalten.
Die Zellen mit Text sollen untereinander aufgelistet werden.
Leider funktioniert die Lösung mit folgender Formel nicht, da Excel...
09.10.2018 18:28:03
Thread-ID: 1650292
19 Beiträge
Spalte durchsuchen und Wert d. Vorzeile übernehmen
Ron

Hallo Ihr Lieben,
ich brauche wieder mal Eure Hilfe. Wie kann ich eine VBA Schleife aufbauen, die mir folgendes bietet:
Durchsuche das Tabellenblatt Spalte B ab Zeile 7 bis zum Ende. Wenn in der Zelle Inhalte sind, soll in die nächste Zeile gesprungen werden. Ist die Zelle leer, soll de...
24.02.2016 18:55:58
Thread-ID: 1477912
6 Beiträge
Anzeige
ListBox Daten in Excel variabel übernehmen u.a.
Harald

Hallo Zusammen,
ich stehe für mich vor einer großen Herausforderung, meine Userform hat eine Listbox (benannt als Listbox6), diese wird vorher mit Daten basierend auf Userwahl von einer anderen LB gefüttert. Soweit funktioniert auch alles. Am Ende möchte ich folgendes erreichen:
Nach Co...
20.02.2014 23:55:54
Thread-ID: 1350584
3 Beiträge
Makro Zeilen in .txt Datei kopieren -Fehler
Andre_D

Hallo zusammen,
per Makro möchte ich, dass aus einem Tabellenblatt Zeilen, in denen die Spalte A einen Wert enthält, in eine Text-Datei geschrieben werden. Die Spalten sollen per Tabstop getrennt werden. Besonderheit: der Export soll bei Zeile 3 beginnen.
Habe einen Code gefunden der a...
30.08.2018 18:29:57
Thread-ID: 1642449
5 Beiträge
Auslesen von Werten - über SVerweis möglich LUC:-?
Werten

Hallo zusammen,
leider muss ich einen neuen Thread aufmachen, da ich nicht weiss, wie ich einen aus dem Archiv fortführen kann.
Der Ursprungsthread ist vom 20-6-06 in Archiv Paket 772 to 776. Leider konnte ich aber zeitlich in der Zeit das ganze nicht weiter verfolgen.
Dort ist ein...
02.08.2006 11:37:17
Thread-ID: 787629
1 Beitrag
Anzeige
Auslesen von Werten - über SVerweis möglich
Werten

Hallo zusammen,
habe folgende Problematik:
In Datei A: habe ich folgenden Aufbau:
Spalte A (Modellname) B (Var. 1-N) C (leer) D (€)
Zeile
1 Modellname1 Variante 1 10,00 €
2 alle nachfol-...
20.06.2006 13:38:16
Thread-ID: 774726
3 Beiträge
vba Code vergleicht zwei Zellen lange Laufzeit
Daum

Hallo zusammen,
ich habe folgendes Problem habe mir einen Code zusammengebastelt welcher die Zellen der Spalte B aus einer Tabelle mit den Zellen aus Spalte B einer anderen Tabelle (Materialstammliste) vergleicht und wenn es einen Treffer gibt soll es aus der Tabelle Materialstammliste di...
30.06.2016 16:05:58
Thread-ID: 1501818
9 Beiträge
Fehler in Code
Birgit

Hallo zusammen,
ich habe in folgendem Code ein Problem und zwar, dass der Wert aus Spalte "K" nicht zu der Zeile passt.
Als Beispiel:
Zeile 5 ==> B5 = L.ELLW.Z1 // Wert in K5 = 10€
In der Projektplanung sieht es allerdings dann so aus:
Zeile 67 ==> D67 = L.ELLW.Z1 // W...
20.04.2020 15:47:48
Thread-ID: 1753687
2 Beiträge
Anzeige
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