Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abänderung Makro CSV-Import
zurück: Makro während einer Eingabe in einer Zelle starten weiter: Sverweis mit vba Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
phbothe
Gast


Verfasst am:
08. Jul 2010, 10:20
Rufname:

Abänderung Makro CSV-Import - Abänderung Makro CSV-Import

Nach oben
       Version: Office 2003

Hallo liebe Gemeinde!

Habe folgendes Problem:

Dieses Makro hatte ich hier mal vor geraumer Zeit gefunden:

Code:
Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
For i = 1 To UBound(dateien)
Workbooks.Open dateien(i), local:=True
With ThisWorkbook.Sheets(1)
ActiveSheet.UsedRange.Copy Destination:=.Range("A" & lastrow)
lastrow = .UsedRange.Rows.Count + 1
End With
ActiveWorkbook.Close False
Next i
End If
End Sub


Damals war das genau was ich brauchte, momentan habe ich das Problem, dass ich einige hundert .csv Dateien habe, aus denen ich genau 3 Zellen in eine .xls Datei kopieren möchte. Idealerweise in eine 3 Spaltenmatrix.

Es handelt sich um einen Teil des in Zelle GT15 befindlichen Textes (=Teil(GT15;2;5)) und der Zelle DW3 sowie DX3. Anordnung in Excel Datei: TeilGT15;DW3;DX3
Und die 3 Zellen aus der nächste Datei dann halt einer Zeile tiefer.

Hoffe ihr könnt mir hier weiterhelfen, habe mit dem Kopieren per Makro große Probleme.. Crying or Very sad
Nicolaus
Hobby-VBAler


Verfasst am:
08. Jul 2010, 14:32
Rufname: Nic
Wohnort: Rhein Main Gebiet

AW: Abänderung Makro CSV-Import - AW: Abänderung Makro CSV-Import

Nach oben
       Version: Office 2003

Hi,

meinst du das so ?
Code:
Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("csv-Dateien (*.csv), *.csv", MultiSelect:=True)
If IsArray(dateien) Then
    For i = 1 To UBound(dateien)
        Workbooks.Open dateien(i), local:=True
        With ThisWorkbook.Sheets(1)
            .Range("A" & lastrow) = Mid(ActiveSheet.Range("GT15").Text, 2, 5)
            .Range("B" & lastrow) = ActiveSheet.Range("DW3")
            .Range("C" & lastrow) = ActiveSheet.Range("DX3")
            lastrow = .UsedRange.Rows.Count + 1
        End With
        ActiveWorkbook.Close False
    Next i
End If
End Sub
Gruss
Nic

_________________
die Forenhelfer freuen sich über eine Antwort
Gast



Verfasst am:
08. Jul 2010, 17:50
Rufname:


AW: Abänderung Makro CSV-Import - AW: Abänderung Makro CSV-Import

Nach oben
       Version: Office 2003

Funktioniert wunderbar! Vielen Dank! Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Per Makro Datum in die Zelle kopieren 4 Gast 7350 02. Feb 2008, 12:56
Trustchen Per Makro Datum in die Zelle kopieren
Keine neuen Beiträge Excel Formeln: 2 Texte in eine Zelle per Makro ?! 4 ANNAN 683 26. Okt 2007, 23:47
ANNAN 2 Texte in eine Zelle per Makro ?!
Keine neuen Beiträge Excel Formeln: Makro mit Formel 1 didimaus 467 18. Okt 2007, 12:17
fridgenep Makro mit Formel
Keine neuen Beiträge Excel Formeln: Excel Makro - Summe bilden bei gleichen Suchkriterien 1 Peter1983 3827 26. Sep 2007, 09:39
Alto Excel Makro - Summe bilden bei gleichen Suchkriterien
Keine neuen Beiträge Excel Formeln: automatisches makro 5 sisku46 1297 08. Aug 2007, 09:12
sisku46 automatisches makro
Keine neuen Beiträge Excel Formeln: Brauche Hilfe! Formel und/oder VBA (Makro) 2 ::Patrick:: 2927 01. Aug 2007, 10:42
Gast Brauche Hilfe! Formel und/oder VBA (Makro)
Keine neuen Beiträge Excel Formeln: MsgBox if then programmieren das start Makro bei Yes 0 Klaususv 2591 18. Jul 2007, 12:21
Klaususv MsgBox if then programmieren das start Makro bei Yes
Keine neuen Beiträge Excel Formeln: Namenfeld der Zelle mittels Formel oder Makro benennen 2 cehrat 1181 24. Mai 2007, 16:55
fridgenep Namenfeld der Zelle mittels Formel oder Makro benennen
Keine neuen Beiträge Excel Formeln: Excel: Verketten Wenn (Makro?) 11 Sarah1981 4108 08. Feb 2007, 10:59
Gast Excel: Verketten Wenn (Makro?)
Keine neuen Beiträge Excel Formeln: Lese- und Schreibschutz über Makro 0 steven143 876 18. Dez 2006, 13:52
steven143 Lese- und Schreibschutz über Makro
Keine neuen Beiträge Excel Formeln: End up, Markieren, Löschen mit Makro 10 detlef42 1290 21. Nov 2006, 16:13
Detlef 42 End up, Markieren, Löschen mit Makro
Keine neuen Beiträge Excel Formeln: Makro mit Selection.AutoFill 2 GastAlex 3911 18. Okt 2006, 15:25
GastAlex Makro mit Selection.AutoFill
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP JavaScript