Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1276to1280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Werte zusammentragen

Werte zusammentragen
29.09.2012 18:32:09
Franz
Hallo zusammen,
ich würde gerne aus allen rotmarkierten Tabellenreitern jeweils den Zellinhalt (Wert - keine Formeln) von Zelle A1 zusammentragen. Sinnvollerweise in ein Tabellenblatt was dann neu am Anfang eingefügt wird.
Wer kann mir helfen?
Danke im voraus!
Gruß Franz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte zusammentragen
29.09.2012 18:37:30
Josef

Hallo Franz,
Sub collectFromA1()
  Dim objSh As Worksheet
  Dim dblRet As Double
  
  For Each objSh In ThisWorkbook.Worksheets
    If objSh.Tab.ColorIndex = 3 Then
      If IsNumeric(objSh.Range("A1").Value) Then dblRet = dblRet + objSh.Range("A1")
    End If
  Next
  
  If dblRet > 0 Then
    ThisWorkbook.Worksheets.Add Before:=ThisWorkbook.Sheets(1)
    Sheets(1).Range("A1") = dblRet
  End If
End Sub



« Gruß Sepp »

Anzeige
AW: Werte zusammentragen
29.09.2012 18:52:28
Franz
Hallo Sepp,
das ging fix. Besten Dank für Deine Hilfe!
Gruß Franz

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige