Office: (Office 2019) Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"

Helfe beim Thema Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box" in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Morgen zusammen, ich habe eine Frage zu Excel VBA. Folgendes Problem: Ich habe schon einen VBA Befehl für die Spalte P, der sieht... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Silverstream, 10. Januar 2022.

  1. Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"


    Guten Morgen zusammen,

    ich habe eine Frage zu Excel VBA.

    Folgendes Problem:
    Ich habe schon einen VBA Befehl für die Spalte P, der sieht folgendermaßen aus:
    "
    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Zelle As Range
    Dim Bereich As Range
    Set Bereich = Intersect(Target, Range("p2:p2000"))
    If Not Bereich Is Nothing Then
    For Each Zelle In Bereich
    'Code für Bereich A:A
    If Zelle = "" Then
    Zelle.Offset(, -1).ClearContents
    Else
    Zelle.Offset(, -1) = Now
    End If
    Next Zelle
    End If

    End Sub
    "
    Nun benötige ich aber noch einen VBA-Befehl der, wenn ich einen Text in eine Zelle der Spalte P schreibe, mir eine Msg-Box öffnet mit einer Abfrage (j/n würde reichen)

    Wie kann ich 2 dieser Befehle kombinieren?

    Besten Dank schonmal

    Grüße

    Silver
     
    Silverstream, 10. Januar 2022
    #1
  2. Hajo_Zi
    Hajo_Zi Erfahrener User
    Hallo Silver,

    nach Else
    If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
    MsgBox "Ja"
    Else
    MsgBox "Nein"
    End If

    Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box" GrußformelWenn ein Text in eine Zelle geschrieben wird dann "Msg Box" Homepage
     
    Hajo_Zi, 10. Januar 2022
    #2
  3. Guten Morgen, danke für die schnelle Antwort.

    Wenn ich das richtig kombiniert habe sollte das so aussehen oder?

    "
    Option Explicit
    Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Zelle As Range
    Dim Bereich As Range
    Set Bereich = Intersect(Target, Range("p2:p2000"))
    If Not Bereich Is Nothing Then
    For Each Zelle In Bereich
    If Zelle = "" Then
    Zelle.Offset(, -1).ClearContents
    Else
    Zelle.Offset(, -1) = Now

    If MsgBox("Wollen Sie den Auftrag wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?") = vbYes Then
    MsgBox "Ja"
    Else
    MsgBox "Nein"
    End If
    Next Zelle
    End If

    End Sub
    "

    leider funktioniert das nicht. "Variable oder Prozedur anstelle eines Moduls erwartet"

    Der Zusatz kommt dann aber auch unter "Tabelle 1" oder sollte der in ein Modul?

    Die Msg-Box sollte sich (mit dem Zusatz) öffnen wenn ein Text in eine Zelle der Spalte P geschrieben wird.
    (mein bisheriger VBA Befehl trägt ja ein Datum in die Zelle links daneben ein, bzw löscht es wieder)


    Beste Grüße

    Silver
     
    Silverstream, 10. Januar 2022
    #3
  4. Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"

    Erldigt... Hatte ein Modul mit dem selben Namen.
    Mein Fehler.

    Danke dir!
     
    Silverstream, 10. Januar 2022
    #4
Thema:

Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box"

Die Seite wird geladen...
  1. Wenn ein Text in eine Zelle geschrieben wird dann "Msg Box" - Similar Threads - Text Zelle geschrieben

  2. Text erscheint nicht in Zelle beim Schreiben

    in Microsoft Excel Hilfe
    Text erscheint nicht in Zelle beim Schreiben: Hallo, normalerweise wenn ich schreibe, dann sieht man das direkt in der Zelle und oben in dieser Textzeile. ABER wenn ich jetzt schreibe (Version 15.30 Microsoft Excel für Mac) dann sehe ich den...
  3. Bild mit Text aus Zelle verknüpfen

    in Microsoft Excel Hilfe
    Bild mit Text aus Zelle verknüpfen: Guten Tag Ihr Lieben Ich würde gerne mal wieder auf Eure hochgeschätzte Hilfe zugreifen. Ich habe eine Datei in dem ich ALLE Puzzles (ca. 250 Stück ) meiner Frau eingegeben habe. Das habe ich im...
  4. Makro nur wenn Text in Zellen

    in Microsoft Excel Hilfe
    Makro nur wenn Text in Zellen: Hallo Zusammen, mit dem unten stehenden Code wird eine Textdatei mit dem Inhalt aus den verbundenen Zellen C30:L32 generiert. Nun kommt es vor das jemand in die Zellen klickt und es wird eine...
  5. VBA Text in Zellen einfügen und farbigem Hintergrund

    in Microsoft Excel Hilfe
    VBA Text in Zellen einfügen und farbigem Hintergrund: Hallo zusammen, ich möchte eine Zeile mit Text und farbigem Hintergrund einfügen. Ich habe bereits einen kleinen Schnippsel VBA-Code gefunden. Dieser erstellt in der Tabelle Tabelle1 in Zeile 2...
  6. Textinhalte zu Vergleichswert in einer Zelle zusammenführen

    in Microsoft Excel Hilfe
    Textinhalte zu Vergleichswert in einer Zelle zusammenführen: Hallo zusammen, ich bin auf der verzweifelten Suche nach einem Lösungsansatz: In meiner Ursprungstabelle sind in Spate A diverse Texteinträge, denen in Spalte B bestimmte weitere Texteinträge...
  7. Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

    in Microsoft Excel Hilfe
    Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen: Hallo, ich erstelle mir aus verschiedenen Textdateien eine Adressliste (mehrere hundert Einträge, Ende variiert). Am Ende der Liste erscheint immer etwas "Kauderwelsch"...
  8. Text in zelle geschrieben

    in Microsoft Excel Hilfe
    Text in zelle geschrieben: Hallo miteinander, ich habe ein Userform mit einer Combobox2 die aus einer anderen Tabelle befüllt wird. In anderen Tabelle steht in Spalte A der Text, der in der Combobox2 ausgewählt wird und...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden