Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
152to156
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
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm Problem

UserForm Problem
02.09.2002 20:49:39
Andi ©
Hy Leute
Ich hab folgendes Problem. Ich erstelle ein UserForm formular, mit mehreren Textboxen und dazu schreib ich ein macro.
Folgendes:

Private Sub CommandButton1_Click()
Set Frm = UserForm1
Sheets("Tabelle1").Activate
Range("65536").End(xlUp).Offset(1,0).Select
With Frm
ActiveCell.Value = .TextBox1 . Value
ActiveCell.Offset(0, 1).Value = .TextBox2.Value
ActiveCell.Offset(0, 2).Value = .TextBox3.Value
ActiveCell.Offset(0, 3).Value = .TextBox4.Value

End With
End Sub

Leider bleibt das Macro stehen bei der ersten Zeile:
" Set Frm =UserForm1 " das "Frm" wird farblich hervorgehoben.
Ich hab es schon öfter versucht, ohne erfolg!

Was mach ich falsch??

Andi

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserForm Problem
02.09.2002 20:52:11
Hajo_Zi
Hallo Andi

warum set

schreibe doch Einfach
Sheets("Tabelle1").Activate
Range("65536").End(xlUp).Offset(1,0).Select
With Me

wenn es sich um die aktuelle Userform handelt
bzw.
Sheets("Tabelle1").Activate
Range("65536").End(xlUp).Offset(1,0).Select
With Userform1


Gruß Hajo

Re: UserForm Problem
02.09.2002 21:47:17
Andi ©
Danke werd es versuchen ;-)

Andi ©

Re: UserForm Problem
03.09.2002 08:12:54
Michael
Hallo Andi,

wenn Du mit variablen arbeiten willst, mußt Du sie vorher dimensioniern in diesem Fall Dim Frm as Userform.
Dann funktioniert dein Makro

Gruß

Michael

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige