Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Punkt löschen

Punkt löschen
Hansjörg
Hallo Excelprofis!!
Könnt ihr mir bei meinem Problem helfen? Habe in der Spalte P1:P36000 Zahlen und auch Zahlen mit Buchstaben welche aus einem Report übernommen werden. Nun haben diese aber alle einen Punkt an irgendwelchen Stellen. Ich muss nun diesen Punkt löschen, wobei kein Leerraum entstehen darf, sondern die Werte in einer Folge eingetragen sein müssen z.B. X1235.556 als X1235556.
Bitte um eure Hilfe!!
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: suchen/ersetzen owT
22.10.2009 10:04:26
hary
.
AW: Punkt löschen
22.10.2009 10:06:56
Oberschlumpf
Moin Hansjörg
Wenn es einmalig ist, dann versuch es mal so:
1. Trage in einer Hilfsspalte (z Bsp Spalte O oder Q) in die oberste Zelle diese Formel ein:
=WECHSELN(P1;".";"") (jeder gefundene Punkt wird durch nix ersetzt - also Punkte werden gelöscht)
2. Zieh diese Formal ganz nach unten bis zum Ende deiner Liste in Spalte P
3. Markiere alle Einträge in der Hilfsspaltte, kopieren und alles in Spalte P einfügen
Hilfts?
Ciao
Thorsten
Anzeige
AW: Punkt löschen
22.10.2009 10:12:31
Hansjörg
Hallo, danke für diese schnelle Antwort, doch ich müsste dies über VBA machen, da die Werte dieser Spalte in regelmäßigen Abständen aktualisiert werden. Beim Aufrufen der Datei bzw. des Tabellenblattes sollten alle Punkte per VBA in der Spalte P gelöscht werden.
Danke Danke!!!!!
Hansjörg
Anzeige
hier eine VBA Variante...
22.10.2009 10:27:48
Tino
Hallo,
zum testen
Sub LoeschePunkt()
Dim meAr
Dim A As Long

With Sheets("Tabelle1") 'Tabellenname anpassen 
    
    meAr = .Range("P2", .Cells(.Rows.Count, 16).End(xlUp)).Value2

    For A = 1 To Ubound(meAr)
     If InStr(meAr(A, 1), ".") > 0 Then
      meAr(A, 1) = Replace(meAr(A, 1), ".", "")
     End If
    Next A

    .Range("P2").Resize(Ubound(meAr)) = meAr
    
End With

End Sub
Gruß Tino
Anzeige
AW: hier noch eine VBA Variante...
23.10.2009 00:47:09
Daniel
die zwar deutlich kürzer im Code, aber seltsamerweise auch viel langsamer als Tinos Variante ist.
hat jemand dafür eine Erklärung:
Sub ReplaceMakro()
Columns(16).Replace ".", "", lookat:=xlPart
End Sub
Gruß, Daniel
Replace hat dücken
24.10.2009 17:14:12
Tino
Hallo,
da kann man wohl nur spekulieren da wahrscheinlich keiner hier außer die Jungs von MS weis
wie der Interne Ablauf von Replace Programmiert ist.
Zudem wurde hier mal festgestellt, dass diese Funktionen auch dücken hat.
Wurde zuvor von Hand ein Suchen und Ersetzen über die gesamte Datei gemacht,
kann man dies im VBA nicht zurückstellen.
Naja kommt wahrscheinlich im Alltag selten vor,
aber es ist ein ungutes Gefühl das es so ist.
Gruß Tino
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Punkte in Excel entfernen: Schritt-für-Schritt-Anleitung


Schritt-für-Schritt-Anleitung

Um Punkte aus Zahlen oder Texten in Excel zu entfernen, kannst Du entweder eine Formel verwenden oder ein VBA-Skript erstellen. Hier sind die beiden Methoden:

