Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1172to1176
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelleninhalte als Dateien abspeichern

Zelleninhalte als Dateien abspeichern
Helmut
Liebe Forenuser,
ich habe folgende Aufgabe zu lösen. Kann mir hier bitte wer helfen:
Ich habe ein Excel-File. In diesem befinden sich eine Menge Daten. Interessant für mich sind die Daten in Spalte C; und zwar in Abhängigkeit der Spalte B und D.
Genau geht es darum:
Ich möchte alle Nummern Zeile für Zeile aus Spalte C „auslesen’’, die in Spalte B daneben nicht I stehen haben und daneben in Spalte D nichts steht!
Diese gefundenen Nummern im Excel-File sollen mit Dateiendung .log versehen werden und in einem Ordner D:\Nummern File für File abgespeichert werden. Diese Files sind einfach leer, haben eben nur den Namen der Nummer mit Endung .log!
Kleinigkeit am Rande: Das erste Zeichen der Nummern in Spalte C ist ein einfaches Hochkomma. Dieses soll weggelassen werden beim Abspeichern der Datei.
Die Anzahl der Zeilen mit Nummern im Excel-Sheet ist unbekannt, soll also vom ersten bis zum letzten Eintrag gehen.
https://www.herber.de/bbs/user/71103.xls
Bitte um eure Hilfe.
LG, Helmut

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelleninhalte als Dateien abspeichern
17.08.2010 14:31:03
Rudi
Hallo,
Sub prcLOG()
Dim rngC As Range
For Each rngC In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp))
If rngC.Offset(, -1)  "I" And rngC.Offset(, 1) = "" Then
Open "c:\test\" & rngC.Text & ".log" For Output As #1
Close #1
End If
Next
End Sub

Gruß
Rudi
AW: Zelleninhalte als Dateien abspeichern
17.08.2010 14:59:16
Helmut
Danke!!! Du bist genial!!
LG, Helmut
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige