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 Spaltenweiser Import von Daten

Mitglied: eu-admin

eu-admin (Level 1) - Jetzt verbinden

04.12.2006, aktualisiert 19:13 Uhr, 4359 Aufrufe, 5 Kommentare

txt-Datei soll in Excel importiert werden - Aber nicht Zeile in Zeile sondern Zeile in Spalte

Hallo,

ich habe eine txt-Datei, die ich in Excel importieren möchte. Dabei möchte ich aber den Inhalt der Zeilen nicht in Zeilen importieren, sondern in Spalten.

also soll das so aussehen

txt-Datei:

1;2;3;4;5|
a;b;c;d;e|

Excel:
1 a
2 b
3 c
4 d
5 e

Kann mir da jemand weiterhelfen?

Vielen Dank

Christian
Mitglied: 8644
04.12.2006 um 15:37 Uhr
Hi,

versuchs mal so:

Die Daten normal importieren, dann die ganze Tabelle markieren ([Strg] + [Shift] + [Ende]), dann in ein anderes Tabellenblatt wechseln, Menü Bearbeiten -> Inhalte einfügen -> Haken bei Transponieren setzen -> OK.

Psycho
Bitte warten ..
Mitglied: eu-admin
04.12.2006 um 16:14 Uhr
Moin Psycho,

Vielen Dank für die prompte Antwort.
Ich habe leider ein kleines aber wichtiges Detail vergessen.
Die Spalten reichen für den ersten Import nicht aus.
Hast du da eventuell auch eine Lösung.

Vielen Dank

Christian
Bitte warten ..
Mitglied: 8644
04.12.2006 um 16:32 Uhr
Du meinst, dass deine Textdatei mehr Spalten hat, als Excel zulässt?

Psycho
Bitte warten ..
Mitglied: Biber
04.12.2006 um 16:33 Uhr
Moin eu_admin,

von was für einem Datenvolumen reden wir denn?
Das einfachste, wenn kein zusätzlicher Zwischenschritt einer Konvertierung in eine andere Import_transformiert.csv stattfinden soll, einen Makro drüberlaufen zu lassen.

Gruß
Biber
Bitte warten ..
Mitglied: Biber
04.12.2006 um 19:13 Uhr
Moin eu_admin,

folgenden (ausreichenden) Schnipsel hab ich auf www.office-loesung.de gefunden.

