Sub
blätter_auswerten()
Dim
blatta
As
Object
, blattb
As
Object
, blattc
As
Object
Dim
blatt
Dim
eingabe
Dim
Zeile
As
Long
Set
blatta = Worksheets(deinNameBlattA)
Set
blattb = Worksheets(deinNameBlattB)
Set
blattc = Worksheets(deinNameBlattC)
For
Each
blatt
In
ActiveWorkbook.Worksheets
If
blatt.Name <> blatta.Name
And
blatt.Name <> blattb.Name
And
blatt.Name <> blattc.Name
Then
eingabe = blatt.Cells(2, 2)
Select
Case
eingabe
Case
"A"
Zeile = blatta.Cells(Rows.Count, 1).
End
(xlUp).Row
blatta.Cells(Zeile + 1, 1) = blatt.Name
blatta.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)
blatta.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)
Case
"B"
Zeile = blattb.Cells(Rows.Count, 1).
End
(xlUp).Row
blattb.Cells(Zeile + 1, 1) = blatt.Name
blattb.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)
blattb.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)
Case
"C"
Zeile = blattc.Cells(Rows.Count, 1).
End
(xlUp).Row
blattc.Cells(Zeile + 1, 1) = blatt.Name
blattc.Cells(Zeile + 1, 2) = blatt.Cells(3, 2)
blattc.Cells(Zeile + 1, 3) = blatt.Cells(4, 2)
Case
Else
MsgBox
"Den Wert in "
& blatt.Name &
" kennen wir nicht. Dieser wird nicht ausgewertet."
End
Select
End
If
Next
blatt
End
Sub