Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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
Kommentar vom Moderator Biber am 07.04.2011 um 16:59:45 Uhr
Excel Makro Ünterstützung erbeten
Wo gibt es denn eine "Ünterstützung"?? In einem Deutsch-Türkischen Excel?
Süüss...

güle güle
Pul Biber
GELÖST

Excel Makro Ünterstützung erbeten

Frage Microsoft Microsoft Office

Mitglied: schuhmann

schuhmann (Level 1) - Jetzt verbinden

07.04.2011, aktualisiert 17:00 Uhr, 3843 Aufrufe, 2 Kommentare

Hallo,
ich versuche mich gerade an einem Excel Makro, was ich leider nicht ganz hinbekommen, da der Aufbau der Quelldatei nicht immer identisch ist.

Die Quelldatei hat folgenden Aufbau:

Schlagwort | Beschreibung1
TextA | TextB
TextC | TextD
TextE | TextF
Schlagwort | Beschreibung2
TextA | TextB
Schlagwort | Beschreibung3
......
Die einzelnen "Blöcke" fangen also immer mit dem selben Schlagwort an und hören mit ----------------------- auf.
Zwischen Start und Ende ist eine variable Anzahl Zeilen.
Diese Datei soll in folgendes Format überführt werden:

Schlagwort | Beschreibung1 | TextA | TextB | TextC | TextD | TextE | TextF | ------------------------------------------
Schlagwort | Beschreibung2 | TextA | TextB |------------------------------------------
Schlagwort | Beschreibung3 | ...... | ------------------------------------------

Mein Makro ist leider nur sehr einfach und ich komm mit der Variablen Anzahl an Zeilen nicht klar (mit Makrorekorder aufgezeichnet).

Sinngemäßer Ablauf:
In Zeile mit Schlagwort gehen, folgende Zeilen bis einschlielich ---------- anfügen und löschen.

Wäre echt klasse wenn mir da jemand helfen könnte.

Gruß, der Schuhmann
Mitglied: bastla
07.04.2011 um 16:52 Uhr
Hallo shuhmann!

Du musst die einzelnen eingelesenen Zeilen auf die entsprechenden Kriterien (Blockanfang, Blockende) hin untersuchen und entsprechend eine neue Ausgabezeile beginnen, fortsetzen oder in die Zieldatei schreiben:
01.
Ein = "D:\Textdatei.txt" 
02.
Aus = "D:\Textdatei-satzweise.txt" 
03.
 
04.
Anfang = "Schlagwort |" 
05.
Ende = "--------------" 
06.
 
07.
LAnfang = Len(Anfang) 'Längenermittlung nur einmal durchführen 
08.
LEnde = Len(Ende) 
09.
Set fso = CreateObject("Scripting.FileSystemObject") 
10.
Set DateiEin = fso.OpenTextFile(Ein) 
11.
Set DateiAus = fso.CreateTextFile(Aus) 
12.
 
13.
Do Until DateiEin.AtEndOfStream 
14.
    ZeileEin = DateiEin.ReadLine 
15.
    If Left(ZeileEin, LAnfang) = Anfang Then 
16.
        ZeileAus = ZeileEin 
17.
    ElseIf Left(ZeileEin, LEnde) = Ende Then 
18.
        ZeileAus = ZeileAus & " | " & ZeileEin 
19.
        DateiAus.WriteLine ZeileAus 
20.
    Else 
21.
        ZeileAus = ZeileAus & " | " & ZeileEin 
22.
    End If 
23.
Loop 
24.
 
25.
DateiAus.Close 
26.
DateiEin.Close
Grüße
bastla
Bitte warten ..
Mitglied: schuhmann
08.04.2011 um 09:25 Uhr
Vielen Dank Bastla,
das Makro läuft wirklich super.

@Biber
Oh, das ist mir wirklich nicht aufgefallen beim Schreiben. Es war auch keine Absicht, aber es ist lustig.

Gruß, der Schuhmann
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

Microsoft Office
gelöst Excel Makro zum Sortieren von Spalten an größeres Dokument Anpassen (2)

Frage von Rolfor zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

Heiß diskutierte Inhalte
Exchange Server
gelöst Email in Exchange an 2ten Empfänger senden (18)

Frage von MultiStorm zum Thema Exchange Server ...

Weiterbildung
Gehaltsvorstellungen (14)

Frage von SYS64738 zum Thema Weiterbildung ...

Windows Server
gelöst Microsoft-Lizenz CALs und passendes Server-Betriebssystem (13)

Frage von planetIT2016 zum Thema Windows Server ...

Verschlüsselung & Zertifikate
gelöst Festplattenverschlüsselung im Ausland (13)

Frage von Nicolaas zum Thema Verschlüsselung & Zertifikate ...