Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
224to228
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
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inhalt von Userform in Tabellenblatt aufnehmen

Inhalt von Userform in Tabellenblatt aufnehmen
01.03.2003 14:37:22
Schäfer Hans-Jürgen
Hallo, ich habe ein Userform mit 5 Textboxen und 1 Combobox gestaltet. Die ComboBox enthält bereits Einträge die ausgewählt werden können. Über einen Command Button (Speichern) soll der jeweilige Inhalt des Userforms in ein Excel Tabellenblatt aufgenommen werden. Die eingegebenen Daten sollen im bereits geöffneten Excel-Tabellenblatt in Spalte A bis F eingetragen werden. Der erste Datensatz soll in Zeile 2 eingetragen werden. Bei erneutem Aufruf des Userforms oder beim Erfassen eines neuen Datensatzes soll der neue Eintrag automatisch in der nächsten leeren Zeile des Tabellenblattes erfolgen.
Vorab schon vielen Dank für die Hilfe




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

Betreff
Datum
Anwender
Anzeige
Re: Inhalt von Userform in Tabellenblatt aufnehmen
01.03.2003 14:49:37
Ramses

Hallo,

probier mal den Code:


Option Explicit

Private Sub CommandButton1_Click()
Dim i As Integer, Cr As Long, Cc As Integer
Dim wks As Worksheet
Cr = 65536
Cc = 1
Set wks = Worksheets("Tabelle1") ' wo die Daten hinsollen
If wks.Cells(Cr, Cc) = "" Then
    Cr = wks.Cells(Cr, Cc).End(xlUp).Row
    Debug.Print "Zeile " & Cr
End If
If Cr = 0 Then Cr = 1
For i = 1 To 5
    wks.Cells(Cr + 1, i) = Me.Controls("TextBox" & i)
Next i
For i = 1 To 5
    Me.Controls("TextBox" & i) = ""
Next i
Me.TextBox1.SetFocus
End Sub 

     Code eingefügt mit Syntaxhighlighter 1.16

Gruss Rainer

Anzeige
Re: Inhalt von Userform in Tabellenblatt aufnehmen
03.03.2003 13:11:44
Hansi

Hat geklappt vielen Dank

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige