Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
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, 3893 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
Excel Makro zum Kopieren von Daten aus Mappe1 in Mappe2 (3)

Frage von Alex993 zum Thema Microsoft Office ...

VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Neue Wissensbeiträge
Multimedia

Raspberry Pi als Digital-Signage-Computer

(1)

Information von BassFishFox zum Thema Multimedia ...

Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(15)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (26)

Frage von jensgebken zum Thema Windows Server ...

Router & Routing
Freigabe aus anderem Netz nicht erreichbar (21)

Frage von McLion zum Thema Router & Routing ...

Batch & Shell
Batch Programm verhalten bei shoutdown -p (19)

Frage von Michael-ITler zum Thema Batch & Shell ...

Visual Studio
Vb.net-Tool zum Erzeugen einer Outlook-E-Mail (18)

Frage von ahstax zum Thema Visual Studio ...