Daten zusammentragen
Claudia
ich möchte mittels Makro Daten aus allen roten Reitern im Blatt "Daten" zusammentragen.
Folgende Zellen sollen aus den roten Reitern zusammengetragen werden:
A1 = Überschrift "Name"
Inhalt aus den roten Reitern (A26 bis Z26) untereinander in Spalte A
B1 = Überschrift "Konto"
Inhalt aus den roten Reitern (A27 bis Z27) untereinander in Spalte A
Etwas habe ich schon gebastelt, aber dann scheitere ich leider. :-( Vielleicht gehtb es auch ganz anders.
Liebe Grüße
Claudia
Sub Test()
Dim Blatt As Worksheet
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Tab.ColorIndex = 3 Then
Blatt.Select
ActiveSheet.Unprotect
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End If
Next Blatt
'ActiveWorkbook.Save
End Sub
Anzeige