Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Hilfe bei Code

Hilfe bei Code
06.07.2003 17:06:11
Jens
Hallo zusammen
wer kann mir helfen?
ich will in einer UF per Button_Click die Textdatei importieren die in Textbox1 ausgewählt wurde. Ich habe schon "Const Datei = "C:\Eigene Dateien\Kunden.txt"" durch
"Const Datei = Textbox1.text" ersetzt. Dabei bekomme ich aber Fehlermeldung das eine Constante erwartet wird. Was muß ich ändern?

Private Sub CommandButton4_Click() 'Datei import
Dim Blatt As Worksheet
Const Datei = "C:\Eigene Dateien\Kunden.txt"
Application.ScreenUpdating = False
Set Blatt = Worksheets("Kundendaten")
On Error GoTo Errorhandler
Blatt.Range("A:L").ClearContents
Workbooks.OpenText Datei, Semicolon:=True
Cells.Copy Blatt.Range("A1")
ActiveWorkbook.Close SaveChanges:=False
'Blatt.Columns("A:B").AutoFit
Application.ScreenUpdating = True
Exit Sub
Errorhandler:
MsgBox "Die Datei wurde nicht gefunden", vbCritical, "Fehler:"
End Sub

Danke im voraus Jens

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei Code
06.07.2003 17:10:15
Micha
Versuch es mal so

Private Sub CommandButton4_Click() 'Datei import
Dim Blatt As Worksheet
Application.ScreenUpdating = False
Set Blatt = Worksheets("Kundendaten")
On Error GoTo Errorhandler
Blatt.Range("A:L").ClearContents
Workbooks.OpenText "C:\Eigene Dateien\Kunden.txt"
, Semicolon:=True
Cells.Copy Blatt.Range("A1")
ActiveWorkbook.Close SaveChanges:=False
'Blatt.Columns("A:B").AutoFit
Application.ScreenUpdating = True
Exit Sub
Errorhandler:
MsgBox "Die Datei wurde nicht gefunden", vbCritical, "Fehler:"
End Sub


AW: Hilfe bei Code
06.07.2003 17:19:55
Jens
Danke, es funktioniert

Anzeige
das war Quatsch
06.07.2003 17:12:26
Micha
ersetze "C:\Eigene Dateien\Kunden.txt" durch Textbox1.Text

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige