Zahlen abkürzen

Question

Hallo Excelfreunde,
ich in einer Spalte (C2:C53) alle Kalenderwochen in Text Format stehen.
01
02
03
50
51
52
Wie kann ich bei den Zahlen (01-09) die Null mit VBA löschen?

Danke im Voraus für Eure Hilfe
Gruß
fedjo

Answer 1

Hallo Fedjo,

die stehen bestimmt hintereinander, den Bereich (01:09) markiere Und Strg+H

Gruß Hajo

Answer 2

Hallo Hajo,
danke für die schnelle Antwort.
die Kalenderwochen kommen aus SAP stehen in einer Spalte untereinander. Die Nullen sollten schon mit einem Code gelöscht werden.

Gruß
fedjo

Answer 3

Hallo Fedjo,

warum formatierst Du die Spalte nicht als Zahl, wenn Dich die führende Null stört?

Ist doch Arbeitsbeschaffung, oder...?

Gruß
Rainer

Answer 4

Hallo Rainer,
die Kalenderwoche wird durch eine Formel (=KALENDERWOCHE(A3) (KW 6) in einer anderen Zelle angezeigt. Das Makro sucht aber nach der aktuellen KW 6 und nicht nach 06. Ich müßte immer die Spalte umformatieren, wenn ich neue Zahlen erhalte.

Gruß
fedjo

Answer 5

Hallo Fedjo,

ich bin verwirrt.

Du schreibst die KW stehen in C2:C53 (im Textformat) - darauf hatte ich geantwortet.

Dann schreibst Du die KW kommen aus SAP und zu guter Letzt werden sie durch =KALENDERWOCHE(A3) erzeugt.

Die Formel liefert aber eine Ganzzahl und keinen Text????

Weiterhin sprichst Du jetzt von einem Makro, von dem erst keine Rede war und was wir leider nicht kennen.

Vielleicht kannst Du mal Licht ins Dunkel bringen.

Gruß
Rainer

Answer 6

Hallo Rainer,
ich habe es jetzt so gelöst : Sheets("Daten").Columns(3).Cells.Replace What:="01", Replacement:="1", LookAt:=xlWhole, SearchOrder _
:=xlByColumns, MatchCase:=False
Da wird natürlich 9 mal gesucht was ich eigentlich nicht wollte.
Erklärung:
Die KW werden aus SAP in eine Tabelle C2:C53 (im Textformat). erzeugt.

Mit der aktuellen KW ( =KALENDERWOCHE) aus einer anderen Tabelle wird mit einem Makro in der Tabelle mit den (01-52 KW) gesucht.
Es wird also mit 6 gesucht in der Tabelle wo 06 steht .

strSuch = Sheets("Lieferzeiten").Range("A5").Value
lngAnz = WorksheetFunction.CountIf(Columns(3), strSuch)
Columns(3).Find(What:=strSuch, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False).Activate

Wahrscheinlich kann ich es nicht so richtig erklären.


Gruß
fedjo