Supportnet / Forum / Tabellenkalkulation
Steuerelement Textfeld in tabelle; Wie? Skript von MIXMAX
Frage
Hallo Forum,
ich versuche ein Steuerelemet Textfeld in ein Tabellenfeld einzufügen. Leider läßt sich in der Symbolleiste das Icon Textfeld nicht anklicken (ist grau unterlegt).
Frage: Wie läßt sich dies bewerkstelligen?
PS.: Ich habe bereits eine Befehlsschaltfläche eingefügt und möchte den Namen dieser Schaltfläche ändern (nicht die Beschriftung). über rechte Maustaste-->Steuerelement formatieren kann ich lediglich das Erscheinungsbild ändern
Hintergrund: Ich versuche ein VBA Skript von MIXMax umzusetzen. Beitrag vom September 2001 wie folgt:
MixMax schrieb:
wie wäre ne komplettlösung (gerade aus meiner Schmiede, 100% eigener
Quellcode, ein wenig in der Hilfe gestöbert für den Befehlssyntax)
man benötigt : ein Textfeld mit dem Namen "Ordner" einen Button mit dem
Namen "Auflisten"
die beiden Positioniert man nebeneinander in die ersten beiden Zeilen,
Wie mache ich dies???
_________________________________________________________
ab Zeile
3 wird dann eine Tabelle erstellt. Die beinhaltet Name, Größe, Erstellungsdatum,
Letzte änderung, Letzter Lesezugriff, Ort
als letztes steht unter der letzten datei bei Größe die gerundete Gesamtgröße.
! bei meinem 800er rechner brauchte ich für das auflisten von 23000 Dateien
etwa 2 minuten ! also nicht gleich den Affengriff machen, einfach laufen lassen.
Quellcode (beachte den Namen des Buttons):
Private Sub Auflisten_Click()
Range("A3").Value = "Name"
Range("B3").Value = "Größe"
Range("C3").Value = "Erstellt"
Range("D3").Value = "Geändert"
Range("E3").Value = "Gelesen"
Range("F3").Value = "Ort"
x = 3
ges = 0
Call ListFolder(x, Ordner.Text, ges)
Call ListFolders(x, Ordner.Text, ges)
End Sub
Sub ListFolder(x, y, ges)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(y) Then
Set f = fs.Getfolder(y)
Set fc = f.Files
On Error Resume Next
For Each f1 In fc
x = x + 1
Range("A" & x).Value = f1.Name
Range("B" & x).Value = f1.Size
ges = ges + f1.Size
Range("C" & x).Value = f1.DateCreated
Range("D" & x).Value = f1.DateLastModified
Range("E" & x).Value = f1.DateLastAccessed
Range("F" & x).Value = f1.ParentFolder
Next
End If
End Sub
Sub ListFolders(x, y, ges)
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FolderExists(y) Then
Set f = fs.Getfolder(y)
Set fc = f.subfolders
On Error Resume Next
For Each f1 In fc
Call ListFolder(x, f1.Path, ges)
Call ListFolders(x, f1.Path, ges)
Next
End If
KB = ges / 1024
MB = KB / 1024
GB = MB / 1024
Out = Str(Int(KB * 10) / 10) + " KB"
If KB > 9999 Then Out = Str(Int(MB * 10) / 10) + " MB"
If MB > 9999 Then Out = Str(Int(GB * 10) / 10) + " GB"
Range("B" & x + 1).Value = Out
End Sub
------------------------------------------------------------------------------------
Vielen Dank im voraus und grüße,
eerie