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!...

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 gemein...

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 J...

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 Nam...

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 n...