|
Hallo,
habe folgendes Makro:
...
Set wkb = Workbooks.Open("...")
wkb.Activate
Sheets("nw").Activate
If (fin <> "") Then
Set rangeobj = 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
zeile = rangeobj.Row
spalte = rangeobj.Column
TextBox10.Value = Cells(zeile, 18).Value
TextBox8.Value = Cells(zeile, 8).Value
If (CheckBox1.Value = True) Then
Sheets("ersatz").Activate
TextBox10.Value = Cells(zeile, 20).Value
TextBox8.Value = Cells(zeile, 6).Value
End If
End If
End If
Starte eine kleine Abfrage über dieses Makro. Wenn die Checkbox true ist werden die Werte aus Sheet "ersatz" rausgelesen ansonsten von Sheet "nw". Funktioniert iwie nicht, kp warum. Wo ist der Fehler??
Danke und Gruß
Sino
|