Option Explicit
Sub Test()
Dim Pfad As String
Dim Daten As New Collection
Dim Eintrag As Variant
Pfad = ThisWorkbook.Path
Call FileList(Daten, Pfad)
If Daten.Count = 0 Then
MsgBox ("In Ordner " & Pfad & " Nichts gefunden.")
Exit Sub
End If
For Each Eintrag In Daten
Debug.Print Pfadname_von(Eintrag) & amp; " " & amp; Dateiname_von(Eintrag)
Call Aufruf
Next Eintrag
End Sub
Sub TextzuZahl(R, X)
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim lngSpa As Long
Dim C As Range
Dim i As Long
lngSpa = Cells(2, Columns.Count).End(xlToLeft).Column
For Each C In R.UsedRange
If Not IsEmpty(C) And IsNumeric(C.Value) Then
C.Value = CDbl(C.Value)
End If
Next C
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub Aufruf()
Dim X As Workbook
Dim R As Worksheet
For Each R In ThisWorkbook.Sheets
Call TextzuZahl(R, X)
Next R
End Sub
Hallo,
ziel des Programmes war es eigentlich alle Excel Dateien in einem ordner zu öffnen und dort auf der UsedRange alle Textzeichen zu einer zahl zu formatieren. Für eine einzelne Tabelle hatte das super funktioniert.
wie funktioniert das ganze nun bei dem fall wenn man alle tabellen öffnet.
Das Problem liegt bei den for each schleifen.
ich glaube ich übergebe dort die falschen einheiten.
MFG
AMax