Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
860to864
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
860to864
860to864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summe in VBA

Summe in VBA
19.04.2007 12:38:00
Jossi
Hallo zusammen,
mit einer Mappe lese ich bestimmte Zellen anderer Mappen aus.
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(0, 0) = quelle.Worksheets(1).[c17]
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(0, 1) = quelle.Worksheets(1).[c18]
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(0, 2) = quelle.Worksheets(1).[c19]
Ist es auch möglich die Summe dieser drei Zellen zu bilden? Ist zwar so nicht richtig, aber ungefähr so:
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(0, 0) = quelle.Worksheets(1).[c17]+[c18]+[c19]
Danke für eure Hilfe
Josephien

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

Betreff
Datum
Anwender
Anzeige
AW: Summe in VBA
19.04.2007 14:20:43
ingUR
Hallo, Josephien,
vielleicht hilft Dir dieses Grundgerüst weiter:

Sub sumVBA()
Dim quelle As Workbook
Set quelle = Workbooks("Mappe2")
With ThisWorkbook.Worksheets(1)
.[A65536].End(xlUp).Offset(0, 0) = quelle.Worksheets(1).[C17]
.[A65536].End(xlUp).Offset(0, 1) = quelle.Worksheets(1).[c18]
.[A65536].End(xlUp).Offset(0, 2) = quelle.Worksheets(1).[c19]
.[A65536].End(xlUp).Offset(0, 3) = Application.Sum(quelle.Worksheets(1).Range("C17:C19") _
)
End With
End Sub


Gruß,
Uwe

AW: Summe in VBA
19.04.2007 14:21:28
Peter
Hallo Jossi,
wenn du schreibst
ThisWorkbook.Worksheets(1).[A65536].End(xlUp).Offset(0, 0) = quelle.Worksheets(1).[c17] + _
quelle.Worksheets(1).[c18] + quelle.Worksheets(1).[c19]
sollte es eigentlich funktionieren, wobei ich allerdings 'quelle' nicht ganz unterbringen kann.
Ist das die Excel-Mappe?
Evtl. musst du noch formatieren = CDbl(quelle.Worksheets(1).[c17]) + ...
wenn es ganzzahlige Werte sind mit CInt
Gruß Peter
Anzeige

159 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige