Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Code Änderung

Hilfe bei Code Änderung
23.10.2005 10:57:39
Hambücker
Hallo Forum,
ich möchte den unten angezeigten Code so umändern, damit die Eingabe in der Tabelle 3 in Zelle A1 erscheint.
Die Eingabe erfolgt in eine Textbox die sich in einer UF befindet,wer von euch kann mir da weiter helfen ?
MfG Dieter

Private Sub CommandButton1_Click()
On Error GoTo Fehler
If TextBox1.Value = "" Then Exit Sub
[A1] = [A1] + CDbl(UserForm1.TextBox1)
Unload Me
Exit Sub
Fehler:
MsgBox "Es handelt sich nicht um reine Zahler!", vbCritical, "Falsche Eingabe"
TextBox1.Value = ""
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Code Änderung
23.10.2005 11:03:09
Rene
Hallo!
Der Code lautet wie folgt:

Private Sub CommandButton1_Click()
On Error GoTo Fehler
If TextBox1.Value = "" Then Exit Sub
Sheets("Tabelle3").Range("A1").Value = Textbox1.Value
Unload Me
Exit Sub
Fehler:
MsgBox "Es handelt sich nicht um reine Zahler!", vbCritical, "Falsche Eingabe"
TextBox1.Value = ""
End Sub

Grüße, Rene
AW: Hilfe bei Code Änderung
23.10.2005 11:11:16
Hambücker
Hi Rene, danke Dir für deine schnelle und Profihafte Antwort.
MfG Dieter
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige