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

Bild

Betrifft: Blätter hinzufügen hinter den bestehenden Blätte
von: ömer
Geschrieben am: 16.03.2005 21:11:59
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

Bild

Betrifft: AW: Blätter hinzufügen hinter den bestehenden Blätte
von: K.Rola
Geschrieben am: 16.03.2005 21:26:23
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


Bild

Betrifft: AW: Blätter hinzufügen hinter den bestehenden Blätte
von: K.Rola
Geschrieben am: 16.03.2005 21:31:44
Hallo,
bei dir muss es natürlich nicht: For b = 1 To 3
sondern: For b = 1 To 70
heißen.
Gruß K.Rola
Bild

Betrifft: AW: Blätter hinzufügen hinter den bestehenden Blätte
von: Ömer
Geschrieben am: 16.03.2005 21:50:03
Danke K.Rola,
also wer nicht fleissig ist,ist umso gutmütiger meint der liebe Oscar :)
Schönen Abend und vielen dank nochmals
ömer
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Blätter hinzufügen hinter den bestehenden Blä"