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

Forumthread: Daten von Userform in Tabelle übertragen

Daten von Userform in Tabelle übertragen
13.10.2016 17:52:31
Userform
Hallo liebe Forummitglieder,
ich habe ein kleineres Problem mit VBA, aber ich bin mir sicher, dass Ihr mir helfen könnt.
Es handelt sich um folgendes:
Ich habe eine Tabelle in Excel erstellt, die ich über eine Userform händisch mit den entsprechenden Daten füllen möchte. Über den Commandbutton "Prozessdaten anlegen" öffnet sich die Userform und bereits eingegebene Daten sollen entsprechend in der UserForm angezeigt werden. Wird in der Userform der Commandbutton "Löschen" betätigt, sollen alle Listboxen sowie die Tabelleninhalte gelöscht werden. Über den Button "Speichern" sollen die neuen Angaben gespeichert und entsprechend in der Tabelle aktualisiert werden. Durch den Button "Beenden" soll die Userform geschlossen.
Für ein besseres Verständnis habe ich die entsprechende Datei angehängt:
https://www.herber.de/bbs/user/108769.xlsm
Leider habe ich sehr bescheidene VBA-Kenntnisse und keinerlei Vorstellung wie der Quellcode aussehen muss.
Über eure Lösungsvorschläge freue ich mich sehr.
Viele Grüße Dominik
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Daten von Userform in Tabelle übertragen
13.10.2016 18:16:42
Userform
Halli Hallo Dominik
Einfach mal in die UserForm Kopieren

Private Sub CommandButton1_Click()
Dim c As Long, r As Long
c = 3
r = 6
For i = 1 To 7
Me.Controls("TextBox" & i) = ""
r = r + 1
Next
End Sub
Private Sub CommandButton2_Click()
Dim c As Long, r As Long
c = 3
r = 6
For i = 1 To 7
Tabelle1.Cells(r, c) = Me.Controls("TextBox" & i)
r = r + 1
Next
End Sub
Private Sub CommandButton3_Click()
Unload Me
End Sub
Private Sub UserForm_Activate()
Dim c As Long, r As Long
c = 3
r = 6
For i = 1 To 7
Me.Controls("TextBox" & i) = Tabelle1.Cells(r, c)
r = r + 1
Next
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End Sub
Gruß Basti aus Lahde
Anzeige
AW: Daten von Userform in Tabelle übertragen
13.10.2016 19:47:36
Userform
Super, das ging ja flott.
Danke dir, das passt bestens :)
Viele Grüße Dominik
AW: Daten von Userform in Tabelle übertragen
14.10.2016 14:27:00
Userform
schön =) Danke
AW: Daten von Userform in Tabelle übertragen
17.10.2016 19:16:14
Userform
Eine Frage habe ich jetzt leider doch noch :/
Der Code funktioniert super.
Ich möchte aber die Schaltfläche auf ein neues Tabellenblatt eingefügt. Wenn ich dann die Schaltfläche betätige funktioniert es nicht mehr mit dem Übertragen der Daten von der Userform in die Tabelle.
Wie muss ich in dem Fall den Code anpassen?
Vielen Dank für die Hilfe :)
Grüße Dominik
Anzeige
AW: Daten von Userform in Tabelle übertragen
19.10.2016 20:06:54
Userform
Auf dem Neuen Tabellenblatt wo du den neuen Button angelegt haST MUSS unter VBA in dem Tabellenblatt
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Kommt drauf an wie deine Userform und dein Button heißen
Gruß Basti
;
Anzeige
Anzeige

Infobox / Tutorial

Daten von Userform in Tabelle übertragen


Schritt-für-Schritt-Anleitung

Um Daten von einer Userform in eine Excel-Tabelle zu übertragen, folge dieser einfachen Anleitung:

  1. Erstelle die Userform:

    • Öffne den VBA-Editor mit ALT + F11.
    • Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsm)" und wähle "Einfügen" > "UserForm".
  2. Füge Steuerelemente hinzu:

    • Ziehe TextBox-Elemente für die Eingabe der Daten auf die Userform.
    • Füge Buttons für "Speichern", "Löschen" und "Beenden" hinzu.
  3. VBA-Code für die Buttons:

    • Kopiere folgenden Code in das Codefenster der Userform:
    Private Sub CommandButton1_Click() ' Löschen
       Dim i As Long
       For i = 1 To 7
           Me.Controls("TextBox" & i) = ""
       Next
    End Sub
    
    Private Sub CommandButton2_Click() ' Speichern
       Dim c As Long, r As Long
       c = 3
       r = 6
       For i = 1 To 7
           Tabelle1.Cells(r, c) = Me.Controls("TextBox" & i)
           r = r + 1
       Next
    End Sub
    
    Private Sub CommandButton3_Click() ' Beenden
       Unload Me
    End Sub
    
    Private Sub UserForm_Activate() ' UserForm aktivieren
       Dim c As Long, r As Long
       c = 3
       r = 6
       For i = 1 To 7
           Me.Controls("TextBox" & i) = Tabelle1.Cells(r, c)
           r = r + 1
       Next
    End Sub
  4. Button auf neuem Tabellenblatt:

    • Wenn du den Button auf einem neuen Tabellenblatt platzierst, füge folgenden Code in das Codefenster des Tabellenblatts ein:
    Private Sub CommandButton1_Click()
       UserForm1.Show
    End Sub

Häufige Fehler und Lösungen

  • Fehler: Userform öffnet nicht: Stelle sicher, dass der Code für den Button korrekt auf die Userform verweist.

  • Fehler: Daten werden nicht gespeichert: Prüfe, ob die Zellreferenzen im Code korrekt sind und ob die Zellen nicht schreibgeschützt sind.


Alternative Methoden

Eine alternative Methode, um Daten in eine Tabelle zu übertragen, ist die Verwendung von Excel-Formeln oder Power Query. Wenn du keine VBA-Kenntnisse hast, kannst du auch Formeln nutzen, um Daten dynamisch zu verknüpfen.


Praktische Beispiele

Hier ein einfaches Beispiel, wie du die Userform zur Dateneingabe nutzen kannst:

  1. Userform mit TextBoxen zur Eingabe von Namen, Adressen usw.
  2. Verwende den "Speichern"-Button, um diese Daten in die Excel-Tabelle zu übertragen, wie im obigen Code dargestellt.

Tipps für Profis

  • Datenvalidierung: Füge Datenvalidierung hinzu, um sicherzustellen, dass die Benutzer gültige Daten eingeben.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung im VBA-Code, um unerwartete Eingaben abzufangen.

FAQ: Häufige Fragen

1. Wie viele TextBoxen kann ich in der Userform verwenden?
Du kannst beliebig viele TextBoxen hinzufügen, achte jedoch darauf, dass der Code entsprechend angepasst wird.

2. Funktioniert das auch in Excel Online?
Leider unterstützt Excel Online keine VBA. Dieses Verfahren ist nur in der Desktop-Version von Excel möglich.

3. Was mache ich, wenn die Userform nicht angezeigt wird?
Überprüfe den Code und stelle sicher, dass der Button richtig mit der Userform verknüpft ist.

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