Thema Datum  Von Nutzer Rating
Antwort
18.03.2017 14:10:02 n245
NotSolved
19.03.2017 14:35:16 BigBen
NotSolved
Rot Eingabe um 6 Spalten Verschieben
 19.03.2017 17:11:42 GraFri
NotSolved
20.03.2017 07:59:10 n245
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
19.03.2017 17:11:42		 Views:
614		 Rating:
     
Antwort:
  Ja
Thema:
Eingabe um 6 Spalten Verschieben

Hallo n245

Anderer Ansatz, da bei ca. 4000 Zeilen und 500 mal das gleiche über 2 Millionen Formeln entstehen und damit die Datei extrem groß wird. Nachfolgende Lösung bezieht sich auf eine Berechnung. Das ganze kann man über eine Schleife wiederholen.

 

Sub LOG_R_6()
Dim akDaten As Variant
Dim lnDaten As Variant
Dim n As Long


Application.ScreenUpdating = False


' eindimensionales Array der Spalte D3:D bis letzter Datenzeile
With ThisWorkbook.Worksheets("Tabelle1")
    akDaten = Application.Transpose(.Range(.Cells(3, 4), .Cells(Rows.Count, "D").End(xlUp)))

' Array lnDaten neu dimensionieren
ReDim lnDaten(1 To UBound(akDaten) - 1)

' Berechnung
For n = 2 To UBound(akDaten)
   lnDaten(n - 1) = Application.WorksheetFunction.Ln(akDaten(n) / akDaten(n - 1))
Next n

' Berechnete Werte in Tabelle eintragen
.Cells(4, 6).Resize(UBound(lnDaten) - LBound(lnDaten) + 1) = WorksheetFunction.Transpose(lnDaten)

End With


Application.ScreenUpdating = True


End Sub

 

mfg, GraFri

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.03.2017 14:10:02 n245
NotSolved
19.03.2017 14:35:16 BigBen
NotSolved
Rot Eingabe um 6 Spalten Verschieben
 19.03.2017 17:11:42 GraFri
NotSolved
20.03.2017 07:59:10 n245
NotSolved