Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
556to560
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
556to560
556to560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Datei Upload

Datei Upload
02.02.2005 15:08:05
Lisa
Hallo miteinander
Wie kann ich folgendes Realisieren?:
Ich möchte, dass wenn ich auf einen Button
klicke, dass dann ein Upload-Fenster geöffnet
wird, in dem ich den gewünschten Pfad auswählen kann.
Wenn ich dann auf OK drücke, sollte der Pfad
vom Upload-Fenster in der aktiven Zelle ausgegeben werden.
z.B. steht dann in Zelle B3 C:\temp\diverses
Hoffe, das ist irgendwie machbar und freue mich
auf Eure Antworten.
Danke und Gruss
Lisa

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

Betreff
Datum
Anwender
Anzeige
AW: Datei Upload
02.02.2005 15:27:38
Peter
Hallo Lisa,
kopiere den nachfolgenden Code in ein Tabellenblatt.
Beim Aktivieren des Blattes kannst du dann auswählen und per doppelklick zum Ziel kommen.
Gruß Peter


Private Sub Worksheet_Activate()
Dim dName  As String
   dName = Application.GetOpenFilename    ' Auswahl der zu öffnenden Textdatei
     
   If dName = "Falsch" Then               ' Abbrechen gedrückt ?
      MsgBox "es wurde keine Datei ausgewählt", 64, "   keine Auswahl"
      Exit Sub                            ' SUB verlassen
    Else
      Range("B2").Value = dName
      Columns("B:B").EntireColumn.AutoFit
   End If
Anzeige
AW: Datei Upload klappt
Lisa
Hallo Peter
Danke tausend mal - der Code ist echt genial.
Grüsse Lisa

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige