Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.10.2025 16:15:02
Zellen färben, wenn zwei Bedingungen erfüllt sind
28.10.2025 11:23:24
Summewenns nach Datum und Uhrzeit tagübergreifend
28.10.2025 09:13:03
Bedingte Formatierung?
28.10.2025 08:50:55
Mehrere Tabellen zusammenführen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

AbfrageBox VBA Code anpassen

Forumthread: AbfrageBox VBA Code anpassen

AbfrageBox VBA Code anpassen
andreas
Hallo zusammen,
mit dem folgenden Code trage ich Wert in Zellen ein, jetzt will ich zuerst überprüfen ob die aktive Zelle keine Werte enthält. Ist die Zelle leer werden die Werte der Textboxen eingetragen.
Ist die Zelle nicht leer, so soll das Formular "Warnung" aufgerufen werden. Dieses enthält die Meldung "schon Werte vorhanden, wollen sie überschreiben?" Und zwei Button "Ja" "Nein"
Bei ja ganz normal die Werte in die Zelle eintragen und bei nein Formular "Warnung" und aktuelles Formular schliessen und bestehende Werte in Zelle stehen lassen.
Frage1: wie muss ich die Abfrage in bestehenden Code schreiben.
Frage2: wie sieht der Code bei Button nein aus damit auch die bestehenden Werte in der Zelle stehen bleiben?
Danke für die Hilfe
Andreas
Private Sub CommandButton1_Click()
Warnung.Show
ActiveCell.Offset(, 0) = _
TextBox1 & "-" _
& TextBox2 & " / " _
& TextBox3 & "-" _
& TextBox4 & " / " _
& TextBox5
Unload Me
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
mit einer MsgBox
15.11.2010 16:16:40
Tino
Hallo,
meinst Du es so?
Private Sub CommandButton1_Click()
Dim intAntwort As VbMsgBoxResult

With ActiveCell
    intAntwort = vbYes
    If .Value <> "" Then
        intAntwort = MsgBox("Sollen die Werte in der Zelle: " & .Address(0, 0) & _
                            " überschrieben werden!", vbExclamation)
    End If
  
    If intAntwort = vbYes Then
        .Value = _
              TextBox1 & "-" _
            & TextBox2 & " / " _
            & TextBox3 & "-" _
            & TextBox4 & " / " _
            & TextBox5
   End If
End With
End Sub
Gruß Tino
Anzeige
Danke genau so
16.11.2010 12:57:02
andreas
Danke Tino so hatte ich es gemeint
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige