Thema Datum  Von Nutzer Rating
Antwort
03.02.2019 15:24:45 Tobui
*****
Solved
03.02.2019 20:57:30 Gast01234
NotSolved
04.02.2019 10:35:37 Gast20173
NotSolved
04.02.2019 10:37:12 Gast20173
NotSolved
05.02.2019 13:51:21 Tobui
NotSolved
Blau Duplizieren/Weiterführen des Codes
 05.02.2019 16:43:03 Gast 20173
NotSolved

Ansicht des Beitrags:
Von:
Gast 20173		 Datum:
05.02.2019 16:43:03		 Views:
577		 Rating:
     
Antwort:
  Ja
Thema:
Duplizieren/Weiterführen des Codes

Leere Spalten ?

Sub TastIt()

Dim f As Long                    'f als Tabellenspalte' - vartype = long
Dim g As Long                    'columns to be traversed
Dim strFrm As String             'R1C1 - formula
Dim x As Long                    'loop

Const C_Formula As String = "=IF(R4CXX=0,0,Tabelle1!R[1]C*Tabelle2!R4CXX*Tabelle2!R6CXX*Tabelle2!R7CXX/Tabelle2!R8CXX*Tabelle2!R9CXX)"

   f = 4                'Spalte D als Start'
   
   With Sheets("Tabelle1")
      'columns to be traversed
      g = Range(.Cells(2, f), .Cells(2, .Columns.Count).End(xlToLeft)).Columns.Count
   End With
   With Sheets("Tabelle2")
      'remove if necessary
      .Cells.Clear
      
      For x = f To g
        If Sheets("Tabelle1").Cells(2, x).Value <> vbNullString Then
         .Cells(2, x).Resize(9).FormulaR1C1 = "=Tabelle1!RC"
         .Cells(12, x).Resize(4).FormulaR1C1 = "=Tabelle1!RC"
         'replaced current column
         strFrm = Replace(C_Formula, "XX", Format(x, "0"))
         .Cells(18, x).Resize(211).FormulaR1C1 = strFrm
        End If
      Next x
   End With

End Sub

 

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
03.02.2019 15:24:45 Tobui
*****
Solved
03.02.2019 20:57:30 Gast01234
NotSolved
04.02.2019 10:35:37 Gast20173
NotSolved
04.02.2019 10:37:12 Gast20173
NotSolved
05.02.2019 13:51:21 Tobui
NotSolved
Blau Duplizieren/Weiterführen des Codes
 05.02.2019 16:43:03 Gast 20173
NotSolved