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, 3838 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 ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst Excel-Makro (7)

Frage von yuki13 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro : Erst prüfen bei erfolgreicher IF einen Wert überschreiben (4)

Frage von Matze1508 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel Makro - Button "Springe zu Zeile mit heutigem Datum" (5)

Frage von hannsgmaulwurf 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
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (33)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...