Microsoft Excel

Herbers Excel/VBA-Archiv

Daten in Tabelle einfügen per Vba

Betrifft: Daten in Tabelle einfügen per Vba von: Helvetier1
Geschrieben am: 05.10.2020 15:37:50

Guten Tag


Ich hätte eine Frage kann ich Daten wie hier auch in eine Tabelle einfügen?
(statt in mein Aktives Tabellenblatt in eine Tabelle)

  • 
    
    Private Sub CBO_Click()
    'Die Variable last liefert die erste freie Zeile im Tabellenblatt
    Dim last As Integer
    last = ActiveSheet.Cells(Rows.Count, 8).End(xlUp).Row + 1
    'Informationen der UserForm in das Tabellenblatt eintragen
    'ActiveSheet.Cells(last, 1).Value = CDate(Neuer_Eintrag.TBD.Value)
    ActiveSheet.Cells(last, 2).Value = Neuer_Eintrag.TBSch.Value
    ActiveSheet.Cells(last, 3).Value = Neuer_Eintrag.CBS.Value
    ActiveSheet.Cells(last, 4).Value = Neuer_Eintrag.CBF.Value
    ActiveSheet.Cells(last, 5).Value = Neuer_Eintrag.TBT.Value
    ActiveSheet.Cells(last, 6).Value = Neuer_Eintrag.TBN.Value
    ActiveSheet.Cells(last, 7).Value = Neuer_Eintrag.TBG.Value
    ActiveSheet.Cells(last, 8).Value = Neuer_Eintrag.TBK.Value
    ActiveSheet.Cells(last, 9).Value = Neuer_Eintrag.TBB.Value
    End Sub



  • Gruss

    Adrian

    Betrifft: AW: Daten in Tabelle einfügen per Vba
    von: Gerd L
    Geschrieben am: 05.10.2020 15:56:10

    Moin Adrian,

    anstelle von ActiveSheet kannst du z.B. verwenden:
    Worksheets(2) --Index
    oder
    Sheets(2)

    Worksheets("NamenachBlattregister")
    Sheets("NamenachBlattregister")

    Tabelle3 --- Codename der Tabelle

    Gruß Gerd

    Betrifft: AW: Daten in Tabelle einfügen per Vba
    von: Helvetier1
    Geschrieben am: 05.10.2020 16:36:25

    Danke für die Rückmeldung

    Ich habe nun so ein Code der aber nicht funktioniert worin liegt der Fehler?


  • Worksheets("TabelleN").Cells(last, 2).Value = Neuer_Eintrag.TBSch.Value


  • Betrifft: AW: Daten in Tabelle einfügen per Vba
    von: Gerd L
    Geschrieben am: 05.10.2020 17:49:34

    Hallo Adrian,

    worin besteht der Fehler bzw. welche Fehlermeldung erhältst du ?

    Gruß Gerd

    Betrifft: AW: Daten in Tabelle einfügen per Vba
    von: Helvetier1
    Geschrieben am: 05.10.2020 17:53:47

    Es gibt keine Fehlermeldung sondern wird nicht in dieser angegebenen Tabelle angegeben.

    Gruss
    Adrian

    Betrifft: AW: Daten in Tabelle einfügen per Vba
    von: Gerd L
    Geschrieben am: 05.10.2020 17:57:53

    Dann wird zur Laufzeit das Steuerelement leer sein.

    Gruß Gerd