Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

von links 4 Leerzeichen entfernen

von links 4 Leerzeichen entfernen
links
Hallo Forum,
ich benötige Hilfe.
In den ersten 4 Stellen eines Strings kann
entweder 1 einzelnes Leerzeichen oder mehrere
aufeinander folgende Leerzeichen auftreten.
Ich möchte diese, jedoch nur im Bereich der 1.Stelle bis
zur 4.Stelle von links entfernen.
Als Ergebnis soll ein Textzeichen an 1. Stelle stehen.
Danke Peter
Sub LeerzRaus()
Dim strInhalt As String, lngZ1 As Long, lngZn As Long, lngZ As Long
Dim intS As Integer, intI As Integer, intZ As Integer
intS = 6 'Spalte F
lngZ1 = 2 'Erste Zeile
lngZn = 65536 'Letzte Zeile
Application.ScreenUpdating = False
Set wshFiles = Worksheets("Test")
With wshFiles
For lngZ = lngZ1 To lngZn
strInhalt = .Cells(lngZ, intS)
For intI = 1 To Len(strInhalt)
' intZ = Asc(Mid(strInhalt, intI, 1))
'  If intZ = 32  intZ = Asc(Mid(strInhalt, 5, 4)
Next
.Cells(lngZ, intS) = strInhalt
Next
End With
Application.ScreenUpdating = True
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
sollte doch mit LTrim klappen owT
06.03.2011 10:57:24
Matthias
AW:Danke
06.03.2011 11:18:48
Peter
Man sieht öfters den Wald vor Bäumen nicht.
Danke Peter
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige