Wie kann ich den Code anpassen?

Sub Laufende_Kosten_uebertragen_1() 'Tabelle einlesen Dim tbl As ListObject Set tbl = J_Einnahmen_Ausgaben.ListObjects(1) Dim Zeile As Long 'Laufende Kosten anlegen 'Zeile hinzufügen tbl.ListRows.Add 'Zeile in Variable speichern Zeile = tbl.DataBodyRange.Rows.Count 'Datenbank befüllen With B_Laufende_Kosten tbl.DataBodyRange(Zeile, 5).Value = .Range("I2").Value tbl.DataBodyRange(Zeile, 6).Value = .Range("J2").Value tbl.DataBodyRange(Zeile, 9).Value = .Range("M2").Value tbl.DataBodyRange(Zeile, 10).Value = .Range("N2").Value tbl.DataBodyRange(Zeile, 11).Value = .Range("O2").Value End With 'Navigieren zu Tabellenblatt Datenbank J_Einnahmen_Ausgaben.Select ActiveWindow.ScrollRow = tbl.DataBodyRange(Zeile, 1).Row tbl.DataBodyRange(Zeile, 1).Select 'Datum eintragen ActiveCell.Value = Date End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Laufende_Kosten_uebertragen_1() 'Laufende Kosten anlegen Dim LO_Zeile As ListRow 'Zeile hinzufügen und befüllen Set LO_Zeile = J_Einnahmen_Ausgaben.ListObjects(1).ListRows.Add With LO_Zeile .Range(1).Value = Date 'Datum eintragen .Range(5).Value = .Range("I2").Value .Range(6).Value = .Range("J2").Value .Range(9).Value = .Range("M2").Value .Range(10).Value = .Range("N2").Value .Range(11).Value = .Range("O2").Value End With 'Navigieren zu Tabellenblatt Datenbank With J_Einnahmen_Ausgaben .Activate .ScrollRow = .Range(LO_Zeile.Address).Row LO_Zeile.Range(1).Select End With End Sub

Sub Laufende_Kosten_uebertragen_1() 'Laufende Kosten anlegen Dim LO_Zeile As ListRow 'Zeile hinzufügen und befüllen Set LO_Zeile = J_Einnahmen_Ausgaben.ListObjects(1).ListRows.Add With B_Laufende_Kosten LO_Zeile.Range(1).Value = Date 'Datum eintragen LO_Zeile.Range(5).Value = .Range("I2").Value LO_Zeile.Range(6).Value = .Range("J2").Value LO_Zeile.Range(9).Value = .Range("M2").Value LO_Zeile.Range(10).Value = .Range("N2").Value LO_Zeile.Range(11).Value = .Range("O2").Value End With 'Navigieren zu Tabellenblatt Datenbank With J_Einnahmen_Ausgaben .Activate .ScrollRow = .Range(LO_Zeile.Address).Row LO_Zeile.Range(1).Select End With End Sub

With B_Laufende_Kosten LO_Zeile.Range(1).Value = Date 'Datum eintragen LO_Zeile.Range(5).Value = .Range("I2").Value LO_Zeile.Range(6).Value = .Range("J2").Value LO_Zeile.Range(9).Value = .Range("M2").Value LO_Zeile.Range(10).Value = .Range("N2").Value LO_Zeile.Range(11).Value = .Range("O2").Value LO_Zeile.Range(1).Value = Date 'Datum eintragen LO_Zeile.Range(5).Value = .Range("I3").Value LO_Zeile.Range(6).Value = .Range("J3").Value LO_Zeile.Range(9).Value = .Range("M3").Value LO_Zeile.Range(10).Value = .Range("N3").Value LO_Zeile.Range(11).Value = .Range("O3").Value End With

Hallo Maurice,
es gibt mehrere Methode, um ein Ziel- ode Quell-Zelle zu definieren:
Range("A1") , A1 ist dann die Adresse der Zelle, kann auch als zusammengesetzte Text übergeben werden: Range( "A" & Zeilnummer )
Cells (1,2) , bei dem der erste Parameter die Zeilennummer, der zweite die Spaltennummer. Wobie die Spalte auch als Buchstabe übergeben werden kann: Cells(2, "D")
Um 17 Zeilen zu übergeben, musst Du eine For-Schleife verwenden:
_ neue Zeile erzeugen
_ Werte der Quellzeile in diese Zielzeile übergeben
_ nächste
Da das Objekt LO_Zeile immer die neue Zeile annimmt, wird immer zu diese LO_Zeile hinzugefügt. Ist aber jedesmal eine neue Zeile.
Es gibnt dazu unzählige Video-Tutorials.


Sub Laufende_Kosten_uebertragen()
'Laufende Kosten anlegen
Dim LO_Zeile As ListRow
Dim i As Long
'Zeile hinzufügen und befüllen
For i = 2 To 18 '17 Zeilen von 2 bis 18
Set LO_Zeile = J_Einnahmen_Ausgaben.ListObjects(1).ListRows.Add
With B_Laufende_Kosten
LO_Zeile.Range(1).Value = Date 'Datum eintragen
LO_Zeile.Range(5).Value = .Cells(i, "I").Value
LO_Zeile.Range(6).Value = .Cells(i, "J").Value
LO_Zeile.Range(9).Value = .Cells(i, "M").Value
LO_Zeile.Range(10).Value = .Cells(i, "N").Value
LO_Zeile.Range(11).Value = .Cells(i, "O").Value
End With
Next
'Navigieren zu Tabellenblatt Datenbank
J_Einnahmen_Ausgaben.Activate
ActiveWindow.ScrollRow = LO_Zeile.Range.Row
LO_Zeile.Range(1).Select
End Sub

Was zu ändern wäre, um die Zeile 5 zu 34 (oder was auch immer) zu behandeln, ist -hoffe ich- klar.
VG
Yal

Sub M_snb() With B_Laufende_Kosten sn = Array(Date, , , , .[I2], .[J2], , , .[M2], .[N2], .[O2]) End With With J_Einnahmen_Ausgaben.ListObjects(1).Range .Offset(.Rows.Count).Resize(1,11) = sn End With End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread