letzte Zeile ermitteln, markieren und nutzen

Hallo,
ich habe das Forum bereits ausgiebig durchforstet, jedoch finde ich leider nur Ansätze für die Lösung meines Problems. Aufgrund mangelnder Kenntnisse kann ich diese aber nicht zu einer Lösung vereinen. Deshalb hier nochmals die Beschreibung, wie Ihr mir helfen könntet.
Ich habe ein Datenblatt, in dem jeweils in 10 Blöcken a 7 Spalten Werte stehen. Es handelt sich um Daten zu Bewegungsversuchen. In der ersten Spalte eines jeden Blocks steht die absolute Zeit, in der zweiten Spalte möchte ich nun gerne die relative Zeit eintragen. Manuell geht das ja alles ganz problemlos, jedoch wäre es eine riesengroße Erleichterung, wenn das "automatisiert" ablaufen könnte.
Ich erkläre mein Vorhaben anhand von Block 1 (Spalte A - G), siehe auch Screenshot.
In Spalte A befindet sich die "Zeit". In Spalte B die relative Zeit "% Zeit". Ich springe nun zum Ende von Spalte A (= Reihe 46) und gebe folgende Formel in Spalte B, R 46 ein: = ("A46"/880)*100. Dann verwende ich Autofill und ziehe die Formel bis zu B2. Somit ergibt sich eine Spanne von 0 (in B3) bis 100 % (in B46). So führe ich das dann in den weiteren Blöcken fort. "% Zeit" wird also in den Spalten B, J, R, Z, AH, AP, AX, BF, BN, BV berechnet und eingetragen.
Leider ist jeder dieser Versuche unterschiedlich lange, so dass zuerst jeweils der letzte Wert in der Spalte für die "Zeit" ermittelt werden muss.
Insgesamt habe ich über 60 solcher Datenblätte, weshalb es wirklich eine wahnsinnige Erleichterung für mich wäre, wenn ich hierfür ein Makro anwenden könnte.
Userbild

Ich danke Euch schon mal im Voraus für Eure Bemühungen und gebe auf jeden Fall Rückmeldung.
Schönen Gruß
Florian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Florian2() Dim LoLetzteCol&, x&, wert For x = 1 To 27 Step 8 LoLetzteCol = Cells(Rows.Count, x).End(xlUp).Row wert = Cells(LoLetzteCol, x) Cells(LoLetzteCol, x + 1).FormulaR1C1 = "=(RC[-1]/" & wert & ")*100" Cells(LoLetzteCol, x + 1).AutoFill Destination:=Range(Cells(LoLetzteCol, x + 1), Cells(2, x + _ 1)), Type:=xlFillDefault Next End Sub

Sub sbFastUngetestet() Dim lloCol As Long, lloRow As Long, lloLast As Long Const lciChr = 64 For lloCol = 1 To Cells(1, Columns.Count).End(xlToLeft).Column If Cells(1, lloCol).Value = "Zeit" Then lloLast = Cells(Rows.Count, lloCol).End(xlUp).Row Cells(lloLast, lloCol + 1).FormulaLocal = "=(" & Chr(lciChr + lloCol) & _ lloLast & "/" & Cells(lloLast, lloCol).Value & ")*100" Cells(lloLast, lloCol + 1).AutoFill Destination:=Range(Chr(lciChr + lloCol + 1) _ & _ "2:" & Chr(lciChr + lloCol + 1) & lloLast), Type:=xlFillDefault End If Next End Sub

Private Sub schneller() Dim s As Long, z As Long, t As String For s = 2 To 74 Step 8 z = Cells(s - 1, 1).End(xlDown).Row t = Replace(Cells(z, 1).Address, "$", "") Cells(z, s).Formula = "=" & t & "/880" Cells(z, s).AutoFill Destination:= _ Range(Cells(2, s), Cells(z, s)), Type:=xlFillDefault Next s End Sub

Hallo zusammen,
erst mal vielen Dank an Alle, die sich über diese Sache Gedanken gemacht haben. Entschuldigt bitte, dass ich keine Beispiel-Datei hinzugefügt habe, aber diese Möglichkeit kam mir leider gar nicht in den Sinn.
Ganz besonderen Dank an Matthias und Thorsten. Die für mich perfekte Lösung war der Ansatz von Matthias. Gut, dass Du noch eine ausführlichere Lösung angeboten hast, weil auf meine Eigeninitiative kein Verlass war. Die ist zwar grundsätzlich vorhanden, allerdings aufgrund meiner mangelnden Kenntnisse weitgehend nutzlos. Wie gesagt, diese Lösung ist genau das, wonach ich gesucht habe.
@Thorsten: Auch dieser Ansatz hat super funktioniert, allerdings bricht das Makro in meiner Excel-Datei nach dem 4. Block ab, d.h. insgesamt werden 4 Spalten "% Zeit" mit den Formel aufgefüllt. Das entspricht dem Ausschnitt aus meinem Screenshot, wobei ich es nicht geschafft habe, das Makro so zu verändern, um die Range auf insgesamt 10 Blöcke zu erweitern.
@Jochen: Ebenfalls vielen Dank. Bei Deinem Ansatz verändert sich allerdings nicht die Zeile, bis wohin AutoFill durchgeführt werden. Sie blieb konstant, entsprechend der ersten Spalte.
Ich habe noch eine Excel-Datei als Beispiel hinzugefügt, falls noch jemand etwas testen möchte. Eigentlich ist mein Anliegen jedoch perfekt gelöst.
https://www.herber.de/bbs/user/91908.xlsx
Nochmals Vielen Dank an dieses Forum. Echt super! Evtl. bekommt es eine Widmung in meiner Dr. Arbeit.
Schönen Gruß,
Florian

Private Sub schneller() Dim s As Long, z As Long, t As String For s = 2 To 74 Step 8 z = Cells(1, s - 1).End(xlDown).Row t = Replace(Cells(z, s - 1).Address, "$", "") Cells(z, s).Formula = "=" & t & "/880*100" Cells(z, s).AutoFill Destination:= _ Range(Cells(2, s), Cells(z, s)), Type:=xlFillDefault z = 0 Next s End Sub

Private Sub schneller() Dim s As Long, z As Long, t As String For s = 2 To 74 Step 8 z = Cells(1, s - 1).End(xlDown).Row t = Replace(Cells(z, s - 1).Address, "$", "") Cells(z, s).Formula = "=" & t & "/" & Cells(z, s - 1) & "*100" Cells(z, s).AutoFill Destination:= _ Range(Cells(2, s), Cells(z, s)), Type:=xlFillDefault z = 0 Next s End Sub

Beliebteste Forumthreads (12 Monate)

	C
29	Falsch
30	496

verwendete Formeln
Zelle	Formel	Bereich	N/A
C29	=C27=C28
C30	=SUMMEWENN([Bildschirm.xlsm]Statistik!$Q$44:$Q$54;"<" &HEUTE();[Bildschirm.xlsm]Statistik!$R$54)

letzte Zeile ermitteln, markieren und nutzen

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

letzte Zeile ermitteln, markieren und nutzen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread