Danke für Eure Antworten!
Zuerst aber noch eine andere Frage: Manchmal verschwindet bei einer Scrollbar einfach der Schieber, da sowohl Min als auch Max den Wert 0 haben. Auch das neusetzen über VBA mittels .Min=0 und .Max=1 bringt nichts, der Schieber bleibt verschwunden.
Nur das manuelle ändern unter Eigenschaften bringt Besserung.
Irgendwelche Tipps oder Tricks zur Vermeidung dieses Fehlers!?
Achja, sollte es wen interessieren:
Das ist meine Lösung für mein Dateiproblem:
PHP-Code:
//Pfadangabe zumsammenbauen mittels &
Pfad = "TEXT;" & Range("G1").Value & Range("G2").Value
//prüfen ob datei vorhanden
On Error Resume Next
dateifehler = Dir(Range("G1").Value & Range("G2").Value) <> ""
dateifehler = dateifehler And Err = 0
dateifehler = Not dateifehler
//und erst wenn dateifehler=FALSE importiere ich die Daten
If (dateifehler = True) Then
MsgBox ("Dateifehler: Dateiname und Dateipfad überprüfen")
Else
//Datei laden und nach Cells(zeilen, spalten) kopieren
With ActiveSheet.QueryTables.Add(Connection:=Pfad, Destination:=Range("S1"))
//überprüfen ob datei vorhanden
.Refresh
End With
//usw....
Grüße,
Harri