Code geändert - Wo liegt der Fehler?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Fritz,
habe mir mal Dein Problem angeschaut und hier ist die lösung:
https://www.herber.de/bbs/user/35283.xls
Um die ausgewählten Tabellennamen aus der Listbox an Excel zu übergeben, wird 1 Array (vList()) erstellt. Bei Dir standen im Array die Namen (z.B. Walter Meier).
Solch eine Tabelle gibt es aber garnicht, daß ist ja die Tabelle mit dem Namen '2'.
Also habe ich die Listbox um 1 Spalte erweitert, damit der tatsächliche Tabellenname auch in der Listbox steht. Doch diese Spalte hat die Breite 0Pt und ist deshalb unsichtbar, aber man kann den Wert auslesen.
Hier liegt nun aber nun ein weiteres Problem. Wenn Excel eine Zahl als Tabellennamen hat, dann wird diese Zahl in Vba nicht als Tabellenname sondern als Tabellenindex interpretiert. Der Tabellenindex gibt die Position der Tabelle im Tabellenreiter von Excel wieder.
Im Vba-Code habe ich an dieser Stelle 1 Kommentar gesetzt und die Umrechnung durchgeführt.
Jetzt müßte Alles klappen.
Gruß von Luschi
aus klein-Paris

Hallo Fritz!
Wenn ich dich richtig verstehe, dann so

Private Sub cmdOk_Click()
Dim intC As Integer, intI As Integer
Dim vList() As Variant

If optMove Or optCopy Then
  If TextBox1 = "" Then
    MsgBox "Bitte zuerst ein Verzeichnis auswählen!", 64, "Hinweis"
    Exit Sub
  End If

  If TextBox2 = "" Then
    MsgBox "Bitte zuerst einen Dateinamen angeben!", 64, "Hinweis"
    Exit Sub
  End If
End If

For intC = 0 To ListBox1.ListCount - 1
  If ListBox1.Selected(intC) Then
    Redim Preserve vList(intI)
    vList(intI) = ListBox1.List(intC, 0) 'Wir lesen die erste Spalte (Tabellnname) aus
    intI = intI + 1
  End If
Next

If intI > 0 Then
  If optMove Then
    With ComboBox1
      If .ListIndex = 0 Then
        Sheets(vList).Move
      Else
        Sheets(vList).Move after:=Workbooks(.Text).Sheets(Workbooks(.Text).Sheets.Count)
      End If
    End With
  ElseIf optCopy Then
    With ComboBox1
      If .ListIndex = 0 Then
        Sheets(vList).Copy
      Else
        Sheets(vList).Copy after:=Workbooks(.Text).Sheets(Workbooks(.Text).Sheets.Count)
      End If
    End With
  ElseIf optPrint Then
    Sheets(vList).PrintOut
    Exit Sub
  Else
    If MsgBox("Wollen Sie die ausgewählten Tabellen" & Space(25) & vbLf & _
      "wirklich endgültig löschen?", 36, "Bestätigung") = 6 Then
      With Application
        .DisplayAlerts = False
        .ScreenUpdating = False
      End With
      Sheets(vList).Delete
      With Application
        .DisplayAlerts = True
        .ScreenUpdating = True
      End With
      Exit Sub
    End If
  End If

  If ComboBox1.ListIndex = 0 Then
    If Right(TextBox1.Text, 1) <> "\" Then TextBox1.Text = TextBox1.Text & "\"
    With ActiveWorkbook
      .SaveAs TextBox1.Text & TextBox2.Text
      .Close
    End With
  Else
    ThisWorkbook.Activate
  End If

  'Wenn Verschieben oder Löschen
  If optMove Or optDelete Then
    Call deinMakro
  End If

Else
  MsgBox "Keine Tabellen ausgewählt!", 64, "Hinweis"
  Exit Sub
End If

Unload Me
End Sub

Gruß Sepp

Beliebteste Forumthreads (12 Monate)

Code geändert - Wo liegt der Fehler?

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Code geändert - Wo liegt der Fehler?

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread