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

hallo rainer kannst du nochmal gucken

hallo rainer kannst du nochmal gucken
10.06.2002 09:37:47
jhaustein
unten im thread

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: hallo rainer kannst du nochmal gucken
10.06.2002 10:25:35
Rainer
Habe ich gemacht;-)

Lieben Gruß
Rainer

Re: hallo rainer kannst du nochmal gucken
10.06.2002 10:38:43
jhaustein
hallo rainer, kleines problem immernoch
in folgender zeile
Worksheets("tabelle1").Cells(2, i + 1).Value = txtContr(i).Value

kommt folgende fehlermelkdung

fehler91
objektvariable oder withblock variable nicht festgelegt

Re: hallo rainer kannst du nochmal gucken
10.06.2002 11:14:30
Rainer
Lieber Jörg!

So kann ich das jetzt nicht nachvollziehen.

Hast du die FOR-Schleife davor gesetzt?

For i= 1 to 4
..
Worksheets("tabelle1").Cells(2, i + 1).Value = txtContr(i).Value
..
next i

Lieben Gruß
Rainer

Re: hallo rainer kannst du nochmal gucken
10.06.2002 11:17:57
jhaustein
ja so sieht doch dein makro aus

Private Sub CommandButton2_Click()
'Schreibt den Inhalt der Steuerelemente in das 1. Blatt
Dim mp As String



' Einfache Form - muss für jedes einzelne Textfeld geschrieben werden
With Worksheets("tabelle1")
mp = UserForm1.MultiPage1(MultiPage1.Value).Name & " - "
.Cells(3, 2).Value = mp & UserForm1!txt_Neu1.Value
.Cells(3, 3).Value = mp & UserForm1!txt_neu2.Value
.Cells(3, 4).Value = mp & UserForm1!txt_neu3.Value
.Cells(3, 5).Value = mp & UserForm1!txt_neu4.Value
End With

' Besser, da flexibel
For i = 1 To 4
Worksheets("tabelle1").Cells(2, i + 1).Value = txtContr(i).Value
'löscht Inhalt im jeweiligen Steuerelement
txtContr(i).Value = ""
Next i

' Andere Möglichkeit: direkte Ansprache des Textfeldes
' Achtung auf die Ausrufezeichen!!
' MsgBox UserForm1!txt_Neu1.Value
' MsgBox UserForm1!txt_Neu2.Value
' MsgBox UserForm1!txt_Neu3.Value
' MsgBox UserForm1!txt_Neu4.Value

End Sub

Anzeige
Vielen Dank für Deine Hilfe jetzt geht´s
10.06.2002 11:21:48
jhaustein

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige