UF anzeigen, Tabelle einfügen, weiter
Gregor
Mit folgendem Code prüfe ich, ob ein gültiges Tabellenblatt vorhanden ist und das Ergebnis wird in der UF angezeigt. Bei der Anzeige "kein Tabellenblatt vorhanden" sollte der User ohne die UF zu schliessen ein Tabellenblatt mit den nötigen Einträge einfügen können und dann den Code mit einem Button "Weiter" (bei cboTabellenblat_Füllen oder UF erneut öffnen) wieder starten, damit die Tabelle in der UF erfasst wird und mit dem Button "Start" den Code weiterabarbeitet.
Ich versuchte es mit ShowModal = False, aber dann läuft der Code ohne Unterbruch weiter. Wie kann ich eine Meldung (UF) erzeugen, eine Tabelle einfügen und ausfüllen und dann mit der Abfrage weiterfahren?
Sub cboTabellenblatt_Füllen()
Zähler = 0
For Each TabBlatt In ActiveWorkbook.Sheets
If InStr(TabBlatt.Name, "Tabelle") > 0 Then
With Me.cboTabellenblatt
.AddItem TabBlatt.Name
.ListIndex = "0"
End With
Zähler = Zähler + 1
End If
Next TabBlatt
If Zähler = 0 Then
With Me.cboTabellenblatt
.AddItem "Kein Tabellenblatt vorhanden"
.ListIndex = "0"
End With
End If
End Sub
Gregor