Thema Datum  Von Nutzer Rating
Antwort
Rot Userform / intelligente Tabelle
22.04.2022 08:50:14 Ruben
NotSolved
22.04.2022 09:10:38 Gast40988
NotSolved
22.04.2022 10:32:02 Gast88969
NotSolved
23.04.2022 02:08:20 Gast79530
NotSolved

Ansicht des Beitrags:
Von:
Ruben
Datum:
22.04.2022 08:50:14
Views:
47
Rating: Antwort:
  Ja
Thema:
Userform / intelligente Tabelle

ich habe nachstehendes VBA geschrieben um die erfasste Daten in der Userform in meine intelliente Tabelle zu übertragen. leider wird in der Tabelle nicht ein Zeile dazugegeben und dort die Daten erfasst, sondern die letzte Zeile überschrieben. wo ist mein Fehler?

Private Sub ButtonSpeichern_Click()

'Daten ins Tabellenblatt eintragen
Dim tbl As ListObject
Set tbl = Tabelle3.ListObjects(1)

Dim neueZeile As Long

    'Zeile hinzufügen
    neueZeile = Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row
    
    'Zeile in Variabler speichern
    Zeile = tbl.DataBodyRange.Rows.Count
 
'Daten befüllen
With Tabelle3
    tbl.DataBodyRange(Zeile, 1).Value = TextBoxID.Value
    tbl.DataBodyRange(Zeile, 2).Value = ComboBoxBetrieb.Value
    tbl.DataBodyRange(Zeile, 3).Value = TextBoxSuffix.Value
    tbl.DataBodyRange(Zeile, 4).Value = ComboBoxAnrede.Value
    tbl.DataBodyRange(Zeile, 5).Value = TextBoxTitel.Value
    tbl.DataBodyRange(Zeile, 6).Value = TextBoxFamilienname.Value
    tbl.DataBodyRange(Zeile, 7).Value = TextBoxVorname.Value
    tbl.DataBodyRange(Zeile, 8).Value = TextBoxName.Value
    tbl.DataBodyRange(Zeile, 9).Value = ComboBoxGeschlecht.Value
    tbl.DataBodyRange(Zeile, 10).Value = ComboBoxNationalitaet.Value
    
End With

'UserForm schließen
Unload Me

'Navigieren zu Tabellenblatt Datenbank
    Tabelle3.Select
    ActiveWindow.ScrollRow = tbl.DataBodyRange(Zeile, 1).Row
    tbl.DataBodyRange(Zeile, 1).Select
    
End Sub

Private Sub ButtonSpeichern_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    ButtonSpeichern.BackColor = RGB(179, 136, 235)
End Sub

Private Sub UserForm_Initialize()

'Tabelle Einlesen
Dim tbl As ListObject
Set tbl = Tabelle3.ListObjects(1)

'ID befüllen
TextBoxID.Value = tbl.DataBodyRange(tbl.DataBodyRange.Rows.Count, 1).Value + 1

'ComboBoxen befüllen
ComboBoxBetrieb.List = Tabelle12.ListObjects("tblBetrieb").DataBodyRange.Value
ComboBoxBetrieb.ListIndex = 0
ComboBoxAnrede.List = Tabelle12.ListObjects("tblAnrede").DataBodyRange.Value
ComboBoxAnrede.ListIndex = 0
ComboBoxGeschlecht.List = Tabelle12.ListObjects("tblGeschlecht").DataBodyRange.Value
ComboBoxGeschlecht.ListIndex = 0
ComboBoxFamilienstand.List = Tabelle12.ListObjects("tblFamilienstand").DataBodyRange.Value
ComboBoxFamilienstand.ListIndex = 0
 

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Userform / intelligente Tabelle
22.04.2022 08:50:14 Ruben
NotSolved
22.04.2022 09:10:38 Gast40988
NotSolved
22.04.2022 10:32:02 Gast88969
NotSolved
23.04.2022 02:08:20 Gast79530
NotSolved