Hallo,
ich habe ungefähr 4 variable Listen in verschiedenen Sheets einer Arbeitsmappe. Ich möchte, dass bei jedem Start eine Liste aus den 4en gebildet wird.
Wie mache ich das?
Danke im voraus
Karo
Hallo,
ich habe ungefähr 4 variable Listen in verschiedenen Sheets
einer Arbeitsmappe. Ich möchte, dass bei jedem Start eine
Liste aus den 4en gebildet wird.
Wie mache ich das?
Hi Karo,
Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code reinkpieren, Blattnamen anpassen, Editor schliessen, datei schließen, öffnen
Option Explicit
Private Sub Workbook\_Open()
Dim n As Integer, Blatt, wsZ As Worksheet, zei As Long
Set wsZ = Worksheets("Tabelle5")
Blatt = Array("Tabelle1", "Tabelle2", "Tabelle3", "Tabelle4")
zei = 1
wsZ.UsedRange.ClearContents
For n = 0 To UBound(Blatt)
Worksheets(Blatt(n)).UsedRange.Copy Destination:=wsZ.Range("A" & zei)
zei = wsZ.UsedRange.Rows.Count + 1
Next n
wsZ.Activate
End Sub
Gruß
Reinhard
Hallo,
eine Sheet schreibt er in „Tabelle5“. Danach kommt die Meldung " Index außerhalb des gültigen Bereichs."
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
eine Sheet schreibt er in „Tabelle5“. Danach kommt die Meldung
" Index außerhalb des gültigen Bereichs."
Hi Karo,
das heisst ein in dem Array angesagten Tabellennamen gibt es nicht, Namen sschreibweise überprüfen.
Gruß
reinhard
Danke, funktioniert!!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]