Hi Leute,
ich stehe total auf dem Schlauch. Ich habe eine Userform, in der eine zuvor alphabetisch sortierte Mitarbeiterliste in eine Kombobox eingelesen werden soll. Hierzu kopiere ich zunächst die Liste auf ein anderes Tabellenblatt ("Zwischenspeicher"), sortiere sie und lese sie dann ein.
Wenn das Blatt "Zwischenspeicher" aktiviert ist, kann ich die Userform öffnen und die Dateien sind vorhanden ... Wenn ich eins der anderen 60 Blätter offen habe, zeigt er mir allerdings Laufzeitfehler 1004 an :/
Kann jemand mal drüberschauen, wo es hakt? Mir wird leider keine gelbe Zeile im VBA-Editor angezeigt sondern nur die msg-Box mit dem Lautzeitfehler. Das sind die wesentlichen Bereiche des Initialize-Subs
Vielen Dank im voraus :)
Gruß Tim
P.S.: Achso, ich weiß nicht, ob Laufzeitfehler 1004 immer gleich ist. Bei mir steht, dass der Sortierbezug ungültig sei. Ich möge überprüfen ob sich der Bezug innerhalb der markierten Daten befindet und ob das Feld "Sortieren nach" nicht den gleichen Bezug oder leer ist.
ich stehe total auf dem Schlauch. Ich habe eine Userform, in der eine zuvor alphabetisch sortierte Mitarbeiterliste in eine Kombobox eingelesen werden soll. Hierzu kopiere ich zunächst die Liste auf ein anderes Tabellenblatt ("Zwischenspeicher"), sortiere sie und lese sie dann ein.
Wenn das Blatt "Zwischenspeicher" aktiviert ist, kann ich die Userform öffnen und die Dateien sind vorhanden ... Wenn ich eins der anderen 60 Blätter offen habe, zeigt er mir allerdings Laufzeitfehler 1004 an :/
Kann jemand mal drüberschauen, wo es hakt? Mir wird leider keine gelbe Zeile im VBA-Editor angezeigt sondern nur die msg-Box mit dem Lautzeitfehler. Das sind die wesentlichen Bereiche des Initialize-Subs
Code:
Private Sub UserForm_Initialize()
Dim letzte_Zeile As Integer
Dim i As Integer
letzte_Zeile = ThisWorkbook.Sheets("Mitarbeiter").Cells(Rows.Count, 1).End(xlUp).Row
'Kopieren der Mitarbeiter in Zwischenspeicher
With ThisWorkbook.Sheets("Mitarbeiter")
.Range("B8:B" & letzte_Zeile).Copy _
Destination:=ThisWorkbook.Sheets("Zwischenspeicher").Range("M8")
End With
'Alphabetisch sortieren
ThisWorkbook.Sheets("Zwischenspeicher").Range("M8:M" & letzte_Zeile + 1).Sort Key1:=Range("M8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
'Befüllt die Kombobox
With Combo_suche
.RowSource = "Zwischenspeicher!M9:M" & letzte_Zeile
End With
End Sub
Vielen Dank im voraus :)
Gruß Tim
P.S.: Achso, ich weiß nicht, ob Laufzeitfehler 1004 immer gleich ist. Bei mir steht, dass der Sortierbezug ungültig sei. Ich möge überprüfen ob sich der Bezug innerhalb der markierten Daten befindet und ob das Feld "Sortieren nach" nicht den gleichen Bezug oder leer ist.