Excel97 - Tabellenname übernehmen

Computer: Software & Programmierung Office Software
1

Hallo,
Meine Tagestabellen heissen 03.12, 10.12 usw. Diese
Tabellennamen will ich jetzt mittels Makro an eine
bestimmte Stelle der Tabelle plazieren. Dabei sollen aber
die Namen der Tabelle so übernommen werden: 031203
oder 101203.
dafür hat mir ein Helfer folgendes Makro geschrieben:
Sub DATUM()
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Name
ActiveSheet.Cells(2, „P“).Replace What:=".", Replacement:=""
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Cells(2, „P“).Value & „03“
End Sub
Dieses Makro schreibt aber anstelle 031203 nur 31203. Wer kann
mir helfen, wie das auch mit der 03 klappt. Egal welche Formatierung
ich wählte. Ich bekam nie die 03 rein.
Danke im voraus.

Mit freundlichen Grüßen
Klaus

2

So gehts…

Hallo,
Meine Tagestabellen heissen 03.12, 10.12 usw. Diese
Tabellennamen will ich jetzt mittels Makro an eine
bestimmte Stelle der Tabelle plazieren. Dabei sollen aber:die Namen der Tabelle so übernommen werden: 031203
oder 101203.
dafür hat mir ein Helfer folgendes Makro geschrieben:
Sub DATUM()
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Name
ActiveSheet.Cells(2, „P“).Replace What:=".", Replacement:=""
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Cells(2,
„P“).Value & „03“

ActiveSheet.Cells(2, „P“).NumberFormat = "000000"

End Sub
Dieses Makro schreibt aber anstelle 031203 nur 31203. Wer kann
mir helfen, wie das auch mit der 03 klappt. Egal welche
Formatierung
ich wählte. Ich bekam nie die 03 rein.
Danke im voraus.

Mit freundlichen Grüßen
Klaus

auch Grüße, Fritz

3

Hallo Fritz,

natürlich geht es so. Ist ja großartig. Vielen Dank auch.
und schönen Abend noch.
Gruß Klaus

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

4

oder so
Sub DATUM()
ActiveSheet.Cells(2, „P“).Value = „’“ & ActiveSheet.Name
ActiveSheet.Cells(2, „P“).Replace What:=".", Replacement:=""
ActiveSheet.Cells(2, „P“).Value = „’“ & ActiveSheet.Cells(2, „P“).Value & „03“
End Sub

5

Meine Tagestabellen heissen 03.12, 10.12 usw. Diese
Sub DATUM()
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Name
ActiveSheet.Cells(2, „P“).Replace What:=".", Replacement:=""
ActiveSheet.Cells(2, „P“).Value = ActiveSheet.Cells(2,
„P“).Value & „03“
End Sub
Dieses Makro schreibt aber anstelle 031203 nur 31203. Wer kann
mir helfen, wie das auch mit der 03 klappt. Egal welche

Hallo Klaus,
ich persönlich würde in solchen Fällen die Blätter 12.03 12.10 12.17 nennen, einfach aus einfacheren Sportierungsmöglichkeiten.
Zu der Frage:
…
n=ActiveSheet.Name
activesheet.cells(2, „P“) = format(left(n,instr(n,".")-1),„00“)& format(mid(n,instr(n,".")+1),„00“) & „03“
'wenn die Blätter 03.12 heissen und nicht 3.12 geht auch
'activesheet.cells(2, „P“) = left(n,2) & right(n,2) & „03“
…
Gruß
Reinhard