Office: Warum wird die Spalte E geändert bei diesem Code????

Hallo Leute,

habe eine Schaltfläche in eine Exceltabelle mit Namen Fahrzeuge.
Das Tabellenblatt nennt sich auch Fahrzeuge.

Der nachfolgende Code bewirkt, dass mit Click auf die Schaltfläche,
die Datei gespeichert wird, vorher wird den ersten 9 Spalten, jedem
Zellinhalt ein Hochkomma vorangestellt.

In der Spalte 5 (E) soll dieses jedoch nicht geschehen.
Ich habe schon die Spalten 1-4 und 6-9 den Namen Kfz gegeben.

Nach wie vor wird jedoch auch allen Zellen aus Spalte 5 ein Hochkomma
vorangestellt.
Wie kann ich das verhindert?

Wo ist der Fehler im Code?


Sub Schliessen()

Dim letzte_zeile, zähler

For zähler = 1 To 9
Cells(1, zähler).Select
Selection.End(xlDown).Select
If Selection.Row > letzte_zeile Then
letzte_zeile = Selection.Row
End If
Next

Dim Zelle As Range
For Each Zelle In [Kfz]
If Zelle <> "" Then
Zelle = "'" & Zelle
End If
Next

ActiveWorkbook.Names.Add Name:="Kfz", RefersToR1C1:="=Fahrzeuge!R1C1:R" & letzte_zeile & "C9"
Range("A1").Select
ActiveWorkbook.Close savechanges:=True

End Sub

Danke Peeti

 

Hallo Peeti,
ein Bild sagt mehr als tausend Worte - könntest Du die Datei mal zur Verfügung stellen?!
Ludger

 

Hallo,

ich habe Deinen Code kopiert und bei mir mal laufen lassen. In Spalte E wird kein Hochkomma gesetzt. Allerdings ist nach dem Eintrag der Hochkommas der Name "Kfz" verschwunden, wodurch der 2. Lauf des Makros nicht mehr funktioniert, was mich schon wundert.
Außerdem glaube ich, daß das Makro nicht so funktioniert, wie Du meinst. Denn in diesem Teil

For zähler = 1 To 9
Cells(1, zähler).Select
Selection.End(xlDown).Select
If Selection.Row > letzte_zeile Then
letzte_zeile = Selection.Row
End If
Next

läuft der Cursor nur durch die Spalten, ohne daß etwas passiert.