Fehlermeldung in VBA: Typen unverträglich?
Hallo,
ich kriege eine Fehlermeldung in VBA, finde allerdings keine Lösung, dies zu beheben. Könnt ihr mir helfen?
Sub Berichte()
Dim Liste As Workbook
Dim Bericht As Workbook
Dim Dati As Variant
Set Bericht = ActiveWorkbook
Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
Set Liste = Workbooks.Open(Filename:=Dati)
ActiveWorkbook.Sheets("Tabelle1").Columns("A:E").Copy
Windows(Bericht).Activate
Columns("A:E").Select
ActiveSheet.Paste
End Sub
1 Antwort
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Ich vermute, es liegt an der Zeile "Windows(Bericht).Activate", denn Windows ist eine Liste, die entweder einen String oder Index erwartet. Bericht ist ein Objekt.
(Du hättest die Zeile genau nennen können, hättest du dich schrittweise zum Problem hin gedebuggt. Damit will ich sagen, dass du dich mit Debugtechniken besser vertraut machen solltest.)
Dann noch eine Randbemerkung: In der Zeile "ActiveWorkbook.Sheets..." hättest du auch "Bericht.Sheets..." schreiben können. Auf jeden Fall solltest du mit deinen Objekten arbeiten, wenn du sie schon erstellst.