letzte beschriebene zelle wert kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Summe() Dim TB1, TB2, LR As Long, S1 As Integer, SP As Integer, Z As Long Set TB1 = Sheets("Tabelle1") Set TB2 = Sheets("Tabelle2") S1 = 1 'Daten stehen in A LR = TB1.Cells(TB1.Rows.Count, S1).End(xlUp).Row 'letzte Zeile der Spalte 'Beispiel: für B in TB2_ C3 anzeigen SP = 2 Z = 3 TB2.Cells(Z, SP + 1).Value = TB1.Cells(LR, SP).Value 'Beispiel: für C in TB2_ D5 anzeigen SP = 3 Z = 5 TB2.Cells(Z, SP + 1).Value = TB1.Cells(LR, SP).Value End Sub

Option Explicit Public Sub Test() Dim loLetzte As Long, loLetzteZiel As Long, loSpalte As Long, i As Long Application.ScreenUpdating = False With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row loSpalte = .Cells(loLetzte, .Columns.Count).End(xlToLeft).Column For i = 2 To loSpalte .Cells(loLetzte, i).Copy With Worksheets("Tabelle2") loLetzteZiel = .Cells(.Rows.Count, i - 1).End(xlUp).Offset(1).Row .Cells(loLetzteZiel, i - 1).PasteSpecial Paste:=xlPasteValues End With Next i End With Application.CutCopyMode = False End Sub

Hallo,
was erwartest du denn eigentlich? Einen Code der aufgrund deiner Angaben funktioniert?
Beispiele:
dazu müssten die letzten Zellen der Spalten (dort stehen die Summen)
Das heißt für mich alle Spalten. Du schreibst nirgendwo von bestimmten Spalten und schon gar nicht davon, um welche Spalten es sich handeln soll.
z.B finde die letzte Zelle in B kopiere diese nach Tb2 C3, finde die letzte Zelle in C kopiere diese nach Tb2 D5 usw
Das beginnt mit z.B. und mir ist nicht bekannt, an was ich das festmachen soll. Heute Spalte B und C, morgen Spalte A und F, je nach Außentemperatur, oder weshalb.
da ich letztlich noch nicht weiß wo die einzelnen Summen im Tb2 platziert werden
Und wenn du das nicht weißt, dann soll ich das wissen oder der Code soll es erraten?
Konkrete Angaben, was, wann, warum, wohin, dann kann man dir auch einen konkreten Code schreiben, so nicht.
ist ja doch ein wenig hängen geblieben von VBA
Sei mir nicht böse, aber das zweifel ich an. Ansonsten würdest du nicht behaupten, der Code würde die ganze Zeile kopieren. Der Code kopiert jeweils die letzte Zeile (deinen Angaben zufolge die Summen) einzeln, Spalte für Spalte.
Und wenn du nicht die Werte von allen Spalten benötigst, dann hättest du nur die For - Next Schleife entsprechend anpassen müssen.
Gruß Werner

Sub letzte_zelle_in_Spalte() Application.ScreenUpdating = False Dim LoLetzte As Long LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 4)), Cells(Rows.Count, 4).End(xlUp).Row, Rows. _ Count) Cells(LoLetzte, 4).Copy Sheets("Tabelle2").Select Range("C4").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle1").Select ' Application.CutCopyMode = False LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 6)), Cells(Rows.Count, 6).End(xlUp).Row, Rows.Count) Cells(LoLetzte, 6).Copy Sheets("Tabelle2").Select Range("F8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Tabelle1").Select Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

Public Sub Test() Dim i As Long, y As Long, z As Long With Worksheets("Tabelle1") z = 4: y = 1 For i = 4 To 6 Step 2 Worksheets("Tabelle2").Cells(z, i - y) = _ .Cells(.Cells(.Rows.Count, i).End(xlUp).Row, i) z = z + 4 y = y - 1 Next i End With End Sub

Public Sub Test() With Worksheets("Tabelle1") Worksheets("Tabelle2").Range("C4") = .Cells(.Cells(.Rows.Count, 4).End(xlUp).Row, 4) Worksheets("Tabelle2").Range("F8") = .Cells(.Cells(.Rows.Count, 6).End(xlUp).Row, 6) End With End Sub

Beliebteste Forumthreads (12 Monate)

	B	C	D	E
1
2
3	Summe aus B:	120
4
5		Summe aus C:	160
6
7
8

verwendete Formeln
Zelle	Formel	Bereich	N/A
C3,D5	=SVERWEIS("Summe:";Tabelle1!$A:$J;SPALTE();0)

letzte beschriebene zelle wert kopieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte beschriebene zelle wert kopieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread