Von externen Tab.Blatt kopieren
01.03.2007 08:26:50
Heinz
Der untere Code fügt mir vom TB."elbi_umsaetze" Werte per CommandButton1 in ein anderes TB.ein.
Funkt.auch super.
Es geht immer um ein Monatsblatt vom Telebanking.
Ich gebe bei dem Telebanking Pogramm "Elba" den Zeitraum von bis ein.Dann Daten als CSV eportieren.
Es wird mir ein TB.mit "elbi_umsaetze" erstellt.
Nur muss ich bei meinen Code das TB."elbi_umsaetze"erst in meine Arbeitsmappe kopieren,damit der Code läuft.
Gibt es eine Möglichkeit das die Werte auch in meine Arbeitsmappe eingefügt werden ohne vorher das TB "elbi_umsaetze" in meine Arbeitsmappe kopieren zu müssen.
Also von externen Tb."elbi_umsaetze" gleich kopieren.
Ich hoffe das ich mich verständlich ausgedrückt habe.
Könnte mir dabei Bitte die Änderung im Code bekannt geben.
M.f.G.
Heinz
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, "elbi_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