letzte beschriebene zelle wert kopieren

Guesa · 2019-01-15T12:39:45+00:00

Hallo Forum hoffe Ihr seid gut ins neue Jahr gekommen Folgendes Problem: Ich lasse mir Zellen ins Tb1 einlesen (mal mehr mal weniger). Nun möchte ich mit diesen Daten im Tb2 weiter rechnen, dazu müssten die letzten Zellen der Spalten (dort stehen die Summen) als Wert ins Tb2 kopiert werden, 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. Hoffe Ihr könnt mir dabei helfen, vor ab schon mal eine Danke Gruß, Guesa https://www.herber.de/bbs/user/126773.xlsx

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

Hallo Werner
Das ich die Frage nicht richtig formuliert habe, hatte ich bereits geschrieben. Noch weiter drauf rum hauen bringt jetzt auch nichts mehr. So habe ich dieses Problem erarbeitet

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

Falls du noch den Nerv hast, wie dieser Code einfacher zu schreiben ist, würdest du mir sehr helfen.
Gruß, Guesa

	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

Forumthread: letzte beschriebene zelle wert kopieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial