|
Hi Sino,
ich habe das ganze jetzt mal ein ewnig überarbeitet. Hoffe es funktioniert, ansonsten musst Du selbst noch ein wenig anpassen, habe auch ein paar Kommentare hinterlassen. Sollte es auch nach paar Stunden nicht laufen, dann melde Dich nochmal.
Sub button()
Dim wkb As Workbook
Dim zeile, zeile2 As Long
Dim spalte, spalte2 As Long
fin = TextBox4.Value
Set wkb = Workbooks.Open("C:\Dokumente und Einstellungen\Desktop\Nwmgnt.xls")
wkb.Activate
Sheets("Neuwagen").Activate
If (fin <> "") Then
Set rangeobj = Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rangeobj2 = Sheets("ersatz").Cells.Find(What:=fin, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False) ' --> sucht jetzt im Sheet "ersatz"
If rangeobj Is Nothing And rangeobj2 Is Nothing Then
MsgBox "Die FIN " + fin + " wurde nicht gefunden!"
End ' --> beendet den Code, falls fin nicht gefunden wurde
End If
If (CheckBox1.Value = True) Then
zeile2 = Sheets("ersatz").Cells(rangeobj2.Row, 1).Row
spalte2 = Sheets("ersatz").Cells(1, rangeobj2.Column).Column ' unnötig, wird nicht weiter verwendet?
Terminverwaltung.TextBox10.Value = Sheets("ersatz").Cells(zeile2, 20).Value
Terminverwaltung.TextBox8.Value = Sheets("ersatz").Cells(zeile2, 6).Value
Else:
zeile = Sheets("Neuwagen").Cells(rangeobj.Row, 1).Row
spalte = Sheets("Neuwagen").Cells(1, rangeobj.Column).Column ' unnötig, wird nicht weiter verwendet?
Terminverwaltung.TextBox10.Value = Sheets("Neuwagen").Cells(zeile, 18).Value
Terminverwaltung.TextBox8.Value = Sheets("Neuwagen").Cells(zeile, 8).Value
End If
End If
End Sub
lg Y
|