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

Sperre wenn kein Name in Zelle steht

Forumthread: Sperre wenn kein Name in Zelle steht

Sperre wenn kein Name in Zelle steht
10.11.2025 03:41:27
NicoHendrik
Guten Morgen,
Ich habe eine Tabelle von A1:NN50. Wenn nun in A1 kein Name drinsteht, darf in M1 bis NN1 nichts eingetragen werden, also muss die MsgBox “Eintrag erst erlaubt, wenn ein Name eingetragen wurde“ kommen. Dies soll für A1 bis A50 gelten.
Hat jemand eine VBA-Lösung für mich?
Gruß Nico
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sperre wenn kein Name in Zelle steht
10.11.2025 05:54:07
RPP63
Moin!
Warum VBA?
Das ist eine Aufgabe für die Datengültigkeit (auch wenn an die "austricksen" kann).
• markiere M1:NN1
• Zulassen → Benutzerdefiniert → Formel: =$A1>""
• die Meldung gibst Du im Register Fehlermeldung an

Gruß Ralf
AW: Sperre wenn kein Name in Zelle steht
10.11.2025 14:00:58
Uduuh
Hallo,
sowas? 
Private Sub Worksheet_Change(ByVal Target As Range)

  If Not Intersect(Target, Range("M1:NN50")) Is Nothing Then

    If Target.Count = 1 Then

      If Target > "" Then

        If Cells(Target.Row, 1) = "" Then

          MsgBox "Erst in A was eintragen!", vbOKOnly, "Gebe bekannt..."

          Application.EnableEvents = False

          Target = ""

          Cells(Target.Row, 1).Select

          Application.EnableEvents = True

        End If

      End If

    Else

      MsgBox "Nur eine Zelle markieren!", vbOKOnly, "Gebe bekannt..."

    End If

  End If

End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Sperre wenn kein Name in Zelle steht
10.11.2025 16:12:32
NicoHendrik
Danke Udo,

Daniels Lösung hat geklappt.

Grüße aus den hohen Norden
Nico
Dies soll für A1 bis A50 gelten
10.11.2025 06:19:30
RPP63
Gerade erst gesehen …
Dann musst Du erst M1:NN50 markieren.
Der Rest bleibt.
AW: Dies soll für A1 bis A50 gelten
10.11.2025 08:42:57
NicoHendrik
Danke Ralf,

so einfach.

Gruß Nico
Anzeige
AW: Dies soll für A1 bis A50 gelten
10.11.2025 10:48:53
NicoHendrik
Hallo Ralf,

wurde gut funktionieren aber in meinem Fall nicht da ich in M1 bis NN50 mit VBA Selection = einen Eintrag mache.

Gruß Nico

I
ch habe mir das so eventuell vorgestellt?

'Abfrage ob Name in A steht?

If Range("A1….A50") = "" Then

MsgBox "Es muss erst einen Name eingetragen werden!", vbCritical

Else

Selection = A

End If

Anzeige
AW: Dies soll für A1 bis A50 gelten
10.11.2025 11:30:44
daniel
HI
Lade bitte mal eine passende Beispieldatei hoch und beschreibe GENAU was du machst und was abgesichert werden soll.
Wer trägt wie ein (manuell oder VBA, jede Zelle einzeln oder auch größere Zellbereiche (STRG+ENTER, oder Copy-Paste)
und wie genau soll die Prüfung stattfinden?
Gruß Daniel
Anzeige
AW: Dies soll für A1 bis A50 gelten
10.11.2025 11:50:35
NicoHendrik
Hallo Daniel,

leider kann ich von Apple aus keine Datei in Herbers hochladen. (war schon immer ein Problem)

Das soll so funktioniren:

In M1 bis NN50 trage ich einen Buchstabe mit einen Button mit Zb. Selection = G ein.
Das funktioniert sehr gut.

Nun möchte ich aber das wenn in Spalte A kein Name drin steht die MsgBox "Bitte erst Name eintragen" erscheint.

ZB.

A20 = leer, ich probiere aber in P20 bis T20 mit Selection einen Wert einzutragen, dann soll die MsgBox kommen.

Das soll für A1:A50 gelten und die Eigaben mit Selection sind in M1:NN50

Gruß Nico
Anzeige
AW: Dies soll für A1 bis A50 gelten
10.11.2025 13:49:03
daniel
Hi
ok, du hast ein Makro, dass die Werte einträgt, und du trägst die Werte u.U. in mehrere Zellen gleichzeitig ein.
Dann hilft dir die Datenüberprüfung nichts. Die wirkt nur, wenn du die Zellen einzeln und händisch befüllst

du müsstest dir in den Code des Buttons eine entsprechende Abfrage einprogrammieren, bevor du das
Selection = G ausführst.

also beispielsweise so: 

dim Zelle as Range

dim Check as boolean



For each Zelle in Intersect (Range("A1:A50"), Selection.EntireRow).Cells

    if Zelle.value = "" then Check = True: Exit for

end if



if Check then

    Msgbox "Bitte tragen sie erst in Spalte A die Namen ein"

else

    Selection = G

End if


Gruß Daniel
Anzeige
AW: Dies soll für A1 bis A50 gelten
10.11.2025 16:13:56
NicoHendrik
Danke Daniel klappt hervorragend.

Gruß Nico
AW: Dies soll für A1 bis A50 gelten
10.11.2025 16:33:56
NicoHendrik
Hallo Daniel,
dein End If nach Exit for hab ich in Next: ausgetauscht. Klappt jetzt alles bestens.
Gruß Nico
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