Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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

HILFE RUDI MAINTAIRE! Zellinhalt als Datei

HILFE RUDI MAINTAIRE! Zellinhalt als Datei
12.10.2012 12:41:25
Helmut
Hallo Rudi,
bitte nochmals deine Hilfe!
Ich habe ein Script, das aus einem Excel File die Zellen der ersten Spalte ausliest und als Textfile mit Endung DUM in den Ordner "Nummern" ablegt.
Funkt auch. Wie muss das Skript aussehen, wenn ich in dem Excel File auch in der 2. Spalte daneben Inhalt habe und ich diesen Inhalt mit Bindestrich getrennt dem Filenamen mitgeben will?
Also z.B. 234580088-00.DUM statt 234580088.DUM
234580088 steht in der ersten Spalte und 00 in der 2. Spalte.
Skript bisher sieht so aus:
Sub dumdatei()
Dim rngA As Range
For Each rngA In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
Open "D:\Nummern\" & "N_" & rngA.Text & "-" & rngB.Text & ".dum" For Output As #1
Close #1
Next
End Sub
Danke im Voraus!!
LG
Helmut

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

Betreff
Datum
Anwender
Anzeige
AW: HILFE RUDI MAINTAIRE! Zellinhalt als Datei
12.10.2012 12:55:52
Rudi
Hallo,
willst du nicht, dass dir auch andere antworten?
Sub dumdatei()
Dim rngA As Range, strName As String
For Each rngA In Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp))
strName = IIf(rngA.Offset(, 1) = "", rngA, rngA & "-" & rngA.Offset(, 1))
Open "D:\Nummern\" & "N_" & strName & ".dum" For Output As #1
Close #1
Next
End Sub

Gruß
Rudi

AW: HILFE RUDI MAINTAIRE! Zellinhalt als Datei
12.10.2012 13:00:12
Helmut
Hi Rudi,
ICH DANKE DIR!!!!
Ich muss noch dazu sagen, dass ich dadurch auch sehr viel lerne, denn ich verwende die Skripts dann nicht einfach ohne sie mir anzusehen und zu versuchen sie zu verstehen!
Und das klappt bei dem kleinen Skript hier gut!
LG
Helmut
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige