Office: Erstes Zeichen in einer Zelle löschen !!!

User · 25. Oktober 2005

Hallo Zusammen,

ich habe Outlook Kontakte in Excel exportiert leider ist jetzt bei jeden Eintrag ein Hochkommazeichen " ' "als erstes Zeichen enthalten. Wie bekomme ich das weg? Mit habe ich es leider nicht geschafft.

Hat jemand eine Idee oder muß ich da wieder erst en Makkro Programmieren?
Ich habe schon eins fertiges das, dass letzte Zeichen löscht aber ich weiß leider nicht wie ich das umschreiben kann.

Code:

Sub löscht_letztes_zeichen()
Dim c As Range
Dim Bereich As Range
Dim Zelle As Range
Dim TMP

If IsMissing(nameBereich) Or nameBereich = "" Then
Set Bereich = Selection
Else
Set Bereich = Range(nameBereich)
End If

For Each Zelle In Bereich
TMP = Zelle.Value
If Len(TMP) 0 Then
Select Case Asc(Right(TMP, 1))
Case 48 To 57 'Zahl 0-9
Case 65 To 90 'A-Z
Case 97 To 122 'a-z
Case 196, 258, 214, 246, 220, 252, 223, 40, 41 'Ä,ä,Ö,ö,Ü,ü,ß,(,)
Case Else
Zelle.Value = Left(TMP, Len(TMP) - 1)
End Select
End If
Next Zelle
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit freundlichen Grüßen

Patrick

:)

funny-peculiar · 27. Oktober 2005

Hallo, Patrick,

wenn das Hochkomma nur in der Bearbeitungszeile steht, ist es Ausdruck dafür, dass Excel den Inhalt als Text ansieht. Ansonsten solltest Du die Textfunktion Mid(string, start[, length]) nutzen, um das erste Zeichen wegzulassen (oder Right(string, Length(string)-1)).

Ciao,
Holger

User · 27. Oktober 2005

Ich kann leider kein VBA!! Wo muß ich das einsetzen??

Vg Patrick

funny-peculiar · 27. Oktober 2005

Hallo, Patrick,

wenn Du das erste Zeichen einer Zeichenfolge löschen möchtest, solltest Du das untenstehende Makro in ein allgemeines Modul einfügen. Dazu dient entweder die Tastenkombi Alt+F11 oder der Weg über Extras / Makro / Visual Basic. Soll Dir der Code in allen Mappen zur Verfügung stehen, empfehle ich die Ablage in der persönlichen Makroarbeitsmappe (personl.xls). Für die Zuweisung ist leider auch ein wenig der Aufbewahrungsort des Makros wichtig: in einer Mappe z.B. ein Element aus der Symbolleiste Formular oder aus der Symbolleiste Zeichnen / Autoformen:

Code:

Option Explicit

Sub DeleteFirstCharacter()
' loescht das erste Zeichen der Zellen
Dim Zelle As Range
Dim TMP

' genutzter Bereich auf der aktiven Tabelle
For Each Zelle In ActiveSheet.UsedRange
TMP = Zelle.Value
If Len(TMP) 0 Then
Zelle.Value = Mid(TMP, 2, Len(TMP) - 1)
End If
Next Zelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Im Code wurde auf die Verwendung einer Fehlerbehandlung verzichtet.

Ciao,
Holger

Qugart · 8. Juni 2015

Hallo zusammen!

Ich bin auch auf der Suche nach einem Makro, das das jeweils erste Zeichen in einer Zelle entfernt.
Obiges Makro funktioniert einwandfrei.
Ich möchte aber, dass das Makro nur in einem vorher ausgewählten Bereich (mit der Maus markierte Zellen) angewendet wird.
Da ich mich in "Makro-Programmierung" so gar nciht auskenne, brauche ich Hilfe von Fachmännern.
Ich hoffe, mir kann hier jemand helfen.

xlph · 8. Juni 2015

Hallo,

Code:

Option Explicit

Sub DeleteFirstCharacter()
' loescht das erste Zeichen der Zellen
Dim Zelle As Range
Dim TMP

' genutzter Bereich auf der aktiven Tabelle
For Each Zelle In Selection.Cells
TMP = Zelle.Value
If Len(TMP) 0 Then
Zelle.Value = Mid(TMP, 2, Len(TMP) - 1)
End If
Next Zelle

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Qugart · 8. Juni 2015

Das ging ja fix.
Danke!

Office: Erstes Zeichen in einer Zelle löschen !!!

Erstes Zeichen in einer Zelle löschen !!!

Erstes Zeichen in einer Zelle löschen !!!

Erstes Zeichen in einer Zelle löschen !!!

Erstes Zeichen in einer Zelle löschen !!! - Similar Threads - Erstes Zeichen Zelle

Die ersten und letzten "n" Zeichen einer Zelle entfernen ohne die Verwendung einer Hilfsspalte

erstes Zeichen in Zelle löschen

Ersten beiden Zeichen abschneiden

ersten x zeichen aus anderer zelle übernehmen?

gruppieren, jedoch nur die ersten beiden zeichen selektieren

nur die ersten Zeichen einer Tabelle, in einem Bereich einer 2. Tabelle suchen

Bei Wenn/Aber Abfrage nur die ersten Zeichen verwenden