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

WBA problem

WBA problem
24.01.2005 21:48:31
zeljko
eine kleine hilfe

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
No Text
?
...
AW: No Text
24.01.2005 21:53:50
zeljko
wohin ist feler

Private Sub CommandButton1_Click()
Dim ime As Variant
Dim sh As Worksheet
'filename  ist "c:\jedan.xls" und er is geschlossen.
ime = Application.GetOpenFilename("Excel Files (*.xls), *.xls,", 1, "")
If ime = 0 Then
Exit Sub
End If
textbox1.Text = ime
For Each sh In Workbooks(ime).Sheets
listbox1.AddItem sh.Name 'fullen listbox mit tabellenamen aus "c:\jedan.xls" files
Next sh
listbox1.ListIndex = 1
End Sub


Private Sub CommandButton2_Click()
Unload Me
End Sub

AW: No Text
P@ulchen
Hi Zeljko,
Du musst das Workbook öffnen:


Private Sub CommandButton1_Click()
    Dim ime As Variant
    Dim sh As Worksheet
    'filename  ist "c:\jedan.xls" und er is geschlossen.
    ime = Application.GetOpenFilename("Excel Files (*.xls), *.xls,", 1, "")
    If ime = 0 Then
        Exit Sub
   End If
   Workbooks.Open ime
        textbox1.Text = ime
        For Each sh In Workbooks(ime).Sheets
        listbox1.AddItem sh.Name 'fullen listbox mit tabellenamen aus "c:\jedan.xls" files
    Next sh
     listbox1.ListIndex = 1
End Sub


Gruß aus Leipzig
P@ulchen
Das Forum lebt auch von den Rückmeldungen !
Anzeige
AW: No Text
zeljko
danke
gruss zeljko
WBA ?dann besser: www.boxen.de
oT

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige