Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
604to608
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
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Import aus Textdatei - Zu viele Spalten

Import aus Textdatei - Zu viele Spalten
02.05.2005 12:47:40
Johannes
Hallo liebe User,
ich möchte Daten aus einer CSV-Datei in Excel importieren. Da es sich jedoch um ca. 300 Spalten (und 5000 Zeilen) handelt, importiert Excel nur die ersten 255 Spalten.
Zwar kann ich über die Funktion "Textdatei importieren" einzelne Spalten "überspringen" und damit über eine 2. Tabelle die restlichen Spalten importieren. Da ich dies jedoch mit einigen Dateien so machen müsste, ist mir da zu aufwändig.
Kennt von Euch jemand eine schnellere Lösung?
Viele Grüße
Johannes
PS: Falls jemand weiß, wie es über Access funktioniert, bin ich auch über einen solchen Tipp dankbar.

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Tut mir leid - meine Lösung betrifft Zeilen
02.05.2005 13:04:20
=Peter=
Hallo Johannes,
tut mir leid, aber ich habe überlesen dass du zuwenig Spalten hast.
HTH
Gruß
Peter
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 13:13:40
MichaV
Hi,
so gehts mit zu viel Spalten:


      
Private Sub CommandButton1_Click()
Dim strDatei As String
Dim strZeile As String
Dim intZeile As Integer
Dim intSpalte As Integer
Dim strDaten
Dim strBlätter()
Dim i As Integer
Dim intIndex As Integer
strBlätter = Array("Tabelle1", "Tabelle2", "Tabelle3") 'Hier Deine Blattnamen
intZeile = 1 'ab Zeile 1 wird eingefügt
intSpalte = 1 'ab Spalte A wird eingefügt

strDatei = Application.GetOpenFilename
If strDatei = "" Or strDatei = "Falsch" Then Exit Sub
Open strDatei For Input As #1
While Not EOF(1)
  Line Input #1, strZeile
  strDaten = Split(strZeile, ";")
  For i = LBound(strDaten) To UBound(strDaten)
    intIndex = i \ 256 'Blattindex ermitteln
                       'Spalte 1..256 auf 1. Blatt
                       'Spalte 257...2x256 auf 2. Blatt usw.
    Sheets(strBlätter(intIndex)).Cells(intZeile, intSpalte - intIndex * 256).Value = strDaten(i)
    intSpalte = intSpalte + 1
  Next i
  intZeile = intZeile + 1
  intSpalte = 1
Wend
Close #1
End Sub 


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 14:19:07
Johannes
Hallo Micha,
leider habe ich keine VBA Kenntnisse. Hab zwar versucht, den Code einfach mal in den VBA Editor reinzukopieren. Damit komme ich aber nicht weiter.
Kannst Du mir kurz schreiben, wie ich das genau machen muss oder ist es ohne VBA-Kenntnisse einfach zu kompliziert?
Danke schon vorab.
Gruß
Johannes
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 14:43:00
MichaV
Hi,
so gehts am schnellsten:
Symbolleiste "Visual Basic" einblenden, Punkt "Befehlsschaltfläche" anklicken, im Tabellenblatt mit der linken Maustaste die Schaltfläche anlegen, danach mit der linken Maustaste doppelt raufklicken. Es öffnet sich der VB- Editor mit den Zeilen " 

Private Sub CommandButton1_Click()" und "End Sub
". Die löscht Du und fügst an deren Stelle den kompletten Code von mir in den Editor ein. Danach beendest Du den Entwurfsmodus mit Klick auf das entsprechende Symbol (kleines grünes Dreieck mit Stift und Lineal) und gehst mit Alt+F11 wieder zurück zu Excel.
Dann sollte es klappen.
Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 16:17:21
Johannes
Hallo Micha,
Danke für den Tipp.
Leider bleibt das Programm bei der Zeile
For i = LBound(strDaten) To UBound(strDaten)
hängen. Woran kann das liegen?
Gruß
Johannes
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 16:17:29
Johannes
Hallo Micha,
Danke für den Tipp.
Leider bleibt das Programm bei der Zeile
For i = LBound(strDaten) To UBound(strDaten)
hängen. Woran kann das liegen?
Gruß
Johannes
AW: Import aus Textdatei - Zu viele Spalten
02.05.2005 19:29:07
MichaV
Hi,
dafür hab ich erstmal keine Erklärung. Hab bei mir einige Fehlermöglichkeiten getestet, alles klappt. (Datei leer, keine CSV- Datei, Datei mit Leerzeilen, Datei mit unterschiedlicher Anzahl an Spalten)
Was sagt er denn, wenn er hängen bleibt? Es gibt ja immer eine Fehlermeldung. Hat er da schon was in die Tabelle geschrieben? Kannst Du vielleicht mal eine Beispiel- Import- Datei hochladen?
Gruß- Micha
Anzeige

270 Forumthreads zu ähnlichen Themen

Zelle nichtleer, dann Spalten ausblenden
kellerkind42

hallo.
Ich tue mich sehr schwer mit folgendem Wunsch:
Im Spaltenbereich A-Z:
Im Zeilenbereich 10 -20:
z.B:
Steht in Spalte C etwas in Zeile 10 oder 11 oder 12.... dann Blende diese Spalte aus!
Kann mir bitte jemand auf die Sprünge helfen?
Gruß Reinhardt.
20.08.2008 07:29:00
Thread-ID: 1003062
6 Beiträge
Anzeige
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Bei Eintrag in eine Zeile Spalten ein/ausblenden
Matthias

Guten Morgen,
ich bräuchte mal wieder Hilfe :/ Mein Excelhorizont ist stark begrenzt und habe ein für mich unlösbares Problem, da ich keinerlei VAB-Kenntnisse habe. Ich bräuchte eine Lösung für folgende Problemstellung.
Wenn im Feld A50 irgendetwas steht, dann sollen Zeile 22-24 eingeb...
09.10.2008 07:54:00
Thread-ID: 1015202
6 Beiträge
Anzeige
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Alle anderen Spalten ausblenden!
lisa

Hallo zusammen
Ich habe ein Macro aufgezeichnet, mit dem ich in der Tabelle 3 Spalte E filtere.
Ich suche nun eine möglichkeit alle anderen Spalten auszublenden!
Hat hierzu jemand eine Idee?
Private Sub CommandButton2_Click() Sheets("Tabelle3").Select Selection.AutoFilter Fie...
04.12.2008 17:16:32
Thread-ID: 1030239
20 Beiträge
spalten einzeln ausblenden
Christian

aloha!
spaltenbereiche ausblenden funktioniert ja so:
Columns("A:BC").Select
Selection.EntireColumn.Hidden = False
aber warum kann ich keine einzelne spalte ausblenden
z.b.: ich möchte "G" und "I" ausblenden, so dachte ich, folgendes wäre richtig:
Columns("G:G").Select
05.12.2008 13:39:56
Thread-ID: 1030438
7 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Zeilen Ein. und Ausblenden
KayR

Hallo,
würde gerne folgendes realisieren, hab aber von VBA
kaum Ahnung.
Wenn Tabelle2!A8 = FALSCH, dann sollen in Tabelle1 die
Zeilen 8,9,10 ausgeblendet werden.
Wenn Tabelle2!A8 = WAHR, dann sollen die Zeilen 8,9,10
wieder eingeblendet werden.
Kann mir jemand bitte...
27.01.2009 20:09:00
Thread-ID: 1044366
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
5
4
3
5
3
1
19
6
4
5
3
4
3
2
8
5
3
7
6
2
8
4
2
3
21