Zeichen am Anfang einer Zelle einfügen - bis zur letzten benutzten Zeile

[junjor]

Hallo Leute,

ich möchte gerne in Spalte A, die mit Telefonnummern im Zahlenformat gefüllt ist, ab Zeile 2 immer am Anfang ein + einfügen

Beispiel
vorher: 4917412345678
nachher: +4917412345678

Ich habe bisher diesen Code:

Sub plus()
Dim bereich As Range
Dim zelle As Range
Set bereich = Range("A1:A10")
For Each zelle In bereich
zelle.Value = zelle & "+"
Next
End Sub

Wie kann ich den statischen Bereich lösen und es so einstellen, dass das Plus-Zeichen dynamisch bis zur letzten benutzten Zeile eingefügt wird?  


Gruß,
Micha

[00202]

Hallo,  

du fügst bei dir das "+" am Ende der Zelle hinzu.  

Probiere es so:  

Code:

Option Explicit
Public Sub Main_1()
    Dim lngTMP As Long
    With ThisWorkbook.Worksheets("Tabelle1")
        For lngTMP = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            .Cells(lngTMP, 1).Value = "+" & .Cells(lngTMP, 1).Value
        Next lngTMP
    End With
End Sub
Public Sub Main_2()
    Dim lngTMP As Long
    With ThisWorkbook.Worksheets("Tabelle1")
        For lngTMP = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If Left(.Cells(lngTMP, 1).Value, 1) = "+" Then
                .Cells(lngTMP, 1).Value = Right(.Cells(lngTMP, 1).Value, Len(.Cells(lngTMP, 1).Value) - 1)
            End If
        Next lngTMP
    End With
End Sub

Der zweite Code nimmt das Plus, wenn vorhanden, wieder weg.

[junjor]

VIELEN DANK Case,

ja, hast Recht, war aber auch schon spät gestern  


Mit deinem Code funktioniert es aber tadellos!  

VG,
Micha