Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1036to1040
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1036to1040
1036to1040
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Leerzeichen haben den Teufel

Leerzeichen haben den Teufel
13.01.2009 13:05:03
ludicla
Hallo Excel-Profis,
ich muss aus SAP über den Umweg einen html-Seite Zahlen nach
Excel übertragen.
Dabei steht hinter den Ziffern eine Leerstelle die ich nur wegbringe wenn ich mit
F2 ins editieren gehe und die Rücktaste drücke.
Excel reagiert mit =Wert() mit einem Fehlerwert und auf GLÄTTEN und SÄUBERN gar
nicht und bei Suchen nach "leer" ersetzen mit nix überhaupt nicht.
Wie bringe ich das Leerzeichen praktikabel weg ?
Gruss Ludicla.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
dreifach
13.01.2009 13:08:00
D.Saster
AW: Leerzeichen haben den Teufel
13.01.2009 17:16:29
Michael
hi Ludicla
ein beispiel .-)
eventuell durch umlaute zu ergaenzen in zwei zeilen
gruss michael
  • Option Explicit
    
Sub Loeschen()
Dim Azeile As Long, zaehler As Long
Azeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim Sarray(1, Azeile) As Variant
Sarray() = Range("A1:A" & Azeile)
For zaehler = 1 To UBound(Sarray())
Sarray(zaehler, 1) = Sumtext("" & Sarray(zaehler, 1))
Next zaehler
Range("A1:A" & Azeile) = Sarray()
End Sub



    
Function Sumtext(Zellen As String) As String
Application.Volatile
Dim Zelle As String
Dim zeich1 As Integer
Dim schalter As Boolean
Dim zaehler3 As Integer
ReDim zaehler2(Len(Zellen)) As String
zaehler3 = 1
For zeich1 = 1 To Len(Zellen)
If Mid(Zellen, zeich1, 1) Like "[0-9,.A-Za-z]" = True Then
Sumtext = Sumtext & zaehler2(zaehler3) & Mid(Zellen, zeich1, 1)
schalter = True
End If
If schalter = True And Mid(Zellen, zeich1, 1) Like "[0-9,.A-Za-z]" = False Then
zaehler3 = zaehler3 + 1
schalter = False
End If
Next zeich1
End Function


    • Anzeige
    AW: Leerzeichen haben den Teufel
    13.01.2009 17:25:22
    Michael
    hi all
    
Function gegen untere austauschen.hatte die falsche kopiert
gruss michael

  • 

    
Function Sumtext(Zellen As String) As String
Application.Volatile
Dim zeichen As Integer
For zeichen = 1 To Len(Zellen)
If Mid(Zellen, zeichen, 1) Like "[0-9,.A-Za-z]" = True Then
Sumtext = Sumtext & Mid(Zellen, zeichen, 1)
End If
Next zeichen
End Function


    •
    AW: Leerzeichen haben den Teufel
    14.01.2009 07:32:59
    Michael
    hi all
    hier nun fehlerfei denk ich :-))
    guss michael
  • 
Sub Loeschen()
Dim Azeile As Long, zaehler As Long
Azeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
ReDim Sarray(Azeile, 1) As Variant
Sarray() = Range("A1:A" & Azeile)
For zaehler = 1 To UBound(Sarray())
Sarray(zaehler, 1) = Sumtext("" & Sarray(zaehler, 1))
Next zaehler
Range("A1:A" & Azeile) = Sarray()
End Sub



    
Function Sumtext(Zellen As String) As String
Application.Volatile
Dim zeichen As Integer
For zeichen = 1 To Len(Zellen)
If Mid(Zellen, zeichen, 1) Like "[0-9,.A-Za-z]" = True Then
Sumtext = Sumtext & Mid(Zellen, zeichen, 1)
End If
Next zeichen
End Function


    • Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige