VBA | Makro = Excel Absturz

[Basisa]

Hallo liebe Liebenden,

wir versuchen mal einen anderen Ansatz.
Selbe Datei, selbes Problem.

Nur dieses Mal kann ich genau sagen welche Zeile.

If UF_Suche.Label1.Caption <> "" And Benutzer = ThisWorkbook.Worksheets("Daten").Cells(Auswahl, 14).Value Then

Hier stürzt Excel ohne Vorwarnung ab, dabei ist es egal ob WAHR oder FALSCH herauskommt.
Excel 2016

-----------------------------------

Makro befindet sich in einem Modul
Benutzer ist eine Variable vom Typ String
Daten ist VeryHidden
Auswahl ist eine Variable vom Typ Integer

Im Endeffekt soll eigentlich wenn im Label etwas drinsteht und Benutzer der selbe ist wie bei Daten ein Button eingeblendet werden, welche weitere Funktionen freigibt.

Sieht jemand etwas Böses im Code? Ich leider nicht 

[Klaus-Dieter]

Hallo,

welchen Wert hat denn die Variable Auswahl?

[Basisa]

4 bis was die ListeBox so hergibt. Maximal so 600.

[Gast 123]

Hallo erst mal     

ich kann es mir nicht verkneifen auch noch etwas Senf beizusteuern.  Wie suche ich solche verzwickten Fehler??

Ein Beispiel:   İF rFind is Nothing And Left(rFind, 4) = "Test" then   führt unweigerlich zum Absturz! wenn die Bedigung nicht stmmt!
Hier müssen zwei getrennte IF Anweiungen nacheinander programmiert werden, mit zwei End İF!
İF rFind is Nothing Then
İF Left(rFind, 4) = "Test" then

Teste bitte deinen Code mal so, mit MsgBox dazwischen, dann erkennst du bestimmt welche Anweisung den Fehler verursacht. Einen Versuch ist es wert.

mfg Gast 123

Code:

If UF_Suche.Label1.Caption <> "" Then
MsgBox "Label Okay"
If Benutzer = ThisWorkbook.Worksheets("Daten").Cells(Auswahl, 14).Value Then
MsgBox "Daten Okay"

[Basisa]

Hi, dann stürzt Excel ohne Meldung ab ;)
Egal welche der zwei Bedingungen als erstes steht.

[schauan]

Hallöchen,


statt

İF rFind is Nothing Then

besser

İF Not rFind is Nothing Then

[Basisa]

Das hat nichts mit dem Thema hier zu tun...
Das war nur ein Beispiel vom Gast...

[schauan]

Hallöchen,

wenn rFind Nothing ist wird Links garantiert nichts bringen außer vielleicht einem Fehler, egal, ab es was mit dem Thema zu tun hat oder nicht ...
Mal unabhängig davon war bestimmt gemeint, dass Du mal zwei Zeilen aus der einen machen sollst und nicht einfach nur die Reihenfolge in der einen tauschen...

[Basisa]

Ja, wurde ja gemacht. Und dann die Reihenfolge geändert. Immer direkter Absturz.

[schauan]

Hallöchen,

also, es kommt niemals die Msgbox?

Egal, ob so
If UF_Suche.Label1.Caption <> "" Then
MsgBox "Label Okay"
If Benutzer = ThisWorkbook.Worksheets("Daten").Cells(Auswahl, 14).Value Then
MsgBox "Daten Okay"

oder so
If Benutzer = ThisWorkbook.Worksheets("Daten").Cells(Auswahl, 14).Value Then
MsgBox "Daten Okay"
If UF_Suche.Label1.Caption <> "" Then
MsgBox "Label Okay"

mit F8 kommst Du aber bis dorthin?