Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1460to1464
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Probleme beim Einfügen

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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme beim Einfügen
27.11.2015 15:03:46
Hajo_Zi
Range("a1")

Durchschwartungszeit
27.11.2015 16:09:59
D.Saster
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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige