Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
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
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inputbox

Inputbox
05.12.2007 12:35:00
Doris
Hallo Profis,
In einer Inputbox gebe ich den Namen des neuen Tabellenblattes ein
wobei ein neues Blatt angelegt wird auf Basis des Tabellenblattes Vorlage
dieser Name sollte auch in Zelle A1 im neuen Blatt übertragen werden.
If Namen "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[a1]
Gibt es jemand der mir helfen könnte.
Gruss
Doris

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inputbox
05.12.2007 13:01:25
Uduuh
Hallo,

if namen"" then
sheets("vorlage").copy after:=sheets(sheets.count)
with activesheet
.name=namen
.Range("A1")=Namen
end with
end if


Gruß aus’m Pott
Udo

AW: Inputbox
05.12.2007 14:19:50
Doris
Hallo Udo,
danke das Du dich meldest,
funktioniert mit dem Anhang noch nicht.
https://www.herber.de/bbs/user/48246.txt
Gruss
Doris
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige