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, 4307 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
Batch & Shell
Batch Textdatei Spaltenweise auslesen
Frage von PinkFLuffyUnicornBatch & Shell7 Kommentare

hi, ist es irgendwie möglich anstatt eine Textdatei via Batch Spaltenweise auszulesen und nicht zeilenweise wie das normal ganz ...

Windows Tools

Excel - Import Daten mehrere Kriterien auf Kalenderwoche zuordnen

gelöst Frage von yuki13Windows Tools3 Kommentare

Hallo Zusammen! :) Ich bin ein Frischling auf diesem Forum und gleichfalls in der "Excel-Welt". Ich habe folgendes Problem: ...

Outlook & Mail

BCM auf System Standalone und Import von Exchange Daten

gelöst Frage von fireskyerOutlook & Mail7 Kommentare

OS: winxp sp3 Outlook 2010 Hallo miteinander. Ich will ein BCM für uns auf einem Testsystem einrichten und mit ...

Batch & Shell

Powershell - importierte CSV-Datei spaltenweise auslesen

gelöst Frage von KromifanBatch & Shell6 Kommentare

Hallo zusammen, bleibe mit meinem rudimentären Powershell-Erfahrungen an einem - wahrscheinlich kleinen - Problem hängen: In meiner CSV-Datei gibt ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 15 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 18 StundenAdministrator.de Feedback14 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...