Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Werkzeug
BildScreenshot zu Werkzeug Werkzeug-Seite mit Beispielarbeitsmappe aufrufen

Probleme beim Einfügen

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

  

Betrifft: AW: Probleme beim Einfügen von: Hajo_Zi
Geschrieben am: 27.11.2015 15:03:46

Range("a1")

GrußformelHomepage


  

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


 

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