Hallo,

ich hoffe ihr könnt mir helfen. Ich habe folgenden Code (gekürzt), indem ich einen Dateipfad umdefinieren will.

Dim Quelle As Worksheet
Dim x As Long
Dim y As Long

Set Quelle = Workbooks.Open(Filename:=TextBox1.Text).Worksheet("1")
x = Quelle.UsedRange.Rows.Count

'In TextBox1 steht ein Dateipfad, der zu einer Excelliste führt. x wird als Anzahl an Reihen von Quelle definiert und dann damit weitergerechnet.

Set Quelle = Workbooks.Open(Filename:=TextBox2.Text).Worksheet("2")
y = Quelle.UsedRange.Rows.Count

'Nun soll x als Anzahl der Reihen einer anderen Datei definiert werden

Jetzt tritt folgender Fehler auf  'Laufzeitfehler -2147221080 (800401a8)'. Ich habe versucht den Fehler zu umgehen

Dim Quelle As Worksheet
Dim Quelle2 As Worksheet
Dim x As Long
Dim y As Long

Set Quelle = Workbooks.Open(Filename:=TextBox1.Text).Worksheet("1") x = Quelle.UsedRange.Rows.Count Set Quelle2 = Workbooks.Open(Filename:=TextBox2.Text).Worksheet("2") y = Quelle2.UsedRange.Rows.Count

Jetzt tritt folgender Fehler auf  'Objektvariable oder With-Block nicht festgelegt' bei y. Änder ich den Quelltext ab, indem ich die Dateipfade tausche

Dim Quelle As Worksheet
Dim Quelle2 As Worksheet
Dim x As Long
Dim y As Long

Set Quelle = Workbooks.Open(Filename:=TextBox2.Text).Worksheet("2")
x = Quelle.UsedRange.Rows.Count


Set Quelle2 = Workbooks.Open(Filename:=TextBox1.Text).Worksheet("1")
y= Quelle2.UsedRange.Rows.Count

dann tritt der Fehler trotzdem bei y auf. Das Programm läuft nur wenn ich zweimal die geiche Quelle nehme,

Dim Quelle As Worksheet
Dim Quelle2 As Worksheet
Dim x As Long
Dim y As Long

Set Quelle = Workbooks.Open(Filename:=TextBox2.Text).Worksheet("2")
x = Quelle.UsedRange.Rows.Count
y = Quelle.UsedRange.Rows.Count

Vielen Dank schon mal im vorraus.