|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
11.04.2008 18:58:17 |
Malile |
|
|
|
12.04.2008 11:22:10 |
jh |
|
|
|
12.04.2008 18:16:30 |
Malile |
|
|
|
12.04.2008 18:46:26 |
Malile |
|
|
|
12.04.2008 18:26:15 |
Malile |
|
|
|
13.04.2008 03:13:20 |
jh |
|
|
|
13.04.2008 13:15:45 |
Malile |
|
|
|
13.04.2008 14:30:20 |
jh |
|
|
|
13.04.2008 21:22:59 |
Malile |
|
|
 Aw:Aw:Aw:Aw:Aw:Aw:Aw:Imagination? |
13.04.2008 22:32:39 |
jh |
|
|
|
13.04.2008 23:50:21 |
Malile |
|
|
|
14.04.2008 04:28:59 |
jh |
|
|
|
15.04.2008 16:03:44 |
Malile |
|
|
|
20.04.2008 14:25:24 |
jh |
|
|
Von:
jh |
Datum:
13.04.2008 22:32:39 |
Views:
699 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Imagination? |
Hallo,
ich fasse noch mal zusammen, wie dein Problem jetzt
rübergekommen ist:
Du hast einen Ordner mit Excel-Mappen, die identisch
aufgebaut sind, aber verschiedene Werte enthalten.
Außerdem gibt es eine weitere Mappe mit dem gleichen
Aufbau, die sich in demselben Ordner befinden sollte,
aktuell geöffnet ist, das Makro zur Summenberechnung
enthält und in der auch die Resultate der Berechnung
gespeichert werden.
Ich bringe hier ein Beispiel, das von diesen
Voraussetzungen ausgeht. Der Ablauf ist wie folgt:
Du doppelklickst in der aktuellen Mappe in die Zelle,
die berechnet werden soll.
Dann öffnet sich die Dateiauswahl, du markierst die
Dateien, die du in die Berechnung einbeziehen willst
und klickst auf Öffnen.
Nach der Berechnung wird die Summe in die betreffende
Zelle der aktuellen Tabelle eingetragen.
Der Code gehört in den Codebereich des aktiven Blattes,
also z. B. "Tabelle1":
Private Sub Worksheet_BeforeDoubleClick( _
ByVal Target As Excel.Range, Cancel As Boolean)
Dim lngSumme As Long, vntFile As Variant, _
i As Integer, strRange As String, _
wbkA As Workbook, vntTemp As Variant
strRange = Target.Address
ChDir ThisWorkbook.Path
' falls die Datei über RecentFiles
' oder über einen Link geöffnet wurde
vntFile = Application.GetOpenFilename( _
FileFilter:="Excel-Arbeitsmappen (*.xls), *.xls", _
MultiSelect:=True)
If IsArray(vntFile) Then
Application.ScreenUpdating = False
For i = LBound(vntFile) To UBound(vntFile)
Set wbkA = Workbooks.Open(vntFile(i))
vntTemp = wbkA.Worksheets(1).Range(strRange).Value
If IsNumeric(vntTemp) Then
lngSumme = lngSumme + CLng(vntTemp)
End If
' verhindert einen Fehler, falls die
' Zielzelle keine Zahl enthält
wbkA.Close SaveChanges:=False
Next i
Application.ScreenUpdating = True
End If
Target.Value = lngSumme
Cancel = True
End Sub
Gruß
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
11.04.2008 18:58:17 |
Malile |
|
|
|
12.04.2008 11:22:10 |
jh |
|
|
|
12.04.2008 18:16:30 |
Malile |
|
|
|
12.04.2008 18:46:26 |
Malile |
|
|
|
12.04.2008 18:26:15 |
Malile |
|
|
|
13.04.2008 03:13:20 |
jh |
|
|
|
13.04.2008 13:15:45 |
Malile |
|
|
|
13.04.2008 14:30:20 |
jh |
|
|
|
13.04.2008 21:22:59 |
Malile |
|
|
Aw:Aw:Aw:Aw:Aw:Aw:Aw:Imagination? |
13.04.2008 22:32:39 |
jh |
|
|
|
13.04.2008 23:50:21 |
Malile |
|
|
|
14.04.2008 04:28:59 |
jh |
|
|
|
15.04.2008 16:03:44 |
Malile |
|
|
|
20.04.2008 14:25:24 |
jh |
|
|