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, 3882 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
Microsoft Office
gelöst Excel 2010 Zellen mit bestimmten Inhalt mit Makro formartierten (5)

Frage von packmann2016 zum Thema Microsoft Office ...

VB for Applications
Excel Makro zum Suchen von Spalten und exportieren in CSV (3)

Frage von Raptox zum Thema VB for Applications ...

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

Frage von lupi1989 zum Thema VB for Applications ...

Neue Wissensbeiträge
Viren und Trojaner

Ransomware or Wiper? RedBoot Encrypts Files but also Modifies Partition Table

Information von BassFishFox zum Thema Viren und Trojaner ...

Notebook & Zubehör

WOL bei HP Notebooks

(6)

Erfahrungsbericht von Henere zum Thema Notebook & Zubehör ...

LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows 10
Netzwerkkarte schaltet sich erst nach dem Logon ein (23)

Frage von DerWoWusste zum Thema Windows 10 ...

Windows Server
Seit IP Umstellung DC DNS Fehler (18)

Frage von Yaimael zum Thema Windows Server ...

Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (16)

Frage von Spitzbube zum Thema Netzwerke ...

Weiterbildung
gelöst Fest angestellter Admin oder Systemhaus Admin mit Kundenbetreuung? (15)

Frage von Voiper zum Thema Weiterbildung ...