Hi Bastler,

dann schreibe ich mal meine erste Antwort ;-)

Ich würde das Quit und die Alerts nicht ins Feld führen sondern es schlicht so programmieren:

Private Sub Workbook_Open()
If InStr(ThisWorkbook.Path, "Desktop") = 0 Then
MsgBox "Unzulässiger Speicherort!", , "Bye bye!"
Me.Close False ...

Hi Bastler,

jetzt "nörgel" ich mal auf etwas höherem Niveau:

Im Objekt Cells wird dann die englische/VBA-Nomenklatur verwendet.

Cells ist kein Objekt, sondern eine Eigenschaft. Diese gibt aber wiederum ein Range-Objekt zurück

*klugscheißermodusaus*

VG, Boris

Hi Bastler,

der *Klugscheißer* ist wieder unterwegs :lol:

Dein Code ist in mehrerer Hinsicht nicht optimal :roll:

1. Mehrfachverwendung eines Objekts - hier: Target - da bietet sich immer der With-Rahmen an
2. Der Code reagiert nicht ausschließlich auf Klicks in Spalte 3 (C), da Du die Spalte ...

Hi Bastler,

natürlich beantwortet das meine Frage!

Hi Bastler,

hier würde ich zumindest noch ergänzen, dass FINDEN case sensitive ist - also zwischen GROSS- und kleinschreibung unterscheidet. Möchte man das nicht, kann man FINDEN einfach durch SUCHEN ersetzen.
Alternativ für nicht case sensitive Prüfungen kann man auch ZÄHLENWENN mit den bekannten ...

Hi Bastler,

mit meiner Antwort ("Spalte breiter ziehen und Zellausrichtung neutralisieren...") wollte ich Dich nur zu der (Selbst-)erkenntnis führen, dass 2 Einträge auch weiterhin linksbündig erscheinen (wo Zahlen - und dazu gehörten natürlich auch die Datümer - von Haus aus rechtsbündig ...

Hi Bastler,

das hier

wb.Sheets.Add.Name = sAuszug 'erzeugt eine neue Tabelle
Set wsA = wb.Sheets(sAuszug)

ist ein etwas "ungewöhnliches" Coding.

Ich würde das neu hinzugefügte Worksheet direkt (beim Erstellen mit der Add-Methode) der Objektvariaben wsA zuweisen und und anschließend die Name ...

Hi Bastler,

Du würdest Worksheet statt Sheet verwenden. Hat das einen tieferen/Fehlervermeidenden Grund?

Nein, das nicht, da für die Sheets.Add-Methode der Default-Wert für den optionalen 4. Parameter Type mit xlWorksheet vorbelegt ist.
Ich finde es halt nur "sauberer". Ändert aber sonst nix ;-)

Hall d'r Bastler,

danke für die Initiative.

Ich werde hier öfter bis oft "vorbeischauen"....

LG & ciao
thowe