Hallo zusammen,
letzte Woche wurde mir geholfen und ich konnte einen funktionierenden Code einsetzen. Nun wollte ich eine Änderung vornehmen aber meine Änderungen funktionieren nicht.
Anfänglicher Code:
es werden einige vorgewählte Tabellenblätter zu einer neuen Datei geformt und unter C: abgelegt. Es kann vorkommen, dass einige der vorgewählten Tabellenblätter nicht mehr da sind, was der Code bereits berücksichtigt.
Neuer Code:
bevor die neue Datei erzeugt wird, wollte ich die Tabellenblätter umbenennen. Dabei soll der neue Tabellenblattname aus einer bestimmten Zelle des jeweiligen Tabellenblattes kommen. Dazu habe ich per Makro die Tabellenblätter umbenannt und in der eigentlichen Dateispeicherzeile statt der Tabellenblattnamen Variablen eingesetzt. Leider funktioniert es nicht, dass statt des Tabellenblattnamens eine Variable verwendet wird. Was mache ich falsch?
Gruß
Erdogan
PS: Feedack ist selbstverständlich.
Application.ScreenUpdating = False
Dim ZuKopierendeTabellen
Dim SelArt As Boolean
Dim TB
'******* Dieser Teil kam nachträglich hinzu ************
Dim Reiter1 As String
Dim Reiter2 As String
Dim Reiter3 As String
Worksheets("Tabelle.1").Name = Sheets("Tabelle.1").Range("AT9").Text
Worksheets("Tabelle.2").Name = Sheets("Tabelle.2").Range("AT9").Text
Worksheets("Tabelle.3").Name = Sheets("Tabelle.3").Range("AT9").Text
'******* ENDE: Dieser Teil kam nachträglich hinzu ************
'SO FUNKTIONIERT ES
'ZuKopierendeTabellen = Array("Tabelle.1", "Tabelle.2", "Tabelle.3")
'SO FUNKTIONIERT ES NICHT
ZuKopierendeTabellen = Array(Reiter1, Reiter2, Reiter3)
SelArt = True
On Error Resume Next
For Each TB In ZuKopierendeTabellen
Err = 0
Sheets(TB).Select SelArt
If Err = 0 Then SelArt = False
Next
On Error GoTo 0
If SelArt = False Then
ActiveWindow.SelectedSheets.Copy
With ActiveWorkbook
Application.DisplayAlerts = False
.SaveAs Filename:=("C:" & "\" & "NeueDatei.xls")
.Close
Application.DisplayAlerts = True
End With
End If
Application.ScreenUpdating = True
End Sub