Werte eines bestimmten Feldes aus allen Registern einer Mappe in einem Register zusammenfassen

19/03/2009 - 11:06 von Patrick Pohlmann | Report spam
Hallo Zusammen,

ich habe eine Mappe mit einer variablen Anzahl von Registern.

Jetzt hàtte ich gerne in einem Regíster eine Tabelle die wie folgt aussieht:

Registername; Wert aus Feld A1
Register A; 3
Regíster B; 5
usw.

Seht Ihr da irgendeine Möglichkeit wie ich das Automatisch, ggf. mit VBA,
hinbekomme?

Danke für Eure Hilfe.

Viele Grüße

Patrick
 

Lesen sie die antworten

#1 Andreas Killer
19/03/2009 - 12:17 | Warnen spam
On 19 Mrz., 11:06, "Patrick Pohlmann"
wrote:

ich habe eine Mappe mit einer variablen Anzahl von Registern.
Jetzt hàtte ich gerne in einem Regíster eine Tabelle die wie folgt aussieht:
Registername; Wert aus Feld A1
Register A; 3
Regíster B; 5


Dann schreibe in ein Tabellenblatt in Zelle A1 den Text "Registername"
und in Zelle B1 den Bezug dessen Zelle Du haben möchtest, z.B. C12 und
lass das angehàngte Makro laufen.

Andreas.

Sub ÜbersichtWert()
Dim S As Worksheet, Y As Long
'Falls Murks in B1 steht
On Error GoTo Exitpoint
'Bisherige Ergebnisse löschen
Y = Range("A" & Rows.Count).End(xlUp).Row + 1
Range(Cells(2, 1), Cells(Y, 2)).ClearContents
'Ergebnisse ab Zeile 2
Y = 2
'Durchlaufe alle Register
For Each S In Sheets
'Ist es unseres?
If Not S Is ActiveSheet Then
'Nein, Wert holen und eintragen
Cells(Y, 1) = S.Name
Cells(Y, 2) = S.Range(Range("B1"))
Y = Y + 1
End If
Next
Exitpoint:
End Sub

Ähnliche fragen