Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Inhalt von Userform in Tabellenblatt aufnehmen

Forumthread: 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




Anzeige

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

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige