Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Textdateien Importieren in Excel - erste Zeile weg lassen!

Mitglied: micha020983

micha020983 (Level 1) - Jetzt verbinden

25.02.2015, aktualisiert 17:22 Uhr, 716 Aufrufe, 4 Kommentare, 1 Danke

Hallo zusammen,

ich hab immer wiederkehrend mehrere Semikolongetrennte Textdateien, welche ich untereinander in Excel brauche!

Klappt hiermit schon ganz gut:


Sub CSV_Import()
Dim dateien, i, lastrow
lastrow = 1
dateien = Application.GetOpenFilename _
("txt-Dateien (*.txt), *.txt", 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


Danach wird noch bisl Text in Spalten und schön gemacht usw...

Allerdings hat jede Textdatei immer die selbe erste Zeile welche so aussieht:

AT-Nr.;MC 1;MC 2;Bezeichnung 1;Bezeichnung 2;Mengeneinheit;PGRP;Pool-AT-KZ;Sorti-Kz;AT-Nr. Bestand;AT-Nr.-Lieferant;Packinhalt 1;Packinhalt 2;AT-Nr. Verband;Metallgewicht;Metallstaffel;EAN-Nr;Sonst. Info;Sortimentsgruppe;Lief.Nr.Verband;RGI-AT;Bestandsbuchung E/S;EK-KGRP;Neuanlagedatum

Die ist immer gleich!
Wie kann ich das machen, das die nicht bei jeder Datei mit eingelesen wird? Also das eigentlich die Textdatei immer nur ab der zweiten Zeile eingelesen wird?? Geht das?

Vielen Dank schonmal ;)
Mitglied: micha020983
25.02.2015 um 16:49 Uhr
Muss dazu sagen das ich ne absolute Niete im VB bin

Kann ich das in mein Script einbauen oder soll ich lieber das aus dem Link nehmen und umbiegen?
So ganz Blick ich noch nicht durch
Bitte warten ..
Mitglied: 114757
LÖSUNG 25.02.2015, aktualisiert um 17:22 Uhr
Wenn du es wesentlich Performanter haben willst nehm das aus dem zweiten Link. Dort muss dann nur Zeile 45 geändert werden.

Wenn du dein Script unbedingt weiterverwenden willst, reicht das Ändern von dieser Zeile:
ActiveSheet.UsedRange.Offset(1,0).Copy Destination:=.Range("A" & lastrow)
Bitte warten ..
Mitglied: micha020983
25.02.2015 um 17:22 Uhr
Perfekt, danke euch!
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Abschnitte aus Textdatei in Excel importieren

Frage von Einstein77VB for Applications3 Kommentare

Hallo, Ich habe ein Problem wo ich mangels VBA kenntissen nicht weiter komme. Ich muß Email Daten auswerten. Aus ...

Ubuntu

Nach Zeilen aus der ersten Textdatei in der zweiten Textdatei suchen und diese dort entfernen

gelöst Frage von takitanoUbuntu3 Kommentare

Frohes Neues an alle! Ich habe 2 Textdateien. Die erste Textdatei beinhaltet Suchbegriffe, die ich in der zweiten Datei ...

Batch & Shell

Per Batch erste 15 Zeichen in jeder Zeile einer Textdatei lassen. Den Rest - löschen. Wie?

gelöst Frage von takitanoBatch & Shell9 Kommentare

Hallo an alle, ich habe folgendes Problem: in einer Texdatei habe ich ca. 60.000.000 Zeilen (453 MB) Jede Zeile ...

Batch & Shell

Erste Zeile einer Excel Datei vergleichen

gelöst Frage von Memo66Batch & Shell8 Kommentare

Hallo zusammen, ich habe folgendes Szenario. Ich bekomme täglich eine .csv Datei zugeschickt. In der Datei sind nun in ...

Neue Wissensbeiträge
CMS
Erneut kritische Zero-Day-Lücke in Drupal
Tipp von Reini82 vor 13 MinutenCMS

Laut einem Bericht auf t3n gibt es eine Schwere Sicherheitslücke in Drupal die auch schon ausgenutzt wird. Betroffen sind ...

Sicherheit

MikroTik-Router patchen, Schwachstelle wird ausgenutzt

Information von kgborn vor 20 StundenSicherheit

Am 23. April 2018 wurde von Mikrotik ein Security Advisory herausgegeben, welches auf eine Schwachstelle im RouterOS hinwies. Mikrotik ...

Windows 10

Microcode-Updates KB4090007, KB4091663, KB4091664, KB4091666 für Windows 10

Information von kgborn vor 1 TagWindows 101 Kommentar

Kurze Information für Administratoren von Windows 10-Systemen, die mit neueren Intel CPUs laufen. Microsoft hat zum 23. April 2018 ...

iOS
Updates für Iphone und Co
Information von sabines vor 1 TagiOS

Gestern abend ist iOS 11.3.1 erschienen, ein kleineres Update, dass einige Lücken schließt und "Lahmlegen" nach einem Display Tausch ...

Heiß diskutierte Inhalte
Batch & Shell
Powershell: Im AD nach Rechnern mit bestimmten IP-Adressen suchen
gelöst Frage von Raven42Batch & Shell36 Kommentare

Hallo zusammen, ich suche nach einer Möglichkeit nach Computern im AD zu suchen , deren IP-Adresse mit 10.11.12. beginnt. ...

C und C++
Frage1 C Programmierung-Makefile Frage2 PHP-Programmierung HTTP-Fehler 404
Frage von KatalinaC und C++34 Kommentare

Hallo, ich habe 2 Fragen, die nichts miteinander zu tun haben aber mit denen ich mich gerade beschäftige: 1. ...

Windows Server
Alten DC entfernen
Frage von smartinoWindows Server24 Kommentare

Hallo zusammen, ich habe hier eine Umgebung übernommen und erstmal einen DCDIAG gemacht. Dabei fällt auf, daß eine ganze ...

Ausbildung
Wie gelingt ein guter Einstieg in die FiSi-Ausbildung? (Umschulung)
Frage von SiAnKoAusbildung23 Kommentare

Schönen guten Tag, ich bin SiAnKo und habe seit dem 1.04.2018 eine Umschulung als FiSi angefangen. Ich möchte natürlich ...