ich möchte ausgewählte Tabellenblätter (mit gleicher Struktur) listenmäßig in einem Tabellenblatt "Gesamt" zusammenführen. Ich habe online eine VBA-Prozedur gefunden, die etwas Ahnliches macht, die aber fehlerhaft ist.
Sub TB_kopieren()
Dim wsTabelle As Worksheet
Dim loLetzteActive As Long
Dim loLetzte As Long
Dim inLetzte As Integer
loLetzteActive = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
With wsTabelle
Select Case .Name
Case "TB4", "TB5", "TB7", "TB9", "TB10"
loLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
inLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
.Range(.Cells(1, 1), .Cells(loLetzte, inLetzte)).Copy ActiveSheet.Cells(loLetzteActive, 1)
loLetzteActive = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
End Select
End With
End Sub
Excel gibt eine Fehlermeldung für die Zeile "Select Case . Name" aus. Hilfe/Verbesserung wäre nett.Grüße Burghard