Daten werden über Userform übertragen, aber...

'Zeile hinzufugen und befullen For i = 12 To 26 '15 Zeilen von 12 bis 26 Set LO_Zeile = DetaillierteEinnahmenAusgaben.ListObjects(1).ListRows.Add With MonatlicheFixKosten LO_Zeile.Range(1).Value = Date 'Datum eintragen LO_Zeile.Range(2).Value = .Cells(i, "H").Value LO_Zeile.Range(3).Value = .Cells(i, "I").Value LO_Zeile.Range(4).Value = .Cells(i, "J").Value LO_Zeile.Range(5).Value = .Cells(i, "K").Value LO_Zeile.Range(6).Value = .Cells(i, "L").Value 'Fortschrittsbalken updaten Call fortschrittbalkenUpdaten(i, 26) End With Next

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub DatenUebertragen() Dim ZeilenBereich As Range Dim ZielTabelle As ListObject Dim LO_Zeile As ListRow Dim i As Integer Set ZeilenBereich = MonatlicheFixKosten.Range("H12:L26") Set ZielTabelle = DetaillierteEinnahmenAusgaben.ListObjects(1) For i = 1 To ZeilenBereich.Rows.Count Set LO_Zeile = ZielTabelle.ListRows.Add With ZeilenBereich.Rows(i) LO_Zeile.Range(1).Value = Date LO_Zeile.Range(2).Value = .Cells(1, 1).Value LO_Zeile.Range(3).Value = .Cells(1, 2).Value LO_Zeile.Range(4).Value = .Cells(1, 3).Value LO_Zeile.Range(5).Value = .Cells(1, 4).Value LO_Zeile.Range(6).Value = .Cells(1, 5).Value End With Call fortschrittbalkenUpdaten(i, ZeilenBereich.Rows.Count) Next i End Sub

Hallo Maurice,

deine Quelle ist ebenfalls eine ListObject, daher kannst Du diese genauso mit ListRow abfragen.

Sub Laufende_Kosten_Ladebalken1()

'Laufende Kosten anlegen

Dim LR_Q As ListRow 'Quelle

Dim LR_Z As ListRow 'Ziel

Dim i As Long

Dim j As Long

  

    ufMonatlicheFixKosten.Hide

'Fortschrittsbalken aufrufen

    UfFortschrittsbalken.Show 0

 

'Zeile hinzufugen und befullen

    With MonatlicheFixKosten.ListObjects(1)

        For Each LR_Q In .ListRows

            j = j + 1

            Set LR_Z = DetaillierteEinnahmenAusgaben.ListObjects(1).ListRows.Add

            LR_Z.Range(1).Value = Date 'Datum eintragen

            For i = 2 To 6 'diese Spaltennummer ist relativ: erste Splate der ListRow, 2te, usw.

                LR_Z.Range(i).Value = LR_Q.Cells(i).Value

            Next

        'Fortschrittsbalken updaten

            Call fortschrittbalkenUpdaten(j, .ListRows.Count)

        Next

    End With

    

'Navigieren zu Tabellenblatt Datenbank

'DetaillierteEinnahmenAusgaben.Activate

    ' ActiveWindow.ScrollRow = LR_Q.Range.Row

    'LR_Q.Range(1).Select

     

'Fortschrittsbalken schließen

    Application.Wait Now + TimeSerial(0, 0, 1) 'wartet 2 Sekunden

    Unload UfFortschrittsbalken

    Unload ufMonatlicheFixKosten

    ufDetaillierteEinnahmenAusgaben.Show

End Sub

VG
Yal

'Zeile hinzufugen und befullen With MonatlicheFixKosten.ListObjects(1) For Each LR_Q In .ListRows j = j + 1 Set LR_Z = DetaillierteEinnahmenAusgaben.ListObjects(1).ListRows.Add LR_Z.Range.Value = LR_Q.Range.Value LR_Z.Range(1).Value = Date 'Datum eintragen (überschreibt die erste Zelle) Call fortschrittbalkenUpdaten(j, .ListRows.Count) 'Fortschrittsbalken updaten Next End With

Beliebteste Forumthreads (12 Monate)

Daten werden über Userform übertragen, aber...

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten werden über Userform übertragen, aber...

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread