AW: Bereich als Textdatei speichern
Sepp
Hi Hendrik,
Das war wohl etwas falsch ausgedrückt, also noch einmal ich möchte den Inhalt eines Bereiches als Textdatei speichern oder anders damit wenn ich am Programm etwas ändere ich die eingetragenen Daten speichern, und nach dem ändern der Datei genauso wieder in die einzelnen Tabellenblätter zurückschreiben kann.Mit dem Code unten vom Excelforum habe ich es schon versucht das haut nicht hin.Tut mir leid wenn ich mich etwas ungschickt anstelle bin nicht ganz so fit in Excel.
Gruß Sepp
Sub namenspeichern()
Dim intRow As Integer, intColCount As Integer, intCol As Integer
Dim strTmp As String
Application.ScreenUpdating = False
Sheets("namen1").Visible = True
Sheets("namen1").Select
Call Passwortauf
intColCount = Range("A2").CurrentRegion.Columns.Count
intRow = 1
Open "Gruppe1.txt" For Output As #1
Do Until IsEmpty(Cells(intRow, 1))
strTmp = ""
For intCol = 1 To intColCount
If strTmp <> "" Then
strTmp = strTmp & "," & Cells(intRow, intCol)
Else
strTmp = Cells(intRow, intCol)
End If
Next intCol
Print #1, strTmp
intRow = intRow + 1
Loop
Close
Sheets("namen1").Visible = False
End Sub