Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1020to1024
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
Inhaltsverzeichnis

Button

Button
30.10.2008 13:42:00
Frank
Hallo,
ich hätte nochmal eine Frage zu diesem Code.
Wie kann ich über eine MsgBox eine Meldung ausgeben
das in der ComboBox erst eine Eingabe erfolgen muss
bevor der Button betätigt wird.
Um so die Fehlermeldung zu umgehen.

Private Sub CommandButton1_Click()
Sheets("Formular").Activate
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Kunden.ComboBox6.Value
Range("B2") = ActiveSheet.Name
For blatt = 2 To Sheets.Count
Next
Unload Kden
End Sub


Über Hilfe würde ich mich sehr freuen.
Gruss
Frank

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

Betreff
Datum
Anwender
Anzeige
AW: Button
30.10.2008 13:47:50
gerwas
Hallo Frank
Füge doch eine Abfage ein, etwa so:

Private Sub CommandButton1_Click()
If Kunden.ComboBox6.Value="" Then
MsgBox "Bitte eingeben"
'Fehlerbehandlung einfügen oder Exit Sub
End If
Sheets("Formular").Activate
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = Kunden.ComboBox6.Value
Range("B2") = ActiveSheet.Name
For blatt = 2 To Sheets.Count
Next
Unload Kden
End Sub


Gruß gerwas

AW: Button
30.10.2008 13:53:27
Frank
Danke gerwas, funktioniert wunderbar
Viele Grüsse
Frank
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige