Variablenübergabe an nächstes Macro
31.08.2017 17:25:41
Knauer
Es hapert an der Variablenübergabe an den 3 Codestellen im Macro "Tabelle"...
Public Sub RaumArray()
Dim Raum
Dim r As Variant
Raum = Array(101, 102, 103, 304, 501)
For Each r In Raum
Call Tabelle
Next r
End Sub
Public Sub Tabelle()
' Tabelle
' Tastenkombination: Strg + r
'neue Tabelle aus Tab 300 erzeugen und ans Ende stellen
Sheets("300").Select
Sheets("300").Copy After:=Sheets(Sheets.Count)
'Tabelle umbenennen
Sheets("300 (2)").Select
Sheets("300 (2)").Name = "r"
'Tabelleninhalt löschen
Range("A2:T55").Select
Selection.ClearContents
'zur Haupttabelle 3.OG springen und Raumspalte filtern
Sheets("3.OG").Select
ActiveSheet.Range("$A$1:$T$346").AutoFilter Field:=1, Criteria1:="r"
'Ergebnis selektieren und kopieren zur neu erzeugten Tab 301
ActiveSheet.UsedRange.Copy Sheets("r").Range("A1")
'zurück zur Haupttabelle und Filter deaktivieren
Sheets("3.OG").Select
ActiveSheet.Range("$A$1:$T$346").AutoFilter Field:=1
End Sub