Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA Code

VBA Code
30.10.2007 16:43:00
Bigi
Sorry, ich hätte da noch ein einziges Problemchen.
Dank euerer Hilfe ist unten genannter Code entstanden.

Private Sub CommandButton7_Click()
Dim WB As Workbook
Dim Namen As String
Dim intx As Integer, inty As Integer
Set WB = ActiveWorkbook
Namen = InputBox("Bitte geben Sie den Namen für die neue Tabelle ein:")
If Namen  "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[A1]
'Blätter sortieren :
For intx = 1 To Sheets.Count
For inty = intx To Sheets.Count
If UCase(Sheets(inty).Name) 


Kann man noch hingehen und den neuen Tabellenblatt-Namen im Blatt "Suchen" in Spalte P ab Zelle 2 sortiert übertragen da hier ein LinkFillRange aus einer ComboBox steht
Hoffentlich hat jemand eine Lösung
Gruss
Bigi

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

Betreff
Datum
Anwender
Anzeige
Blatt "Suchen" nach vorne und füllen
30.10.2007 17:05:19
NoNet
Hallo Bigi,
dazu musst Du keinen eigenen Thread eröffnen, diese Frage hättest Du an den anderen Thread anhängen können "mit Option "Frage noch offen".
Hier der gewünschte Code :

Private Sub CommandButton7_Click()
Dim WB As Workbook
Dim Namen As String
Dim intx As Integer, inty As Integer
Set WB = ActiveWorkbook
Namen = InputBox("Bitte geben Sie den Namen für die neue Tabelle ein:")
If Namen  "" Then
WB.Sheets.Add.Name = Namen
Sheets("Vorlage").Cells.Copy Sheets(Namen).[A1]
'Blätter sortieren :
For intx = 1 To Sheets.Count
For inty = intx To Sheets.Count
If UCase(Sheets(inty).Name) 


Gruß, NoNet

Anzeige
AW: Blatt "Suchen" nach vorne und füllen
30.10.2007 17:11:58
Bigi
Hallo NoNet,
danke geschafft, ein Tag geht dank deiner Hilfe glücklich zu Ende.
Grüsse
Bigi

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige