Probleme beim Einfügen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Probleme beim Einfügen
von: Franky
Geschrieben am: 27.11.2015 14:22:23

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....

Bild

Betrifft: AW: Probleme beim Einfügen
von: Hajo_Zi
Geschrieben am: 27.11.2015 15:03:46
Range("a1")


Bild

Betrifft: Durchschwartungszeit
von: D.Saster
Geschrieben am: 27.11.2015 16:09:59
Hallo,
ab und an die Frau durchzuschwarten mag ja noch angehen. Aber das in Excel zu verwalten ist schon pervers. ;-)
es fehlt ein übergeordneter with-Rahmen
z.B.
With userform1
With .txbDurchschWartungszeit
'mach was
end with
end with
Gruß
Dierck

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Probleme beim Einfügen"