Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige