ich habe folgendes Problem:
Als Mitarbeiter in einer Eventlocation pflegen wir regelmäßig unsere Verkaufszahlen in Excel-Tabellen. Diese haben wir in den Dateien Ticketzahlen-Archiv gespeichert. Diese Datei besteht aus folgenden Sheets:
Filter-Tabelle
Archivar
Veranstaltung 1 (in Zelle A1 steht jeweils das Datum, B1 der Veranstaltungsname)
Veranstaltung 2 (in Zelle A1 steht jeweils das Datum, B1 der Veranstaltungsname)
...usw...
In einer weiteren Datei Ticketzahlendiagramme sollen nun beim Start der Datei in die Tabelle Inhalt alle Veranstaltungen untereinander aufgelistet werden. Hierzu sollen jeweils die Daten der Zellen A1 (Datum) und B1 (Veranstaltungsname) in die Inhaltsübersicht kopiert werden. Leider erhalte ich immer nur Fehlermeldungen. Bei meinem ersten Versuch waren die Typen unverträglich (s.u.), bei meinem zweiten Versuch gibt es Fehler in der Select-Anweisung. Beide Fehler sind für mich unverständlich.
Folgende
Sub wird automatisch beim Start der Datei gestartet:
Sub Initialisieren()
Dim Zaehler As Integer
Dim Veranstaltung As Worksheet
'Füllt die Auswahlfelder Veranstaltung 1 bis 3 mit Inhalten
Zaehler = 1
Workbooks.Open "C:\Vorlagen\Ticketzahlen-Archiv.xls"
Workbooks("Ticketzahlen-Archiv").Activate
For Each Veranstaltung In ActiveWorkbook.Sheets
If Veranstaltung.Name <> "Archivar" Then
If Veranstaltung.Name <> "Filter-Tabelle" Then
'Zweiter Versuch:
ActiveWorkbook.Sheets(Veranstaltung).Range("A1").Select
Selection.Copy
Workbooks("Vorverkaufszahlendiagramme").Sheets("Inhalt").Cells(Zaehler, 2).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
'folgend mein erster Versuch, der allerdings immer in einer Fehlermeldung
'endete (Typen unverträglich)
'Workbooks("Vorverkaufszahlendiagramme").Sheets("Inhalt").Cells(Zaehler, 2).Value = ActiveWorkbook.Sheets(Veranstaltung).Range("A1").Value
Zaehler = Zaehler + 1
End If
End If
Next Veranstaltung
MsgBox ("Fertig")
End Sub
Für jegliche Hilfe bin ich dankbar.
Gruß aus Köln
Christian