Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Blätter hinzufügen hinter den bestehenden Blä"
Hintergrundfarbe nach Datum festlegen Feste Hintergrundfarbe der aktiven Zelle bei Cursorbewegungen
Zeilen mit Zellen mit rotem Hintergrund ausblenden Anzahl der gelb hinterlegten Zellen ermitteln
Hintergrundfarbe nach Eingabewert Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln
Werte in Zellen mit vorgegebener Hintergrundfarbe addieren Über bedingte Formatierung Hintergrundfarbe bei Zelleingabe ändern
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten