mochmals danke an Christoph M der mir in diesen Forum geholfen und nachfolgenden Code geschrieben hat.
Sub JoinSheets()
Dim wksSrc As Worksheet, wksDst As Worksheet
Dim lngLR As Long
Set wksDst = Sheets("Ausdruck")
For Each wksSrc In ThisWorkbook.Worksheets
lngLR = wksDst.Cells(wksDst.Rows.Count, 1).End(xlUp).Row
If wksSrc.Name <> wksDst.Name Then
wksDst.Cells(lngLR + 1, 1) = wksSrc.Name
wksDst.Cells(lngLR + 1, 1).Font.Size = 24
wksSrc.UsedRange.Copy wksDst.Cells(lngLR + 2, 1)
End If
Next
Set wksDst = Nothing
End Sub
nun zu meinen Problem:
meine Arbeitsmappe ist um einige tabellen größer geworden ich möchte aber nur die Tabellen (Offene Klasse, Schülerklasse... wie in der Beispielmappe in die Tabelle "Ausdruck" kopieren.
was muss ich ändern, ich bitte euch um hilfe.
P.S. Sollte es möglich sein hätte ich noch ne bitte, das keine formeln mit Kopiert werden sondern nur die Werte.
Für Eure Hilfe danke ich euch schon im Vorraus.
Gruß
Erich
https://www.herber.de/bbs/user/25243.xls