zu diesem Code
Dim anzahl As Integer
'gewünscht wird anzahl
anzahl = Dateianzahl.Count ?????????? :-)
Frage also ich möchte das aus der Variable anzahl die als Integer Definiert wurde herrausfinden wie diese als Inhalt mir eine Zahl Liefert. Es ist so das der Inhalt dynamisch eingeladen wird. Und das ich keine ausgabe habe wieviel hat er denn nun eingeladen. Kann jemand helfen???
Der volle Code
Sub BrBlDaten_einfügen(Nummer)
' Dim Dateiname As String
Dim ArbeitsMappeName As String
Dim ArbeitsblattName As String
Dim text1 As String, Zahl1
Dim Text2 As String
Dim i As Integer
Dim anzahl As Integer
Dim Datenverzeichnis As String
Dim Bremsblattnummer As Integer
Dim Messpunktzahl As Integer
Dim StartSpalte As Integer
Dim Spalte As Variant
Dim Startzeile As Integer
Dim Dateiname As Variant
ArbeitsMappeName = ActiveWorkbook.Name
If Left(ArbeitsMappeName, 13) = "Übersicht VD " Then
ArbeitsblattName = ActiveSheet.Name
Startzeile = startzeile_berechnen()
Application.ScreenUpdating = False
Application.Calculation = xlManual
'Einlesen der Dateien
Dateiname = Application.GetOpenFilename(FileFilter:="Alle Dateien (*.*), *.*", _
Title:="BRBL. auswählen", MultiSelect:=True)
'anzahl = Dateianzahl(Dateiname)
'gewünscht wird anzahl
anzahl = Dateianzahl.Count ?????????? :-)