Markierte Zellen über Makro in Datei übernehmen
25.02.2003 22:13:55
Diggerlars
ich habe in excel eine datenbank erstellt und möchte über
makros bestimmte abläufe ausführen. ich scheitere zur zeit
an einem schleifenablauf, welcher mir die markierten zellen
(1 pro zeile) der reihe nach in eine datei schreiben soll.
hier die entsprechenden zeilen als hilfestellung:
For intZeile = 2 To Selection.Row
'Wenn Titel vorhanden aber Pfadname ungültig, dann ....
If Not IsEmpty(ActiveSheet.Cells(intZeile, 2)) And Not FileExist(ActiveSheet.Cells(intZeile, 5)) Then
'Meldung ausgeben
MsgBox "Die M3U-Liste kann nicht erstellt werden. " & vbCr & "Prüfen Sie die ungültige Pfadangabe des" & vbCr & "Titels : " & ActiveSheet.Cells(intZeile, 1) & " - " & ActiveSheet.Cells(intZeile, 2), vbCritical, "Album exportieren"
'M3U-Datei schließen
Close #1
'M3U-Datei löschen
Kill vntDatei
'Fehlerhafte Pfadangabe rot markieren
ActiveSheet.Rows(intZeile).Font.ColorIndex = 3
Else
End If
'Wenn MP3-Datei existiert, dann...
If FileExist(ActiveSheet.Cells(intZeile, 5)) Then
'... Lauflänge in Sekunden berechnen
intSekunden = Hour(ActiveSheet.Cells(intZeile, 4)) * 3600 + Minute(ActiveSheet.Cells(intZeile, 4)) * 60 + Second(ActiveSheet.Cells(intZeile, 4))
'Wenn kein Interpret vorhanden, dann...
If IsEmpty(ActiveSheet.Cells(intZeile, 1)) Then
'... ExtendedInfo = Titel
strExtInfo = ActiveSheet.Cells(intZeile, 2)
'Ansonsten...
Else
'... ExtendedInfo = Interpret + " - " + Titel
strExtInfo = ActiveSheet.Cells(intZeile, 1) & " - " & ActiveSheet.Cells(intZeile, 2)
End If
'ExtendedInfo-Zeile schreiben
Print #1, "#EXTINF:" & CStr(intSekunden) & "," & strExtInfo
'Pfadname der MP3-Datei schreiben
Print #1, ActiveSheet.Cells(intZeile, 5)
End If
Next
bis jetzt wird immer nur die 1. markierte zelle entsprechend
in die datei geschrieben. wo liegt mein fehler ?????
danke für euere hilfe.