Formel in Zelle schreiben
02.10.2021 22:01:08
Heinz
ich brauche mal wieder etwas Hilfe,
hier ist mein Code
Private Sub CommandButton2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Tabelle1")
Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File
Set fo = fso.GetFolder(sh.Range("I1").Value)
Dim last_raw As Integer
For Each f In fo.Files
last_raw = sh.Range("A" & Application.Rows.Count).End(xlUp).Row + 1
sh.Range("A" & last_raw).Value = f.Name
Next
End Sub
Dieser Datei Name hat immer die Form
123456_Firmenname.pdf
Diese Formel in einer Zelle daneben macht daraus "Firmenname", also die Zeichen zwischen dem Unterstrich und dem Punkt
=TEIL(A2;FINDEN("_";A2)+1;FINDEN(".";A2)-(FINDEN("_";A2)+1))
Wie kann ich diese Formel mit in den Code einfügen so das er mir das Ergebnis in eine Zelle der gleichen Zeile schreibt?
(Vor dem "Next" denk ich mir)
für jede Hilfe bedanke ich mich schonmal im Voraus.
Gruß
Heinz