mit untenstehendem Code wird auf eine "fremde", am Bildschirm geöffnete Mappe zugegriffen und daraus Daten eingelesen.- Wäre denkbar, dass bevor der Code startet und Daten einliest, zunächst überprüft wird, ob sich in der "Quellmappe" ein Tabellenblatt mit Namen "Telnehmerliste" befindet und wenn ja, dieses Blatt -ohne Rückfrage- darin gelöscht wird? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Hier auszugsweise der Code:
Private Sub UserForm_Initialize()
Dim objMappe As Workbook
Dim objTabelle As Worksheet
Dim intI As Integer
On Error GoTo Abbrechen
Set objWbZiel = ThisWorkbook
'Auswahlliste für Combobox Quelldateien erstellen
With Me.cboQuelleMappe
For Each objMappe In Application.Workbooks
Select Case objMappe.Name
'Namen der nicht wählbaren Mappen
Case objWbZiel.Name
'do nothing
Case Else
'Nur die sichtbaren Mappen in die Auswahlliste aufnehmen
If Application.Windows(objMappe.Name).Visible = True Then
.AddItem objMappe.Name
End If
End Select
Next
If .ListCount = 0 Then
MsgBox "Es wurde noch keine Quelldatei geöffnet!"
Else
'1. Eintrag in Liste wählen
.ListIndex = 0
End If
End With