Externen Tabellenblattname zu lang um zu Kopieren

Heinz H. · 2024-10-31T20:09:11+00:00

Hallo Leute, Ich möchte jedes Monat meine Kontobewegungen von CSV in ein Excel Blatt kopieren. Das hat bis jetzt auch mit dem unteren Code sehr gut funktioniert, bis jetzt. Nun habe ich eine neue Kontonummer erhalten die um einiges länger als die alte war. Wie könnte es gehen um nach " meinElba_umsaetze_AT12345678900 " die weiteren hinteren Stellen zu ignorieren ? Z.B meinElba_umsaetze_AT12345678900*********** Danke für eure Hilfe und Vorschläge Gruß, Heinz Sub Oktober_einfuegen() Dim mySheet As Worksheet Dim zielsheet As Worksheet Dim myWB As Workbook Application.DisplayAlerts = False On Error Resume Next Set myWB = Workbooks("meinElba_umsaetze_AT12345678900.csv") Set mySheet = myWB.Sheets("meinElba_umsaetze_AT12345678900") Set zielsheet = ThisWorkbook.Sheets("CSV") On Error GoTo 0 zielsheet.Unprotect If mySheet Is Nothing Then MsgBox "Datenblatt meinElba_umsaetze_AT12345678900 nicht vorhanden!" Exit Sub End If

Die Antwort resp. den Workaround habe ich Dir bereits gegeben.
Dennoch ein paar Anmerkungen:
Das Öffnen einer CSV mit Excel führt häufig zu unerwünschten Begleiterscheinungen wie z.B. Umwandlung des Textes 4-2 zum Datum 04.02.(aktuelles Jahr)
Deshalb sollte man sie in der Regel in Excel importieren.
Wenn es bei dem Auszug Deiner Bank problemlos klappt, kannst Du natürlich dabei bleiben.
Wenn Du weiterhin öffnest, brauchst Du obige Verrenkungen nicht, denn die von Excel umgewandelte Textdatei (CSV) besteht prinzipbedingt nur aus einem einzigen Blatt.
Auf dieses kannst Du mit dem Blattindex 1 zugreifen.
Grob so:

Set Blatt = Workbooks("Mein_extrem_langer_Dateiname_der_Probleme_verursacht.csv").Sheets(1)

Abschließend:
Sehr viel besser wäre es, wenn Du den Import mittels PowerQuery vornimmst und neue Auszüge fortlaufend aggregierst.
Dazu kann ich Dir aber kaum helfen, es gibt aber genug Fachleute dazu hier im Forum.

Gruß Ralf

HI
wenn dir der Blattname zu lang ist, oder wenn sich die hinteren Stellen auch mal ändern können (Export mit Datum im Namen), dann mach ich das immer so, um zu prüfen ob eine Datei vorhanden ist, bei der zumindest der Anfang übereinstimmt:

dim myWB as Workbook

dim mySheet as Worksheet

for each myWB in Application.Workbooks

   if myWB.Name like "meinElba_umsaetze_AT12345678900*.csv" then exit sub 'joker * für beliebige Zeichen in beliebiger anzahl beim LIKE-Vergleich

next



if myWB is nothing then 'wenn for-each vollständig durchgelaufen ist, dann ist die Schleifenvariable nothing, bei Abbruch enthält sie das Element dass den Abbruch verursacht hat.

    Msgbox "keine Elba_umsätze geöffnet"

    Exit Sub

end if

Set mySheet = myWB.Sheets(1) 'CSV-Dateien haben nur ein Tabellenblatt

und hier dann weiter mit dem normalen Code

das ist auch deswegen ganz elegant, weil man kein On Error benötigt.

Wenn die CSV-Datei immer gleich benannt ist, dann würde ich sie auch auf einem zusätzlichen Tabellenblatt importieren
den import kann man so einstellen, dass er sich beim Öffnen automatisch aktualisert, oder auch auf anfrage.
das Makro müsste dann nur den Übertrag der Daten ausführen.
Gruß Daniel

Externen Tabellenblattname zu lang um zu Kopieren

Forumthread: Externen Tabellenblattname zu lang um zu Kopieren

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Externen Tabellenblattname zu lang um zu Kopieren

Forumthread: Externen Tabellenblattname zu lang um zu Kopieren

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread