Thema Datum  Von Nutzer Rating
Antwort
09.03.2018 14:54:38 MarkusK
NotSolved
Blau Zellbezüge in Formel tauschen
 09.03.2018 15:45:54 Gast70117
NotSolved
10.03.2018 15:29:38 MarkusK
NotSolved
12.03.2018 14:56:57 MarkusK
NotSolved
13.03.2018 07:42:43 MarkusK
NotSolved
13.03.2018 12:40:11 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
09.03.2018 15:45:54		 Views:
604		 Rating:
     
Antwort:
  Ja
Thema:
Zellbezüge in Formel tauschen		 
Option Explicit

Sub TestRow()
'Extras Verweise Microsoft Scripting Runtime einbinden
   
   Call InsRow(ActiveSheet, 6)

End Sub

Private Function InsRow(SH As Worksheet, ByVal myRow As Long)
Dim rngu As Range, rngS As Range
Dim rngA As Range, rngC As Range
Dim oDict As New Scripting.Dictionary
Dim i As Long

   Set oDict = CreateObject("Scripting.Dictionary")
   Set rngu = SH.UsedRange.Rows(myRow)
   Set rngS = rngu.SpecialCells(xlCellTypeFormulas)
   For Each rngA In rngS.Areas
      For Each rngC In rngA.Cells
         oDict.Add rngC.Address, rngC.FormulaR1C1
      Next rngC
   Next rngA
   
   SH.Rows(myRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   For i = 0 To oDict.Count - 1
     SH.Range(oDict.Keys(i)).FormulaR1C1 = oDict.Items(i)
     SH.Range(oDict.Keys(i)).Offset(1).FormulaR1C1 = oDict.Items(i)
Next i

End Function

 

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
09.03.2018 14:54:38 MarkusK
NotSolved
Blau Zellbezüge in Formel tauschen
 09.03.2018 15:45:54 Gast70117
NotSolved
10.03.2018 15:29:38 MarkusK
NotSolved
12.03.2018 14:56:57 MarkusK
NotSolved
13.03.2018 07:42:43 MarkusK
NotSolved
13.03.2018 12:40:11 Gast70117
NotSolved