Dateinamen ergänzen!

Hallo zusammen,
habe mal wieder ein kleines Problem, das wie folgt aussieht!!!
Meine in Excel eingelesenen Filme (Dateinamen) möchte ich mit verschiedenen Informationen wie Filmlänge, Bild Höhe und Bildbreite ergänzen. Da ich das aber gerne mit VBA machen würde, stoße ich da wie üblich an meine Grenzen. Habe zwar alle Möglichkeiten schon ausprobiert, kam aber immer wieder ins Stocken beim Format der Filmlänge. Wie kann ich dieses Format mit dem Dateinamen verknüpfen, so, dass er mir z. B. den Namen nicht so anzeigt: "12345678910.mp4 / 9,43333333333333", sondern: "12345678910.mp4 / 90 Min. / Encoding Size (Bild Höhe & Bildbreite) = 720 x 1280. Da ja die TV Filme unterschiedliche Längen haben, wird die Länge je nach dem auf bzw. abgerundet. (10:35, = 11 Min. / 01:30 Std. = 90 Min.). Wenn ich die Daten mit einer Formel verknüpfe, klappt das einwandfrei (=C4 & " / " & TEXT(O4;"00") &" Min." & " / Encoding Size = " & L4 & " X " & M4). Nur mit VBA klappt das einfach nicht so, wie ich es gerne hätte. Ideal wäre für mich, wenn der ganze Vorgang automatisch per VBA realisiert werden könnte. Das heißt, die "Länge" von diesem Format "00:09:26" in das Format (10:35, = 11 Min. / 01:30 Std. = 90 Min.) umwandeln mit dementsprechendem Auf - bzw. Abrunden. Dann das Verketten der einzelnen Zellen wie oben als Formel dargestellt und das die neuen generierten "Namen" in ein neues TB übertragen werden.
https://www.herber.de/bbs/user/130323.xlsm
Vielen Dank schon mal im voraus.
Viele Grüße
Elfriede
https://www.herber.de/bbs/user/130323.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Schaltfläche1_Klicken() Dim strDateiname As String With Worksheets("Test") strDateiname = _ Range("C9") & " / " & Format(Range("K9") * 60 * 24, "00") & " Min." & " / " _ & " Encoding Size = " & Range("L9") & " x " & Range("M9") End With MsgBox strDateiname End Sub

Public Sub Dateiname_erstellen() Dim loLetzte As Long, i As Long, strDateiname As String Dim varArray() As Variant, loAnzahl As Long With Worksheets("Test") loAnzahl = _ .Range(.Cells(4, "B"), .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row, "B")).Rows.Count ReDim varArray(loAnzahl - 1) For i = 4 To .Cells(.Rows.Count, "B").End(xlUp).Row varArray(i - 4) = _ .Cells(i, "C") & " / " & Format(.Cells(i, "K") * 60 * 24, "00") & " Min." & " / " _ & " Encoding Size = " & .Cells(i, "L") & " x " & .Cells(i, "M") Next i End With 'Blattname ggf. anpassen With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row .Cells(loLetzte, "A").Resize(loAnzahl) = WorksheetFunction.Transpose(varArray) End With

Public Sub Dateiname_erstellen() Dim loLetzte As Long, i As Long, strDateiname As String Dim varArray() As Variant, loAnzahl As Long Dim avntName As Variant Dim strExtension As String, strTemp As String Dim ialngIndex As Long With Worksheets("Test") loAnzahl = .Range(.Cells(4, "B"), _ .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row, "B")).Rows.Count ReDim varArray(loAnzahl - 1) For i = 4 To .Cells(.Rows.Count, "B").End(xlUp).Row avntName = Split(.Cells(i, 3).Value, " ") strTemp = avntName(UBound(avntName)) strExtension = Mid$(strTemp, InStrRev(strTemp, ".")) strTemp = Left$(strTemp, Len(strTemp) - Len(strExtension)) avntName(UBound(avntName)) = strTemp For ialngIndex = LBound(avntName) To UBound(avntName) avntName(ialngIndex) = Application.Proper(avntName(ialngIndex)) Next .Cells(i, 3).Value = Join(avntName, " ") & strExtension varArray(i - 4) = _ .Cells(i, "C") & " / " & Format(.Cells(i, "K") * 60 * 24, "00") & " Min." & _ " / " & " Encoding Size = " & .Cells(i, "L") & " x " & .Cells(i, "M") Next i End With 'Blattname ggf. anpassen With Worksheets("Tabelle1") loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Row .Cells(loLetzte, "A").Resize(loAnzahl) = WorksheetFunction.Transpose(varArray) End With End Sub

Hallo Nepumuk,
schön dass Du dich hier eingebracht hast. Ich weiß zwar nicht warum Werner nicht weiter gemacht hat, aber das ist ja auch nicht so schlimm, weil Du ja auch immer hilfsbereit bist und gute Arbeit ablieferst. Wie auch jetzt wieder. Alles funktioniert wunderbar, bis auf einmal. Da hat er eine Fehlermeldung gebracht: "Laufzeitfehler 5, ungültiger Prozeduraufruf, oder ungültiges Argument". Das kam daher, weil ich die Dateinamen händisch ohne Dateiendung in die Tabelle kopiert hatte und das hat er nicht akzeptiert und deshalb hat er die Fehlermeldung gebracht. Kleiner Fehler, große Wirkung!!! Sobald die Dateinamen mit Dateiendung eingelesen werden, war wieder alles O.K.
Also, nochmals vielen Dank an Dich und Werner.
Viele Grüße von
Elfriede

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread