Code!

Sub AuslesenGeschlDatei() Dim rng As Range, _ sFile As String, sPath As String, _ oldStatusBar As Boolean Application.ScreenUpdating = False oldStatusBar = Application.DisplayStatusBar Application.DisplayStatusBar = True sFile = "Kasse.xls" sPath = ThisWorkbook.path & "\" Application.StatusBar = "Daten werden importiert. Bitte warten..." With Sheets("Tabelle1") .Range("D6:E17").Formula = "='" & sPath & "[" & sFile & _ "]Kontrolle'!D6:E17" Set rng = .Range("D6:E17") End With rng.Cells(1).Copy rng rng.Value = rng.Value Application.ScreenUpdating = True Application.StatusBar = False Application.DisplayStatusBar = oldStatusBar End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub AuslesenGeschlDatei() Dim sFile As String, sPath As String sFile = "Kasse.xls" sPath = ThisWorkbook.Path & "\" With Sheets("Tabelle1").Range("D6:E17") .Formula = "='" & sPath & "[" & sFile & "]Kontrolle'!I9" .Value = .Value End With End Sub

Hallo Reinhard,
ich bin über ein anderen Code von meinem Namensvetter Ramel gestolpert.
Code:

Public Function GetDataClosedWB(SourcePath As String, _
SourceFile As String, _
sourceSheet As String, _
SourceRange As String, _
TargetRange As Range) As Boolean
'Holt einen Bereich aus einer _geschlossenen_ Arbeitsmappe
'Nur in VBA zu verwenden; nicht aus einer Tabellenzelle heraus
'05.07.2011 - Anpassung für Apostroph im Dateinamen
'© t.ramel@mvps.org
Dim strQuelle                 As String
Dim Zeilen                    As Long
Dim Spalten                   As Byte
On Error GoTo InvalidInput
strQuelle = "'" & SourcePath & "[" & Replace(SourceFile, "'", "''") & "]" & _
sourceSheet & "'!" & _
Range(SourceRange).Cells(1, 1).Address(0, 0)
Zeilen = Range(SourceRange).Rows.Count
Spalten = Range(SourceRange).Columns.Count
With TargetRange.Cells(1, 1).Resize(Zeilen, Spalten)
.Formula = "=IF(" & strQuelle & "="""",""""," & strQuelle & ")"
.Value = .Value
End With
GetDataClosedWB = True
Exit Function
InvalidInput:
MsgBox "Die Quelldatei oder der Quellbereich ist ungültig!", _
vbExclamation, "Get data from closed Workbook"
GetDataClosedWB = False
End Function

Aufgerufen wird sie dann z.B. so:
Code:

Public Sub HoleDaten3()
Dim Pfad            As String
Dim Dateiname       As String
Dim Blatt           As String
Dim Zellen As String
Pfad = "D:\DeinPfad\"
Dateiname = "DeineDatei.xls"
Blatt = "DeinTabellenblatt"
Zellen = "B10" 'auch ein Bereich ist möglich: "B10:C20"
If GetDataClosedWB(Pfad, _
Dateiname, _
Blatt, _
Zellen, _
Worksheets("Tabelle1").Range("B10")) Then
MsgBox "Daten importiert"
End If
End Sub

Funktioniert prima und das Anpassen des Codes ist einfach gewesen.
Nun hätte ich da noch was und bevor ich da eine neue Frage auf mache stelle ich sie mal hier.
Ich Lade mir hin und wieder eine CSV Datei (Umsaetze_KontoNr_akuelles Datum) die ich aber nicht Speicher. Meine Frage dahin, kann man aus dieser Daten auslesen auch wenn sie nicht gespeichert wurde? Bisher hab ich mir die Zahlen und das Datum aus dieser Datei von Hand in eine andere Mappe übertragen.
Noch ne Frage, welche spuren hinterlässt die CSV Datei auf meinem Rechner wenn ich sie nicht Speicher?
Gruß Thomas aus Stuttgart

Hallo Forum,
Anbei eine Beispielsmappe zum besseren verständnis.
Tabelle1

	A	B	C	D	E	F	G	H	I	J
1	Tabelle1=Umsaetze_01234567_02.06.2012
2
3	Umsaetze_01234567_ ist fix ändert sich nur immer das Datum was dem Heute entspricht.
4
5
6
7
8
9
10
11
12
13	Buchungstag	Value	Auftraggeber	Empfänger	Text	Text	Text	Text	Umsätze
14	01.06.2012	01.06.2012	Text1	Text a					100	s
15	01.06.2012	01.06.2012	Text2	Text b					200	s
16	30.05.2012	30.05.2012	Text3	Text c					90	h
17	29.05.2012	29.05.2012	Text4	Text d					500	s
18	27.05.2012	27.05.2012	Text5	Text e					1500	h
19
20	Die Anzahl der Zeilen ist unterschiedlich dann kommt noch ein Text.
21	Die CSV Datei ist absteigend sortiert und soll wie in meiner Beispielsmappe in Tabelle Kasse eingetragen werden.
22	Was geprüft werden sollte, ist ob Datum,Empfänger und der Umsatz nicht schon in Tabelle Kosten vorhanden ist.
23
24

Kasse

	A	B	C	D	E	F	G	H	I
1	Firma	Kosten	Einnahmen	Ausgaben	Text	Text	Datum
2		Text e	1500				27.05.2012
3		Text d		500			29.05.2012		Aus dieser Datei sollen die aus der CSV Datei geholt werden.
4		Text c	90				30.05.2012
5		Text b		200			01.06.2012
6		Text a		100			01.06.2012
7
8
9

Tabellendarstellung in Foren Version 5.37

Hoffe das es klar ersichtlich ist wie ich das meine sofern es aus der offenen aber nicht gespeicherten CSV Datei möglich ist. Viellen dank schon mal.
Gruß Thomas aus Stuttgart

Beliebteste Forumthreads (12 Monate)

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread