das ist das problem...

Private Type TagInfo

Tag As String * 3

Title As String * 30

Interpret As String * 30

Album As String * 30

Jahr As String * 4

Kommentar As String * 30

End Type

Sub TagInfoLesen()

Dim CurrrentTag As TagInfo

Dim strDateiname As String

Dim intDateiNR As Integer

Dim rg As Range

Dim strPfad As String

Dim i As Long

On Error Resume Next

strPfad = "F:\New Musik"

ActiveSheer.Rangge("A1").Formula = "Inhalt des Ordners: " & strPfad

Set rg = ActiceSheet.Range("A2")

rg.Offset(0, 0).Formula = "Inerpret"

rg.Offset(0, 1).Formula = "Titel"

rg.Offset(0, 2).Formula = "Album"

rg.Offset(0, 3).Formula = "Kommentar"

rg.Offset(0, 4).Formula = "Dateiname"

intDateiNR = FreeFile

strDateiname = Dir(strPfad & "*.mp3")

i = 1

Do While strDateiname <> ""

Open strPfad & strDateiname For Binary As #intDateiNR

With CurrentTag

Get #intDateiNR, FileLen(strPfad & strDateiname) - 127, .Tag

If Not .Tag = "Tag" Then

Close #intDateiNR

GoTo Weiter

End If

Get #intDateiNR, , .Title

Get #intDateiNR, , .Interpret

Get #intDateiNR, , .Album

Get #intDateiNR, , .Jahr

Get #intDateiNR, , .Kommentar

Close #intDateiNR

rg.Offset(i, 0).Formula = EintragTrimmen(.Interpret)

rg.Offset(i, 1).Formula = EintragTrimmen(.Titel)

rg.Offset(i, 2).Formula = EintragTrimmen(.Album)

rg.Offset(i, 3).Formula = EintragTrimmen(.Jahr)

rg.Offset(i, 4).Formula = EintragTrimmen(.Kommentar)

Weiter:

rg.Offset(i, 5).Formula = strDateiname

i = i + 1

End With

strDateiname = Dir

Loop

End Sub

Function EintragTrimmen(Eintrag) As String

Dim j As Integer

Dim strChar As String

j = InStr(Eintrag, vbNullChar)

If j > 0 Then

Eintrag = Left(Eintrag, j - 1)

End If

EntragTrimmen = RTrim(Eintrag)

End Function

kann mir einer sagen was ich falsch gemacht habe?

Du musst schon ein bischen deutlicher werden, ich glaube, es versteht keiner, was du eigentlich willst.

Poste bitte noch folgende Informationen :

• Welche Excel-Version ?
  
• Was willst du tun ?
  
• Wo treten die Probleme auf ?