|
Hi Y,
lieben Dank für deine Mühe! Habe das ganze mal in das vorhandene Makro mal übernommen, aber immer noch kein erfolg. Es erscheint zwar keine Fehlermeldung mehr, dennoch passiert nichts. Hier mal der Code:
Sub Command_Button ()
.....
Set rangeobj = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rangeobj2 = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
If rangeobj Is Nothing Then
MsgBox "Die FIN " + fin + " wurde nicht gefunden!"
Else
zeile2 = Sheets("ersatz").Cells(rangeobj2.Row, 1).Row
spalte2 = Sheets("ersatz").Cells(1, rangeobj2.Column).Column
zeile = Sheets("Neuwagen").Cells(rangeobj.Row, 1).Row
spalte = Sheets("Neuwagen").Cells(1, rangeobj.Column).Column
If (CheckBox1.Value = True) Then
Terminverwaltung.TextBox10.Value = Sheets("ersatz").Cells(zeile2, 20).Value
Terminverwaltung.TextBox8.Value = Sheets("ersatz").Cells(zeile2, 6).Value
Else:
Terminverwaltung.TextBox10.Value = Sheets("Neuwagen").Cells(zeile, 18).Value
Terminverwaltung.TextBox8.Value = Sheets("Neuwagen").Cells(zeile, 8).Value
End If
End If
End Sub ()
Falls ich ein Wert in der Tabelle "ersatz" suche das vorhanden ist, erscheint die MsgBox mit dem definierten Text, es sei keine Fin gefunden wurden, obwohl die Fin vorhanden ist. Das rangeobj ist ja nicht leer, sodass die Meldung erscheinen soll. Versucht habe ich es auch so:
If rangeobj or rangeobj2 Is Nothing Then
....
Ist aber auch nicht richitig denke ich...Notfalls muss ich mir was neues einfallen lassen aber ich hoffe Ihr könnt mir helfen :) :)
Danke und viele Grüße
Sino
|