Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
692to696
692to696
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblattnamen mit Uhrzeit

Tabellenblattnamen mit Uhrzeit
07.11.2005 16:50:23
Andreas
Hallo nochmal!
Ist es möglich durch eine kleine Erweiterung der folgenden Zeilen
Name = Application.InputBox(prompt:="Bezeichnung", Title:="Eingabe der Bezeichnung", Type:=2)
Sheets("1").Name = Format(Name)
am Ende des Tabellenblattnamens noch die aktuelle Uhrzeit anzuhängen?
Kann mir da jemand nen Tipp geben?
Danke
Grüße
A.

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblattnamen mit Uhrzeit
07.11.2005 17:03:13
Marc
Hallo,
Sheets("1").Name = Format(Name) & " " & Time
Gruß
AW: Tabellenblattnamen mit Uhrzeit
07.11.2005 17:07:50
OttoH
Hallo Marc,
versuch's mal hiermit:

Sub Name_und_Zeit()
Dim name2 As String
name2 = Application.InputBox(prompt:="Bezeichnung", Title:="Eingabe der Bezeichnung", Type:=2)
Sheets(1).name = name2 & Left(Time, 2) & Mid(Time, 4, 2) & Right(Time, 2)
End Sub

Gruß OttoH
AW: Tabellenblattnamen mit Uhrzeit
07.11.2005 17:06:59
Fred
Hi,
der Doppelpunkt ist in Blattnamen nicht erlaubt, daher so:
Sheets("1").Name = Name & Format(Time, " mm_ss")
Keine Fehlerprüfung auf sonstige nicht erlaubte Zeichen, max. Zeichenzahl(31) und
schon vorhandene Namen.
mfg Fred
Anzeige
AW: Tabellenblattnamen mit Uhrzeit
07.11.2005 17:12:11
Andi
Hi,
ja, das geht, aber nur über nen kleinen Umweg, weil der Doppelpunkt im Tabellennamen nicht erlaubt ist:
Dim sStunde As String
Dim sMinute As String
name = Application.InputBox(prompt:="Bezeichnung", Title:="Eingabe der Bezeichnung", Type:=2)
sStunde = Hour(Time)
sMinute = minute(Time)
Sheets("1").name = Format(name & " " & sStunde & "-" & sMinute)
Schönen Gruß,
Andi
Danke an alle...
07.11.2005 17:17:24
Andreas
und schönste Grüße von
Andreas
Gern geschehen... (ot)
07.11.2005 17:28:06
Andi
.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige