AW: Einfügen von Apostroph (')
09.05.2017 11:53:23
Apostroph
Hallo Peter,
hier noch meine Version.
Hierbei gehe ich davon aus, dass am Anfang die Spalte B leer ist.
Achtung: die letzte belegte Zeile wird in Spalte B ermittelt. Dort müssen somit zwingend immer Werte vorhanden sein, sonst passt es nicht.
Das Makro verkettet in Spalte A die Einträge aus Spalte B und C (per Formeleintrag in Spalte A) und fügt das Hochkomma an den Anfang. Anschließend werden die Formeln in Spalte A durch Werte ersetzt.
Public Sub Hochkomma()
Dim loLetzte As Long
Dim raBereichZ As Range
Dim raZelle As Range
With Worksheets("Tabelle1") 'anpassen
'ermitteln der letzten belegten Zeile in Spalte B
loLetzte = .Cells(.Rows.Count, 2).End(xlUp).Row
'Bereich von A1 (=.Cells(1, 1) bis letzte belegte Zeile (=.Cells(loLetzte, 1)
'ggf. anpassen
Set raBereichZ = .Range(.Cells(1, 1), .Cells(loLetzte, 1))
raBereichZ.FormulaLocal = "=ZEICHEN(39)&RECHTS(B1;LÄNGE(B1)-1)&"" ""&RECHTS(C1;LÄNGE(C1)-1)" _
raBereichZ.Value = raBereichZ.Value 'Formel durch Werte ersetzen
End With
Set raBereichZ = Nothing
End Sub
Gruß Werner