Kopieren von zweiter Arbeitsmappe

Private Sub CommandButton1_Click() Dim wksAkt As Worksheet, wksElbi As Worksheet Application.ScreenUpdating = False Set wksAkt = ActiveSheet For Each wksElbi In ActiveWorkbook.Worksheets If InStr(1, wksElbi.Name, "meinelba_umsaetze") > 0 Then wksAkt.Range("A4").Range("A1:D999").Value = wksElbi.Range("A1:D999").Value Application.DisplayAlerts = False wksElbi.Delete Application.DisplayAlerts = True End If Next Cells.WrapText = True Rows.EntireRow.AutoFit Cells.Select With Selection .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heinz,
du könntest die CSV mit den Auszugsdaten im Makro auswählen und öffnen.
Dann kann man die Daten direkt in direkt ins aktive Blatt übernehmen und anschließend die CSV-Datei wieder schließen.
LG
Franz

Private Sub CommandButton1_Click()
Dim wksAkt As Worksheet, wksElbi As Worksheet
Dim varElbi, wkbElbi As Workbook
varElbi = Application.GetOpenFilename(filefilter:="CSV-Dateien (*.csv),*csv", _
Title:="Bitte CSV mit Kontoauszüg öffnen")
If varElbi = False Then Exit Sub
Application.ScreenUpdating = False
Set wksAkt = ActiveSheet
Set wkbElbi = Application.Workbooks.Open(varElbi, ReadOnly:=True, Local:=True)
Set wksElbi = wkbElbi.Worksheets(1)
wksAkt.Range("A4").Range("A1:D999").Value = wksElbi.Range("A1:D999").Value
Application.DisplayAlerts = False
wkbElbi.Close savechanges:=False
Application.DisplayAlerts = True
With wksAkt
.Cells.WrapText = True
.Rows.EntireRow.AutoFit
With .Cells
.VerticalAlignment = xlCenter
.WrapText = True
.Orientation = 0
.AddIndent = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A1").Select
End With
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click() Dim wksAkt As Worksheet, wksElbi As Worksheet Dim varElbi, wkbElbi As Workbook Application.ScreenUpdating = False Set wksAkt = ActiveSheet For Each wkbElbi In Application.Workbooks If Right(LCase(wkbElbi.Name), 4) = ".csv" Then Set wksElbi = wkbElbi.Worksheets(1) Exit For End If Next If wksElbi Is Nothing Then MsgBox "Es ist keine CSV-Datei geöfnet" Exit Sub End If wksAkt.Range("A4").Range("A1:D999").Value = wksElbi.Range("A1:D999").Value Application.DisplayAlerts = False wkbElbi.Close savechanges:=False 'zeile löschen, wenn CSV-Datei nicht geschlossen werden _ soll Application.DisplayAlerts = True With wksAkt .Cells.WrapText = True .Rows.EntireRow.AutoFit With .Cells .VerticalAlignment = xlCenter .WrapText = True .Orientation = 0 .AddIndent = False .ReadingOrder = xlContext .MergeCells = False End With Range("A1").Select End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Kopieren von zweiter Arbeitsmappe

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Kopieren von zweiter Arbeitsmappe

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread