Microsoft Excel

Herbers Excel/VBA-Archiv

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

Tabellen wie öffnen | Herbers Excel-Forum


Betrifft: Tabellen wie öffnen von: ing.grohn
Geschrieben am: 16.01.2010 13:48:27

Hallo Forum,
diese Frage hatte ich schon mal gestellt. Aber, ich hab damit immer noch Probleme:

Workbooks("Jutta-adressen").Select
Windows("Jutta-Adressen.xls").Activate

Die erste Anweisung funktioniert nicht, die zweite schon!
Wann öffnet man wie eine Tabelle oder Datei?

Für eine Antwort bedanke ich mich
Mit freundlichen Grüßen
Albrecht Grohn

  

Betrifft: AW: Tabellen wie öffnen von: Tino
Geschrieben am: 16.01.2010 13:58:16

Hallo,
z. Bsp. so.

Sub Beispiel()
Dim oWB As Workbook

On Error Resume Next
    'Datei offen
    Set oWB = Windows("Jutta-Adressen.xls")
    If oWB Is Nothing Then
        'Datei nicht offen
        Set oWB = Workbooks.Open("C:\Ordner\Jutta-Adressen.xls")
    End If
On Error GoTo 0

If Not oWB Is Nothing Then
    With oWB
        .Activate
        'sonstige Aktionen
        '...
        '...
    End With
Else
    MsgBox "Datei nicht gefunden!", vbCritical
End If

End Sub
Gruß Tino


  

Betrifft: AW: Tabellen wie öffnen von: ing.grohn
Geschrieben am: 16.01.2010 14:11:31

Hallo Timo,
hört sich gut an!
Werd ich versuchen, es dauert nur etwas, weil ich einiges umschreiben muß
Vielen Dank
Albrecht


Beiträge aus den Excel-Beispielen zum Thema "Tabellen wie öffnen"