Da sich der Autor sich offensichtlich mit Zeilen und Spalten vertan hat, passt das ohne Änderungen.
[Okay - den Delimiter auf ";" und eigentlich den Dateityp auf *.txt..aber das war's.]

01.
Option Explicit 
02.

03.
Sub Lesen() 
04.
   Dim FileName As Variant    ' der Dateiname oder FALSE 
05.
   Dim Handle As Integer      ' Dateinummer (FileHandle) 
06.
   Dim strOneLine As String   ' eine (lange) Zeile als String 
07.
   Dim arOneLine() As String  ' diese Zeile in (viele) Felder zerlegt 
08.
   Dim lngZeile As Long       ' Zeilenzähler 
09.
   Dim intSpalte As Integer   ' Spaltenzähler 
10.
    
11.
   FileName = Application.GetOpenFilename("CSV-Dateien,*.csv,Alle Dateien,*.*", , "Datei öffnen") 
12.
   If FileName = False Then Exit Sub 
13.
    
14.
   intSpalte = 1 
15.
   Handle = FreeFile 
16.
   Open FileName For Input As #Handle 
17.
   While Not EOF(Handle) 
18.
      Line Input #Handle, strOneLine 
19.
      arOneLine = Split(strOneLine, ";")   ' Delimiter changed to ";" from "|". Biber 
20.
      For lngZeile = 0 To UBound(arOneLine) - 1 
21.
         Cells(lngZeile + 1, intSpalte) = arOneLine(lngZeile) 
22.
      Next 
23.
      intSpalte = intSpalte + 1 
24.
      If intSpalte > Columns.Count Then 
25.
         Worksheets.Add after:=ActiveSheet 
26.
         intSpalte = 1 
27.
      End If 
28.
   Wend 
29.
   Close #Handle 
30.
End Sub 
HTH Biber
Bitte warten ..
Ähnliche Inhalte
Peripheriegeräte
Vorteile von E-Dat Patchfeldern
Frage von questioPeripheriegeräte10 Kommentare

Hallo, hat jemand von euch Erfahrung mit verschiedenen Arten Patchfeldern / Patchpannel unter anderem E-Dat Patchpannel? Welche Vor- und ...

Batch & Shell
PowerShell Import Text
gelöst Frage von derhoeppiBatch & Shell8 Kommentare

Hallo, ich habe mal eine Frage an die Profis. Ich erstelle gerade ein Script, welches den Arbeitsablauf beschleunigen und ...

Exchange Server
PST import unterbunden
gelöst Frage von Monto1Exchange Server9 Kommentare

Hallo zusammen, wenn ich mit Outlook 2016 auf mein Exchange 2016 Postfach zufreife (bekannter Weise über Active Sync), dann ...

Off Topic
Trinotar - LDAP Import
Frage von Xaero1982Off Topic3 Kommentare

Moin Zusammen, heute mal eine etwas sehr softwarebezogene Frage für Leute die Kanzleien betreuen. Wenn jemand Trinotar von Wolters ...

Neue Wissensbeiträge
Humor (lol)
Und wie seid Ihr gegen Cyberattacken gewappnet?
Information von DerWoWusste vor 1 TagHumor (lol)5 Kommentare

aber wo ist der Hammer? :-)

Sicherheit
Ein weiterer Microsoft-Stirnklatscher
Information von DerWoWusste vor 1 TagSicherheit7 Kommentare

Habe gerade einen Artikel zu einem Sicherheitsproblem gefunden, welches mir zu seiner Zeit (gepatcht 2015) wohl durchgerutscht ist. Es ...

Windows 10
Upgradepfade Windows 10 LTSC
Erfahrungsbericht von Datenreise vor 2 TagenWindows 10

Nur eine kurze Info, für diejenigen, die es interessiert, da es hierzu im Netz aus nachvollziehbaren Gründen nicht allzu ...

Administrator.de Feedback
Wartungsarbeiten heute Nacht (Update)
Information von Frank vor 2 TagenAdministrator.de Feedback10 Kommentare

Hallo User, durch Umbauarbeiten in unserem Rechenzentrum (am Backbone) kann es heute Nacht (14-15.01.2019) zu kurzen Ausfällen unserer Seite ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 - kein Boot mehr nach Domänenaustritt
gelöst Frage von Ghost108Windows 1025 Kommentare

Hallo zusammen, habe hier eine Windows 10 Maschine, die ich gerne aus der Domäne austreten lassen möchte. Nach Austritt ...

Microsoft
SFirm 4.0 auf Terminalserver startet für jeden angemeldeten Benutzer diverse Dienste
Frage von Frank84Microsoft24 Kommentare

Hallo zusammen, wir verwenden Sfirm 4.0 auf einem Terminalserver (der SQL Server ist auf einem separaten Server), das Problem ...

Internet
Google-Suchergebnisse, Schnelleinblendung, woher kommt der Inhalt?
gelöst Frage von departure69Internet17 Kommentare

Hallo. Ich bin der Systembetreuer einer kleinen Gemeinde in Süddeutschland. Wir betreiben auch eine Leihbücherei. Eine Kundin hat letzten ...

Windows Server
Frage bzgl. Windows Server Lizenzierung Hyper-V
gelöst Frage von g0drealmWindows Server15 Kommentare

Guten Morgen, da wir demnächst wegen unserem neuen ERP-System einen Hyper-V Server bekommen, wollte ich vorab noch eine Sache ...