Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
376to380
376to380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nur bestimmte Zeilen in XL importieren

nur bestimmte Zeilen in XL importieren
08.02.2004 17:55:08
Thomas
Hallo,
von einem Host erhalte ich eine Textdatei, welche ungefähr so aussieht:
https://www.herber.de/bbs/user/3505.txt
Ich möchte natürlich nur die Datensätze in Excel importieren, nicht die Kopf-, Fuß und Summenzeilen. Bisher habe ich ab der Spalte 6 mit fixer Spaltenbreite importiert und dann nach der KdNr. sortiert und den Rest gelöscht. An der Spalte 6 steht bei den Datensätzen immer eine Zahl von 0-9, steht dort etwas anderes soll die Zeile nicht importiert werden.
Wie kann ich dies erreichen?
Vielen Dank
Thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nur bestimmte Zeilen in XL importieren
08.02.2004 18:49:37
y
hi Thomas,
versuch das mal:

Sub einlesen()
Dim FF As Byte
Dim Reihe As Integer
Dim Test As String
FF = FreeFile
Reihe = 1
Open "c:\Temp\3505.txt" For Input As FF
Do While Not EOF(FF) = True
Line Input #1, Test
If IsNumeric(Left(Test, 10)) = True Then
Worksheets("Tabelle1").Cells(Reihe, 1) = Mid(Test, 6, 5)
Worksheets("Tabelle1").Cells(Reihe, 2) = Trim(Mid(Test, 21, 10))
Worksheets("Tabelle1").Cells(Reihe, 3) = Trim(Mid(Test, 21, 10))
Reihe = Reihe + 1
End If
Loop
Close FF
End Sub

du musst natürlich den pfad und namen deiner txt datei noch einpuzzeln
aber das dürfte ja nicht so schwer sein ;-) wenn doch melde dich nochmal mit genaueren angaben
cu Micha
Anzeige
AW: nur bestimmte Zeilen in XL importieren
08.02.2004 19:52:18
Thomas
Hallo Micha,
vielen vielen Dank. Habe das Makro bereits angepaßt; es funktioniert super.
Den Datentyp vom Betrag habe ich mit Val() geändert:
Worksheets("Tabelle1").Cells(Reihe, 2) = Val(Trim(Mid(Test, 11, 10)))
Danke nochmals :-)
... Thomas
danke für die rückmeldung :-) o.t.
08.02.2004 20:01:49
y
...

315 Forumthreads zu ähnlichen Themen

Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Anzeige
Nur bestimmte Zeilen kopieren
Swetlana

Hi liebe Excel-Profies,
kann mir bitte jemand helfen...
Mein folgender Code kopiert mir die kompletten Arbeitsmappen...
Ich würde es aber gerne so haben, dass er mir nur die Zeilen die "P64" enthalten kopiert und in die andere Datei überträgt.....
Was muss ich ändern?
Su...
01.06.2011 06:44:38
Thread-ID: 1216949
3 Beiträge
Erste Leere Zeile wird nicht erkannt
Matthias

Hallo,
ich bin schon wieder überfordert und brauche Rat.
in der ersten Zeile stehen die Spalten-Überschriften (mit oder ohne Autofilter versucht)
Dann soll mir das unten stehen Makro die darunter liegende leere Zeile finden und den Übertrag aus der Userform übertragen.
Und nu:<...
26.06.2011 12:39:42
Thread-ID: 1219738
5 Beiträge
Anzeige
Nur bestimmte Zeilen Kopieren in eine neue Tabelle
Frank

Hallo zusammen.
Ich würde gerne wissen inwiefern man das folgende evtl. lösen kann.
In Tabelle 1 stehen folgende Daten:
Name Wert1 Wert2
Thomas 150 2
Tina 250...
26.06.2013 12:47:02
Thread-ID: 1319825
5 Beiträge
Ausgabe einer Zahl nur in ganz bestimmten Zeilen
Christian

Hallo alle zusammen,
hoffe es hat jemand eine Lösung für mein Problem.
hänge eine Tabelle an, suche eine Formel, die in Spalte G eine 1 in die letzte Zeile schreibt, in der in Spalte D oder E eine 1 steht, eine 2 in die letzte Zeile, in der eine 2 steht, eine 3 in der letzten Zeile, in...
09.09.2013 14:38:55
Thread-ID: 1330027
4 Beiträge
In Listbox nur bestimmte Zeilen einlesen
Andreas

Hallo zusammen,
ich stehe mit dem gesamten Bereich der Listboxen extrem auf Kriegsfuss und bräuchte daher mal Eure Unterstützung.
Mit folgendem Code lese ich den Inhalt des Tabellenblattes "Artikel" in die ListBox1 ein :
Private Sub UserForm_Initialize() With Sheets("Artikel") ListB...
08.02.2014 22:28:51
Thread-ID: 1348719
19 Beiträge
Erste Zeile nicht mitkopieren
janesch

Hallo Excel-Freunde,
habe mir hier folgendes sehr nützliches VBA Code gefunden.
Private Sub Zusammenführen() Dim wksT As Worksheet Dim wksS As Worksheet Dim i As Integer Dim RowsT As Integer Application.ScreenUpdating = False Set wksT = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets....
19.02.2014 11:34:27
Thread-ID: 1350337
3 Beiträge
Nur bestimmte Zeilen einer Matrix in ein neues Tab
Axel

Hallo zusammen,
Basis ist eine Matrix, Spalten A:AA, die sich monatlich in der Zeilenanzahl verändert, wobei die Spaltenanzahl und -überschriften gleich bleiben.
In Spalte V stehen Euro-Beträge. Ich muss bestimmte Spalten in ein Buchungsformular übertragen, aber nur von den Datensätzen,...
08.05.2014 15:30:23
Thread-ID: 1360537
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
29
2
2
4
2
4
3
18
2
4
2
12
1
7
6
2
2
3
3
2
11
6
4
3
3