AW: VBA:Zellen (Werte) kopieren ohne Datei zu öffn
22.12.2005 04:17:56
Atti
Hallo. Ich habe nicht verstanden, wieso ich bei deinem Programm ständig Probleme mit den Formatierungen hatte. Ich habe bedingte Formatierungen mit drin. Vielleicht war dies der Grund, wieso das Kopieren nicht ganz geklappt hat.
Deswegen habe ich versucht dein Programm umzustricken und es funtioniert jetzt, glaube ich. Hier das Programm, und vielen Dank für deine Hilfe!!!
Beschäftige mich jetzt mittlerweile seit 2Monaten damit, aber immer nur stückchenweise und bin noch hinzukommend in Singapur ...
Alles etwas stressig. Wenn ich die Dateien mit den bedingten Formatierung und einer Beschreibung des Programms Posten soll, sag bescheid, denn die Mühe die du gegeben hast, kann ich ja auch zurückgeben.
Gruß
Atti
----------------------------------------------------------------------------------------------------------
Option Explicit
Sub AuslesenGeschlDatei()
Dim rng As Range, sFile As String, sPath As String, oldStatusBar As Boolean
Dim zei As Long
Application.ScreenUpdating = False
oldStatusBar = Application.DisplayStatusBar
Application.DisplayStatusBar = True
sFile = "Quelle.xls"
sPath = ThisWorkbook.Path & "\"
Application.StatusBar = "Daten werden importiert. Bitte warten..."
With Sheets(1)
.Range("E1").Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!E1" 'zei=A1
zei = Range("E1").Value
'Kopieren der Datein ("A1:A" &zei) SpalteA!
.Range(Cells(2, 1), Cells(zei, 1)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:D" & zei
'Kopieren der SpalteB!
.Range(Cells(2, 2), Cells(zei, 2)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:D" & zei
'Kopieren der SpalteC!
.Range(Cells(2, 3), Cells(zei, 3)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:D" & zei
'Kopieren der SpalteD!
.Range(Cells(2, 4), Cells(zei, 4)).Formula = "='" & sPath & "[" & sFile & "]Tabelle1'!A1:D" & zei
End With
Application.ScreenUpdating = True
Application.StatusBar = False
Application.DisplayStatusBar = oldStatusBar
End Sub
----------------------------------------------------------------------------------------------------------