-------------------------------------------------------- mfg, GraFriSub Leerzeichen_entfernen()
Dim Tmp, Ergebnis, xZeichen() As String
Dim LenTmp As Integer, n As Byte
Tmp = Range(ActiveCell.Address).Value
LenTmp = Len(Tmp)
' xZeichens dimensionieren und einlesen
ReDim xZeichen(LenTmp)
With Range(ActiveCell.Address)
If LenTmp > 0 Then
For n = 1 To LenTmp
xZeichen(n) = Mid(Tmp, n, 1)
Next n
End If
End With
Ergebnis = vbNullString
' Mehr als ein Leerzeichen erkennen und löschen
For n = 1 To LenTmp
If Asc(xZeichen(n)) = 32 Then xZeichen(n) = vbNullString
Ergebnis = Ergebnis & xZeichen(n)
Next n
Range(ActiveCell.Address).Value = Ergebnis
End Sub
--------------------------------------------------------
das Makro von GraFri ist wesentlich professioneller, aber versuch es mal hiermit:
Gruß Rainer
am 02.05.02 hast Du auf die Frage "Dateien in Excel Katalogisieren" eine super Antwort gegeben. Ich hatte dazu noch ein paar Fragen (s.u. Anfrage vom 02.05.02). Könntes Du mir bitte kurz darauf antworten?
Gruß Rainer
Bildschirmaktualisierung:
Dies könnte man umgehen, indem man alle gewünschten Dateigrößen in ein Datenfeld einließt und diese bei Ende der Dateisuche auf einmal in das Tabellenblatt schreibt.
'sng' bedeutet:
Die Dateisuche wird nach verschiedenen Kriterien durchgeführt.
*.* ---> alle Dateien werden angezeigt
*.xls ---> nur Dateien mit Dateiändung xls(Excel-Dateien)
G*.txt ---> alle Textdateien, die mit 'G' beginnen
*Ber*.xls ---> alle Excel-Dateien, in denen Namen 'Ber' vorkommt
Übrigens, ich habe eine Datei mit UserForm zur Dateisuche und ausgabe in eine Liste. Falls Interesse bitte mailen.
mfg, GraFri