Leerstellen vor Text erkennen

Hallo,
ich nutze die Webseiten-Import Funktion von Excel. Im Text der Webseite sind allerdings Stichpunkte enthalten. Excel übernimmt diese nicht, sondern macht stattdessen einen kleinen Absatz vor den Text, wo normalerweise der Stichpunkt (-) wäre. Dies ist aber kein richtiger Absatz, wie er mit "Tab" erzeugt werden kann. Es ist quasi nur ein Leerzeichen, welches ich allerdings nicht abfangen kann. Wenn ich mir das erste Zeichen der Zelle ausgeben lasse (Left(...,1)), bekomme ich nicht das Leerzeichen, sondern den ersten Buchstaben.
Hat jemand eine Idee, wie ich per VBA abfragen kann, ob der Text in der Zelle eingerückt ist? Sobald ich den in der Zelle enthaltenen Text in einem String speichere, werden die Leerzeichen ignoriert. Die "Trim"-Funktion erkennt das Leerzeichen demnach auch nicht.
Vielen Dank schon mal im Voraus!
Grüße
Silas

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Datei bitte...owT

13.07.2017 13:53:29

Max2

AW: Datei bitte...owT

13.07.2017 14:04:50

Silas

Hmm...

13.07.2017 14:32:56

Max2

AW: Hmm...

13.07.2017 15:01:23

Silas

AW: Hmm...

13.07.2017 15:20:37

Max2

AW: Datei bitte...owT

13.07.2017 14:51:48

Werner

AW: Datei bitte...owT

13.07.2017 15:27:31

Silas

AW: Datei bitte...owT

15.07.2017 10:03:14

Werner

AW: Datei bitte...owT

15.07.2017 10:23:25

Werner

Hallo,
leider sehe ich da keine Möglichkeit, das ganze Sinnvoll in Excel VBA
abzufangen.
Die Leerstelle Existiert nur in der Zelle aber nicht im Zellwert.
Hau den unten stehenden Code mal in den Code des Tabellenblattes und
mache einen doppelklick auf die Zelle mit dem Text "1-fach eingerückt" und
drücke danach ENTER
Mache das gleiche mit "2-fach eingerückt"
Im Direktfenster, siehst du wie sich die Spaltenbreiten verändert haben.
Vielleicht kannst du damit was machen.
Du könntest beispielsweise, den String in eine Andere Spalte setzten, prüfen welche breite diese hat
und dann prüfen welche breite die Ursprungsspalte hat.
An der Differenz könntest du ermitteln, ob du jetzt Leerstellen hast oder nicht, bzw. die Zelle und ihren Wert dann dementsprechend abändern.
Hier Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim s As String
Dim colLength As Double
Dim newLength As Double
s = Target.Value
colLength = Target.ColumnWidth
Target.Columns.AutoFit
newLength = Target.ColumnWidth
Debug.Print s & " --- " & colLength & " --- " & newLength
End Sub

Hier dass, was dabei rauskommt:


1-fach eingerückt --- 10,71 --- 17
2-fach eingerückt --- 17 --- 19,57

Public Sub Einrücken_raus() Dim loLetzte As Long Dim i As Long Application.ScreenUpdating = False With Worksheets("Tabelle1") 'Blattname anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 1 To loLetzte If .Cells(i, 1).HorizontalAlignment = xlLeft Then .Cells(i, 1).Value = "-" & .Cells(i, 1).Value End If Next i .Columns(1).HorizontalAlignment = xlGeneral End With Application.ScreenUpdating = True End Sub

Public Sub Einrücken_raus() Dim loLetzte As Long Dim loLevel As Long Dim strEinrücker As String Dim i As Long Dim j As Long Application.ScreenUpdating = False With Worksheets("Tabelle1") 'Blattname anpassen loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row For i = 1 To loLetzte If .Cells(i, 1).HorizontalAlignment = xlLeft Then loLevel = .Cells(i, 1).IndentLevel For j = 1 To loLevel strEinrücker = "-" & strEinrücker Next j .Cells(i, 1).Value = strEinrücker & .Cells(i, 1).Value End If strEinrücker = "" Next i .Columns(1).HorizontalAlignment = xlGeneral End With Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread