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
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 13: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 13: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 14: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 08: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

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Bitte um Excel Hilfe / Wenn & Leere Zellen
Hans

Hallo Leute,
ich hoffe mir kann hier jemand helfen, da ich vergeblich versucht habe dahinter zu kommen.
Folgendes, ich habe eine Arbeitszeitübersicht in der ich die Arbeitszeit ausrechnen will und der Übersichtlichkeit wegen an Tagen an denen ich nicht arbeite die Zelle leer bleibt.
02.09.2008 15:53:00
Thread-ID: 1006840
7 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Anzeige
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Anzeige
verschachtelte Wenn-Funktion?
Karin

Hallo zusammen,
in einer Spalte stehen Nachnamen. Nun soll in einer weiteren Spalte die E-Mail-Adresse für diesen Namen angezeigt werden. Mit einer mit "&" verschachtelten Wennfunktion komme ich nicht weiter. Es kommt die Meldung "Formel zu lang". Den gleichen Effekt habe ich mit der Fu...
18.10.2008 17:41:43
Thread-ID: 1017371
7 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
WENN-Funktion: Zellen ausschneiden / abändern
Sascha

Hallöchen,
ich habe 2 Listen, in der linken stehen offene Beträge mit Rechnungsnummer und vorraussichtlichem Zahlungsdatum, in der rechten stehen die selben Daten, nur sollen Sie dort nur angezeigt werden, wenn Sie erledigt sind.
Zwischen beiden Zeilen sind Kontrollkästchen, die mit der...
27.12.2008 07:22:23
Thread-ID: 1035343
20 Beiträge
Zählenwenns... Leere Zelle
UweD

Hallo
Ich habe 2 Tabellen, wo (fast) täglich 1. Produktionsrückstände und 2. Fehler aufgelistet sind.
Es kommt vor, daß eine Tabelle mal an einem Tag nicht abgefragt und gefüllt wird.
In der Zusammenfassung wird dieser Tag dann mit 0 gewertet. Wie stelle ich es an, daß an diesem Tag...
13.02.2009 10:55:00
Thread-ID: 1050400
5 Beiträge
vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Leere Zellen löschen wenn
walli

Hallo Fachfrauen u. Männer,
ich möchte gern zellen löschen wenn beide Spalten Leerzellen sind.
Beispiel:
In an D5 u. E5 stehen zahlen
D6 u. E6 stehen keine zahlen dann bitte beide also d+E nnach oben schieben
siehe Beispiel Mappe:
https://www.herber.de/bbs/user/62422...
14.06.2009 14:16:37
Thread-ID: 1081380
24 Beiträge
Anzeige
Formeln sollen im nur arbeiten wenn Zelle leer ist
Andy

Hallo,
ich weiß nicht ob das überhaupt machbar ist.... aber hier meine Frage.
Wenn ich in Zellen, Formeln stehen habe die mir Werte ausgeben, und ich aber manchmal den Wert nicht akzeptieren möchte und Ihn deswegen Überschreibe. Dann ist normalerweise die Formel in der Zelle weg.
Kö...
26.06.2009 12:01:06
Thread-ID: 1084556
24 Beiträge
verschachtelte WENN Funktion
Yusuf

Moin, ich habe eine verschachtelte Wenn Funktion
=WENN(Z(28)S(-6)="Yes";"Issue created";WENN(Z(26)S(-6)="No";"No Issue";WENN(Z(26)S(-6)="Yes"; "Create Issue";"")))
Jetzt moechte ich gerne beim ersten Wenn eine zweite bedingungen einbauen, jedoch komme ich nicht drauf, wo das UND eingeb...
23.07.2009 11:20:29
Thread-ID: 1090739
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige