Externes Tabellenblatt einlesen Kopieren uns schließen

Forumthread: Externes Tabellenblatt einlesen Kopieren uns schließen

04.10.2024 11:48:16

Heinz H

Hallo Leute

Ich muss jedes Monat von meinem Bankkonto die Bewegungen in meine Exceltabelle eintragen.
Habe auch den unten stehenden Code, der sehr gut funktioniert.

Nur muss ich das extern gedownloadete Tabellenblatt das immer den Namen "AT123456789" hat
in meine Arbeitsmappe kopieren, dann die Daten über eine Schaltfläche kopieren, und anschließend wird das TabBlatt " AT123456789" gelöscht.

Einfacher wäre es wenn ich die Daten gleich von dem externen TabBlatt die Werte einlesen könnte, und dann das TabBlatt schließen.
Also ohne vorher das TabBlatt zu kopieren.

Könnte mir dazu bitte jemand helfen ?

Danke

SG, Heinz

Sub Jänner_einfuegen()



    Dim mySheet As Worksheet



Sheets("Jän").Unprotect

    

    Application.DisplayAlerts = False

    On Error Resume Next

    Set mySheet = Sheets("AT123456789")

    On Error GoTo 0

    

    If Not mySheet Is Nothing Then



Else

MsgBox "Datenblatt AT123456789 nicht vorhanden!"

Exit Sub



End If



Sheets("AT123456789").Range("A1:D190").Copy

Sheets("CSV").Range("A1:D190").PasteSpecial Paste:=xlValues



Sheets("CSV").Unprotect

Sheets("CSV").Range("A1:D190").PasteSpecial Paste:=xlValues



Worksheets("CSV").Range("A1:A190").Copy ' Datum

Sheets("Jän").Range("B10").PasteSpecial Paste:=xlValues



Worksheets("CSV").Range("B1:B190").Copy ' Buchungstext

Sheets("Jän").Range("C10").PasteSpecial Paste:=xlValues



Worksheets("CSV").Range("J1:J190").Copy ' Ausgaben

Sheets("Jän").Range("E10").PasteSpecial Paste:=xlValues



Worksheets("CSV").Range("I1:I190").Copy ' Einnahmen

Sheets("Jän").Range("F10").PasteSpecial Paste:=xlValues



Application.CutCopyMode = False 'Zwischenspeicher löschen

Worksheets("CSV").Range("A1:D190").Clear



Sheets("Jän").Protect



Sheets("Jän").Activate



Worksheets("AT123456789").Delete





Application.DisplayAlerts = True

End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Externes Tabellenblatt einlesen Kopieren uns schließen

04.10.2024 12:31:52

Eifeljoi 5

Hallo

Nur als Tipp:
In deiner Excel Version benötigt man kein VBA mehr da reicht Power Query.

AW: Externes Tabellenblatt einlesen Kopieren uns schließen

05.10.2024 14:50:52

Piet

Hallo

dazu gibt es einen passenden Code, der bei mir auch funktioniert. In Const gehört dein Ordner Pfad!
Ich habe ihn auf InputBox umgestellt, damit kannst du alle 12 Monate als Ziel Tabelle auswählen.

mfg Piet



Const Pfad = "E:\Forum Herber Sep 2024\Anfrage Offen"



Sub Jänner_einfuegen()

Dim WbExt As Workbook

Dim mySht As Worksheet

Dim Ziel As String   'InputBox für Monate

If Workbooks.Count = 1 Then MsgBox "Die CSV Datei ist nicht geöffnet!": Exit Sub



'csv Dateiname in WbEx laden

If Workbooks(2).Name > ThisWorkbook.Name Then _

Set WbExt = Workbooks(2) Else Set WbExt = Workbooks(1)

Set mySht = WbExt.Worksheets("AT123456789")

If mySht Is Nothing Then MsgBox "Datenblatt AT123456789 nicht vorhanden!": Exit Sub



With ThisWorkbook

     Ziel = InputBox("Bitte Monat eingeben", , "Jän")

     If Ziel = Empty Then MsgBox "Keine Monatseingabe": Exit Sub



     On Error GoTo Fehler

     .Sheets(Ziel).Unprotect



     mySht.Range("A1:D190").Copy

     .Sheets(Ziel).Range("B10").PasteSpecial Paste:=xlValues



     mySht.Range("B1:B190").Copy ' Buchungstext

     .Sheets(Ziel).Range("C10").PasteSpecial Paste:=xlValues



     mySht.Range("J1:J190").Copy ' Ausgaben

     .Sheets(Ziel).Range("E10").PasteSpecial Paste:=xlValues



     mySht.Range("I1:I190").Copy ' Einnahmen

     .Sheets(Ziel).Range("F10").PasteSpecial Paste:=xlValues



     Application.CutCopyMode = False 'Zwischenspeicher löschen

     WbExt.Close savechanges = False

     

     .Sheets(Ziel).Protect

     .Sheets(Ziel).Activate

End With

Exit Sub

Fehler:   MsgBox Ziel & " - unerwarteter Fehler" & vbLf & Error()

End Sub

AW: Externes Tabellenblatt einlesen Kopieren uns schließen

05.10.2024 14:53:12

Piet

Nachtrag: die CSV Datei muss geöffnet sein, ich öffne sie nicht!
Sollte aber kein Problem sein das selbst einzubauen, wenn du es willst.

AW: Externes Tabellenblatt einlesen Kopieren uns schließen

05.10.2024 10:53:18

Heinz H

Hallo Eifeljoi 5

Erstmals Danke mit deinem Tip für Power Query

Bin noch von der alten Garde, habe mit Power Query noch nie etwas am Hut gehabt.
Werde mich in den nächsten Tagen einmal damit befassen.

Nur wäre mir jetzt ein VBA Code doch noch lieber.

Danke
LG, Heinz

Beliebteste Forumthreads (12 Monate)

Externes Tabellenblatt einlesen Kopieren uns schließen

Forumthread: Externes Tabellenblatt einlesen Kopieren uns schließen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread