Probleme beim Einfügen
27.11.2015 14:22:23
Franky
Hey Leute,
helft mir mal bitte weiter...
habe folgende Code in dem ich von einer Datei in eine andere Datei in eine UserForm was kopieren will
Private Sub cboWKZ_Click()
Dim strVerweis As String
Application.ScreenUpdating = False
'Werkzeugmanagement
Const strPfad = "F:\Werkzeuglisten\" 'Pfad zur anderen Datei
Const strDatei = "Werkzeug-Checkup 2015.xls" 'Andere Datei
Const strBlatt = "2015" 'Tabellenblatt
Const strZelle = "B3" 'Zelladresse
strVerweis = "'" & strPfad & "[" & strDatei & "]" & strBlatt & "'!" & strZelle
With .txbDurchschWartungszeit
.Formula = "=IF(" & strVerweis & "="""",""""," & strVerweis & ")" 'Formel eintragen
.Value = .Value 'Forml in Wert _
umwandeln
End With
End Sub
Bei " With .txbDurchschWartungszeit" habe ich Probleme...
wie müsste ich hier das Ziel definieren, habe schon alles mögliche Probiert,
habe kam immer ne Fehlermeldung.
Kann mir bitte jemand weiterhelfen.
Daaaannnkkkeee....