Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro speichert nicht mehr ab

Makro speichert nicht mehr ab
28.10.2007 10:33:51
andre
Hallo, ich habe folgende Zeilen so zusammengefügt. Im alten Makro hat alles funktioniert nun gibt es keine Datei mehr aus.
Hat jemand eine Idee woran es liegen könnte ?
Gruß
Andre
bis zu dieser Stelle funktioniert es

Dim Bereich          As Object
Dim ZZeile            As Object
Dim Zelle              As Object
Dim strTemp         As String
Dim intNumber       As Integer
Const Dateiname      As String = "Datei"
Const Extension        As String = ".txt"
Const Trennzeichen  As String = ";"
Const Kapselzeichen As String = ""
Set Bereich = ActiveSheet.UsedRange
Open myPath & Dateiname & "1" & Extension For Output As #1
Print #1, ""
For Each ZZeile In Bereich.Rows
intNumber = intNumber + 1
For Each Zelle In ZZeile.Cells
If InStr(1, Zelle.Text, Trennzeichen) > 0 Then
strTemp = strTemp & Kapselzeichen & CStr(Zelle.Text) & _
Kapselzeichen & Trennzeichen
Else
strTemp = strTemp & CStr(Zelle.Text) & Trennzeichen
End If
Next
strTemp = Left(strTemp, Len(strTemp) - 1)
Print #1, strTemp
strTemp = ""
If intNumber / 3000 = Int(intNumber / 3000) Then
Print #1, ""
Close #1
Open myPath & Dateiname & intNumber / 3000 + 1 & Extension For Output As #1
Print #1, ""
End If
Next
Print #1, ""
Close #1
Set objWS = Nothing
Set objAUSGABE = Nothing
Set rng = Nothing
End Sub
Sub Check_All()
If Range("L1").Value = True Then
Range("L1:L15").Value = False
Else
Range("L1:L15").Value = True
End If
End Sub
Private Function fncBrowseForFolder(Optional ByVal defaultPath = "") As String
Dim objFlderItem As Object, objShell As Object, objFlder As Object
Set objShell = CreateObject("Shell.Application")
Set objFlder = objShell.BrowseForFolder(0&, "Ordner auswählen...", 0&, defaultPath)
If objFlder Is Nothing Then GoTo ErrExit
Set objFlderItem = objFlder.Self
fncBrowseForFolder = objFlderItem.Path
ErrExit:
Set objShell = Nothing
Set objFlder = Nothing
Set objFlderItem = Nothing
End Function


3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro speichert nicht mehr ab
28.10.2007 10:41:52
Ramses
Hallo
Zeig mal deine alten Makros und sag was du machen willst.
Das ist wohl einfacher als sich in dem Zusammenbau zurechtzufinden.
Gruss Rainer

AW: Makro speichert nicht mehr ab
28.10.2007 11:03:46
andre
Hallo,
Bin durch Zufall eben selber drauf gekommen, war eine frage der anordnung :)
Problem gelöst

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige