Hallo,
meine Tabellen haben Namen : 03.12. , also fortlaufend jeweils die
ersten vier Ziffern des Datums. Dieses Datum will ich nun auf die Tabelle
mit dem Namen (konstant) „ABC“ in die Zelle B2 kopieren, aber in
folgendem Format: 031203, also ohne Punkte. Wie stelle ich das an aus
der aktiven Tabelle an? Danke für Hilfe im voraus.
Mit freundlichen Grüßen
Rochlus
meine Tabellen haben Namen : 03.12. , also fortlaufend jeweils die
ersten vier Ziffern des Datums. Dieses Datum will ich nun auf
die Tabelle mit dem Namen (konstant) „ABC“ in die Zelle B2 kopieren, :aber in folgendem Format: 031203, also ohne Punkte. Wie stelle ich das
an aus der aktiven Tabelle an? Danke für Hilfe im voraus.
Hi Klaus,
probier das Makro, es schreibt Tabellenblattnamen ala 03.12. in Spalte B, bei Zelle B2 beginnend, schmeisst die punkte raus und hängt 03 an.
Gruß
Reinhard
Option Explicit
Sub tt()
Dim Zeile As Long
Dim x As Integer
Zeile = Range("B2").Row
For x = 1 To Worksheets.Count
If Worksheets(x).Name ActiveSheet.Name Then
ActiveSheet.Cells(Zeile, 2).Value = Worksheets(x).Name
ActiveSheet.Cells(Zeile, 2).Replace What:=".", Replacement:=""
ActiveSheet.Cells(Zeile, 2).Value = ActiveSheet.Cells(Zeile, 2).Value & "03"
Zeile = Zeile + 1
End If
Next x
End Sub
Hallo Reinhard
danke für Deine Hilfe. Ich möchte aber nicht alle Tabellen aufgelistet
haben, sondern nur von der aktiven Tabelle. Habe schon das „Next x“
weggenommen, aber das funktioniert nicht. Dann habe ich den Übertrag
von B2 auf P2 (in diese Zelle soll das Datum hinkommen) versucht zu
verschieben, aber das klappt nicht. Hoffe, dass Du mir noch diese
Hilfestellung gibst. Danke!
Mit freundlichen Grüßen
Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Reinhard,
sehe gerade, dass genau das aktive also geöffnete Tabellenblatt nicht
übernommen wird. Und ganeu das war aber gemeint.
Bis dann, danke !
Mit freundlichen Grüßen
Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Sub InfoB2()
ActiveSheet.Cells(2, „B“).Value = ActiveSheet.Name
ActiveSheet.Cells(2, „B“).Replace What:=".", Replacement:=""
ActiveSheet.Cells(2, „B“).Value = ActiveSheet.Cells(2, „B“).Value & „03“
End Sub
Hallo carnivora
Das klappt prima, vielen Dank für die Mühe. Schönen Sonntag noch
Mit freundlichen Grüßen
Klaus
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]