title image


Smiley Re: gleiche Zelle über mehrere Tabellenblätter hinweg addieren
Hallo,



z.B. so:



Sub alle_addieren()

Dim ws As Worksheet, summe As Double

For Each ws In ThisWorkbook.Worksheets

summe = summe + ws.Range("A60")

Next

MsgBox summe

End Sub
Gruß,



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: