Leerzeichen mittels makro löschen

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe all wissende

Also ich habe ein Problem, ich will mir mit Excel einen Gehaltsrechner bauen, das läuft soweit auch ganz gut.

Ich habe die Steuertabellen von http://www.parmentier.de/steuer/steuer.htm?lohntab.htm

kopiert.

so nun ist hinter jedem Wert 2 Leerzeichen.

Also so:

!! 3330,00 !!

somit kann ich die zellen auch nicht in € format setzen. durch die leerzeichen.

ich will aber auch nicht mit der Funktion Glätten das ich eine Zweite spalte habe, weil dann die zuordnung nicht mehr funktioniert.

Also muss ich das in der gleichen Zelle den wert ändern damit das dann so aussieht:

!!3330,00!!  

Kurze daten zu mir:

VBA kaum ahnung paar sachen.
Excel 2003

Folgende sachen habe ich schon probiert:

Excel Function Ersetzen " " durch „“ („Geht nicht“)

Folgende Makros habe ich probiert:

Sub ersetzen()
Dim Bereich As Range

Set Bereich = Selection
With Bereich
.Replace What:=" „, Replacement:=“", _
LookAt:=xlPart, MatchCase:=True
End With
End Sub

Leider kein erfolg löschte nur ein leerzeichen, danach mehrmals probiert aber das zweite habe ich nicht wegbekommen.

Sub ersetzen()

Dim ZählerX As Long, ZählerY As Long, Ramsch As String,_
Zwischenfeld As String

Ramsch = " " 'hier schreibst Du rein, was Du nicht haben willst

For ZählerX = 1 To Len(Bezugsfeld)

For ZählerY = 1 To Len(Ramsch)

If Mid$(Bezugsfeld, ZählerX, 1) = Mid$(Ramsch, ZählerY, 1)_
Then
Zwischenfeld = „“
Exit For
End If

Zwischenfeld = Mid$(Bezugsfeld, ZählerX, 1)

Next

RamschRaus = RamschRaus + Zwischenfeld

Next

End Sub

genau das gleiche eins weg das andere blieb stehen.

Ich habe auch schon versucht " " zwei rein zu machen aber ohne erfolg.

Dann habe ich gedacht ich probiersmal so:

Sub Letzteszeichenloeschen()

SendKeys „{F2}“
SendKeys „{Backspace}“
SendKeys „{Enter}“
SendKeys „{Enter}“

End Sub

klappt wunderbar doch leider ist das wenn ich das 1 million mal machen muss sehr bescheiden.

Es muss doch einen Code geben der die leerzeichen weckbekommt.

Komisch ist nur das Script 1 und 2 dies machen und die leerzeichen gehen nicht weg.mache ich mir absicht eins noch dazu bekommt er es weg aber eins bleibt immer stehen.

Ich kann auch eine Beispiel datei in Excel machen und euch diese dann schicken bin total am ende mit meinen Ideen.

Brauche Hilfe :smile:

nette grüße sven

#2

Hi Sven,

http://www.parmentier.de/steuer/steuer.htm?lohntab.htm

so nun ist hinter jedem Wert 2 Leerzeichen.

jain, es sind bis zu 3 Zeichen, nur zwei davon sind „normale“ Leerzeichen.

probiers mla so:

Sub ersetzen()
Dim Bereich As Range
Set Bereich = Selection
With Bereich
 .Replace What:=Chr(32), Replacement:="", LookAt:=xlPart, MatchCase:=True
 .Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, MatchCase:=True
End With
End Sub

Ramsch = " " 'hier schreibst Du rein, was Du nicht haben willst

*hmmh* sieht irgendwie nach anderem Forum aus:smile:

Gruß
Reinhard

#3

Hallo Sven.

Leerzeichen kannst Du mit den Funktionen „LTrim“, RTrim" oder „Trim“ löschen.
Schau Dir dazu auch die Hilfe im VisualBasic-Editor an.

Viele Grüße
Carsten

#4

Hallo Reinhard

Ja andere Foren, ich war schon so schlau und habe nach meinem Problem gegooglet. :smile:

Das mach ich so wenn bevor ich fragen stelle. !!! :smile:

Zum CODE Jippi Jippi jey :smile: sie sind weg.

neues Problem:

Bei jedem steht jetzt ein Fehler:

Die Zahl in dieser Zelle ist als Text formatiert …

Jetzt muss ich wieder tausendmal klicken.

kann ich das nicht auf einmal mach irgendwie???

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Danke Die Hilfe von Reinhard hat schon geholfen.

trotzdem vieln dank

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#6

neues Problem:

Bei jedem steht jetzt ein Fehler:

Die Zahl in dieser Zelle ist als Text formatiert …

Jetzt muss ich wieder tausendmal klicken.

kann ich das nicht auf einmal mach irgendwie???

Habs hinbekommen Excel glüt richtig vor auslastung.

Danke an euch

nette Grüße Sven