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.
|