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ä"