Hilfe benötigt: Makro soll erweitert werden
Daniel
Ich habe ein Makro, das erweitert werden soll.
Das Makro berechnet mir aus einer Tabelle "Data" einen Wert, der in das Blatt "1dROCs" kopiert werden soll. Dies schaffe ich bis hierher wir gewünscht.
Zudem möchte ich gerne die 1. Zeile und die 1. Spalte komplett ins Blatt "1dROC" übertragen. Wie geht das?
Außerdem möchte ich die gleiche Berechnung und Kopie wie für Spalte B auch für jede restliche Spalte machen. Ist das möglich? Also wenn 10 Spalten gefüllt sind ab B, dann die Berchnung dieser 10 Spalten, wenn es mehr sind, dann eben mehr? Die Spaltenzahl ist also variabel.
Ich wäre für Hilfe sehr dankbar.
Hier noch das Makro:
Option Explicit
Sub ROC_Berechnen()
Dim rng As Range
Dim lngE As Long 'für letzte gefüllte Zeile
Dim lngRow As Long 'Zeilenzähler in "1dROCs"
lngRow = 2
'Letzte gefüllte Zelle in Spalte "B" ermitteln
lngE = IIf(IsEmpty(Sheets("Data").Range("B65536")), _
Sheets("Data").Range("B65536").End(xlUp).Row, 65536)
Sheets("1dROCs").Columns("B").ClearContents 'Spalte "B" in "1dROCs" löschen
For Each rng In Sheets("Data").Range("B2:B" & lngE)
If rng <> "" And rng.Offset(1, 0) <> "" Then
'wenn Zelle in Spalte "B" und "B+1" gefüllt dann
Sheets("1dROCs").Cells(lngRow + 1, 2) = _
(rng.Offset(1, 0) / rng) - 1
lngRow = lngRow + 1 'Zeilenzähler erhöhen
End If
Next
End Sub
Grüße,
Daniel