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

Blätter hinzufügen hinter den bestehenden Blätte

Blätter hinzufügen hinter den bestehenden Blätte
16.03.2005 21:11:59
ömer
Liebe Profis,
mit folgendem Problem komme ich wieder...
Auf meiner Mappe sind 70 Blätter mit Namen
Pos1,Pos2,Pos3 usw.
Jetzt möchte ich hinter jedem Posein Blattmit Namen "Re1"und "GU1" hinzufügen
also:
Pos1,Re1,GU1,Pos2,Re2,GU2,Pos3,Re3,GU3 usw...
Vielen Dank im voraus.
MFG
Ömer

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blätter hinzufügen hinter den bestehenden Blätte
16.03.2005 21:26:23
K.Rola
Hallo,
Option Explicit
Sub Blaetter()
Dim b As Integer, ws As Worksheet, ash As Worksheet
Set ash = ActiveSheet
Application.ScreenUpdating = False
For b = 1 To 3
Set ws = Worksheets.Add(after:=Sheets("Pos" & b))
ws.Name = "Re" & b
Next
For b = 1 To 3
Set ws = Worksheets.Add(after:=Sheets("Re" & b))
ws.Name = "Gu" & b
Next
ash.Select
Application.ScreenUpdating = False
End Sub

Gruß K.Rola

Der Fleiß ist die Wurzel aller Häßlichkeit.

Oscar Wilde


Anzeige
AW: Blätter hinzufügen hinter den bestehenden Blätte
16.03.2005 21:31:44
K.Rola
Hallo,
bei dir muss es natürlich nicht: For b = 1 To 3
sondern: For b = 1 To 70
heißen.
Gruß K.Rola
AW: Blätter hinzufügen hinter den bestehenden Blätte
16.03.2005 21:50:03
Ömer
Danke K.Rola,
also wer nicht fleissig ist,ist umso gutmütiger meint der liebe Oscar :)
Schönen Abend und vielen dank nochmals
ömer

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige