Thema Datum  Von Nutzer Rating
Antwort
02.10.2017 10:35:00 Gast5545
NotSolved
02.10.2017 20:45:45 Gast17479
NotSolved
Rot Zwei Spalten konsolidieren
 03.10.2017 19:09:43 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
03.10.2017 19:09:43		 Views:
533		 Rating:
     
Antwort:
  Ja
Thema:
Zwei Spalten konsolidieren

Vorher

Nachher

Sub Konsi()

'C20:C3 usw
'Excel 2013
'1993 Zeilen

Dim x As Long
Dim strSource As String

   For x = 2 To 10 Step 4
      strSource = "C" & CStr(x) & ":" & "C" & CStr(x + 1)
      'Debug.Print x, x + 2, strSource
      Cells(1, x + 2).Consolidate Sources:=strSource, _
        Function:=xlSum, TopRow:=True, LeftColumn:=True, CreateLinks:=False
   Next x
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
02.10.2017 10:35:00 Gast5545
NotSolved
02.10.2017 20:45:45 Gast17479
NotSolved
Rot Zwei Spalten konsolidieren
 03.10.2017 19:09:43 Gast70117
NotSolved