Bevor ich jetzt nach der Nachtschicht und erfolglosem rumbasteln zu Bett gehe möchte ich aber mein Problem noch schildern!
Mittels folgendem Code lösche ich ggf. Zeilen:
Private Sub CommandButton4_Click()
Dim Zelle As Range
With Sheets("Daten")
If TextBox2.Value "" Then
Set Zelle = .Columns("BB:BB").Find(TextBox2.Value, LookIn:=xlValues)
If Not Zelle Is Nothing Then
Else
MsgBox "Der gesuchte Datensatz ist nicht vorhanden"
Exit Sub
End If
End If
End With
Rows(Zelle.Row).Delete
Exit Sub
End Sub
AB
C
D
E
F
G
H
I
J
K
L
M
N
O
P
Q
R
S
T
U
V
W
X
Y
Z
So stehen in der Spalte CF die Buchstaben. Daneben in Spalte G stehen Formeln.
Neben A - WENN($BE$50="";1;WENN(ISTFEHLER(VERWEIS(2;1/($CD$50:$CD$79"");$CD$50:$CD$79));0;VERWEIS(2;1/($CD$50:$CD$79"");$CD$50:$CD$79)))
Neben B - WENN($BE$80="";1;WENN(ISTFEHLER(VERWEIS(2;1/($CD$80:$CD$109"");$CD$80:$CD$109));0;VERWEIS(2;1/($CD$80:$CD$109"");$CD$80:$CD$109))) usw. bis Z.
Wenn ich nun eine Zeile aus dem Bereich AZ50 bis AZ829 lösche, kommt dann immer in einer der o. a. Formeln der Wert #Bezug!. Wie kann ich das verhindern?
Danke im Voraus und schaue alsbald nach dem Schlafen wieder hier in Erwartung eurer Antworten vorbei!!!
Gruß Frank H.!!!