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

Ansicht des Beitrags:
Von:
BigBen		 Datum:
19.03.2017 14:35:16		 Views:
642		 Rating:
     
Antwort:
  Ja
Thema:
Eingabe um 6 Spalten Verschieben

Hallo,

vielleicht hilft dieser Code weiter?

Sub LOG_R_6()
    Dim iCnt As Integer
    Dim wsh As Worksheet
    Set wsh = ActiveSheet
    For iCnt = 1 To 6
        With wsh.Cells(4, 6 * iCnt)
            .FormulaR1C1 = "=LN(RC[-2]/R[-1]C[-2])"
            .AutoFill Destination:=Range(wsh.Cells(4, 6 * iCnt), wsh.Cells(4309, 6 * iCnt))
        End With
    Next
End Sub

Die ganzen Select-Befehle wurde entfernt, da diese nur die Ausführung verlangsamen.

LG, BigBen

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
Blau Eingabe um 6 Spalten Verschieben
 19.03.2017 14:35:16 BigBen
NotSolved
19.03.2017 17:11:42 GraFri
NotSolved
20.03.2017 07:59:10 n245
NotSolved