Methode 1: Mit einer Formel

  1. Hilfsspalte erstellen: Trage in einer Hilfsspalte (z.B. Spalte O) in die oberste Zelle die folgende Formel ein:

    =WECHSELN(P1;".";"")

    Diese Formel ersetzt jeden gefundenen Punkt durch nichts, sodass die Punkte gelöscht werden.

  2. Formel nach unten ziehen: Ziehe die Formel bis zum Ende Deiner Liste in Spalte P nach unten.

  3. Werte kopieren: Markiere alle Einträge in der Hilfsspalte, kopiere sie und füge sie in Spalte P ein.

Methode 2: Mit VBA

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Neues Modul erstellen: Klicke auf Einfügen > Modul.

  3. VBA-Code einfügen: Füge den folgenden Code in das Modul ein:

    Sub LoeschePunkt()
       Dim meAr
       Dim A As Long
    
       With Sheets("Tabelle1") ' Tabellenname anpassen
           meAr = .Range("P2", .Cells(.Rows.Count, 16).End(xlUp)).Value2
    
           For A = 1 To UBound(meAr)
               If InStr(meAr(A, 1), ".") > 0 Then
                   meAr(A, 1) = Replace(meAr(A, 1), ".", "")
               End If
           Next A
    
           .Range("P2").Resize(UBound(meAr)) = meAr
       End With
    End Sub
  4. Makro ausführen: Schließe den VBA-Editor und führe das Makro aus, um alle Punkte in Spalte P zu entfernen.


Häufige Fehler und Lösungen

  • Fehler: Formel funktioniert nicht
    Lösung: Stelle sicher, dass die Formel in der richtigen Zelle steht und dass Du die Formel bis zum Ende der Liste nach unten gezogen hast.

  • Fehler: VBA-Code läuft nicht
    Lösung: Überprüfe den Tabellennamen im VBA-Code. Er muss exakt mit dem Namen des Arbeitsblatts übereinstimmen.


Alternative Methoden

Eine weitere Möglichkeit, Punkte in Excel zu entfernen, ist die Verwendung der Suchen und Ersetzen-Funktion:

  1. Suchen und Ersetzen öffnen: Drücke STRG + H.
  2. Suchfeld ausfüllen: Gib im Feld „Suchen nach“ einen Punkt (.) ein.
  3. Ersetzen durch: Lass das Feld „Ersetzen durch“ leer.
  4. Alle ersetzen: Klicke auf „Alle ersetzen“, um alle Punkte in der ausgewählten Spalte zu entfernen.

Praktische Beispiele

Beispiel 1: Angenommen, Du hast in Zelle P1 den Wert X1235.556. Nach Anwendung der Formel oder des VBA-Codes wird der Wert zu X1235556.

Beispiel 2: Bei einem Text wie Das ist ein Punkt. Hier. entfernt die Suchen und Ersetzen-Funktion den Punkt und wandelt den Text in Das ist ein Punkt Hier um.


Tipps für Profis

  • Wenn Du häufig mit dieser Art von Daten arbeitest, erwäge, eine benutzerdefinierte Funktion in VBA zu erstellen, um Punkte schnell zu entfernen.
  • Nutze die Möglichkeit, mehrere Punkte gleichzeitig zu entfernen, indem Du sie in der Suchen und Ersetzen-Funktion auflistest.
  • Achte darauf, dass Du Deine Daten sicherst, bevor Du Massenänderungen vornimmst, insbesondere wenn Du VBA verwendest.

FAQ: Häufige Fragen

1. Wie kann ich Punkte aus einer gesamten Zahlenfolge entfernen?
Du kannst die oben beschriebenen Methoden verwenden, um Punkte aus einer gesamten Spalte zu entfernen.

2. Was ist der Unterschied zwischen der Formel und dem VBA-Ansatz?
Die Formel ist einfach und schnell für einmalige Änderungen, während VBA eine automatisierte Lösung für regelmäßig aktualisierte Daten bietet.

3. Funktioniert dies in allen Excel-Versionen?
Ja, die beschriebenen Methoden funktionieren in Excel 2010 und neueren Versionen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige