Sheet umbenennen wenn string enthalten :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Excel 2007] Sheet umbenennen wenn string enthalten

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 30.05.2008, 14:22

Hallo Experten,

meine Sheets (je Mappe ca.30) haben Bezeichnungen wie z.B. "Bad08_M01 M_out"; "Bad ohne 08_M01 M_out_dP_Stat".

Nun möchte ich mit einem Makro alle "08" z.b. in 07 tauschen und die "01" in z.b. 06.

Frage:
Wie lautet der Befehl das Excel im jeweiligen Sheet-Name nur den zu ändernden String erkennt und ändert. Da die Pos. der Zahlen variiert und ich daher mit Left(), right() etc. nicht weiter komme, oder ich müsste ich auf diese Weise alle möglichen Varianten abdecken. aber es muss doch kürzer gehen.

Vielen Dank
homax

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5729

Verfasst am: 30.05.2008, 14:36

Hallo!

Mit Replace sollte es ganz einfach gehen:

Code:

Sub Ersetzen()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Name = Replace(ws.Name, "08", "07")
ws.Name = Replace(ws.Name, "01", "06")
Next ws
End Sub

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

homax
Newbie
Newbie

Anmeldedatum: 20.03.2008
Beiträge: 26

Verfasst am: 30.05.2008, 14:58

Vielen Dank,

wenn ich nur auch diese ganzen Befehle im Kopf hätte.
Habe es jetzt so gemacht:

Code:

Sub Sheets_umbenennen()

Dim ws As Worksheet
Dim Bez_in As String
Dim Bez_out As String

'zu ändernde Zeichenfolge eingeben:
Bez_in = InputBox("Welche Zeichenfolge soll geändert werden? z.B. 07", , "08")

'gewünschte Änderung eingeben:
Bez_out = InputBox("In was? z.B. 09", , "09")

For Each ws In ThisWorkbook.Worksheets
ws.Name = Replace(ws.Name, Bez_in, Bez_out)
Next ws

End Sub

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	2. neue zeile einfügen wenn darüber text	enzo	Microsoft Excel Hilfe	2	27.11.2008, 12:46
	Feld B sperren, wenn ein Wert in Feld...	matze63	Microsoft Excel Hilfe	3	26.11.2008, 14:23
	Wenn Funktion mir Buchstaben	Dennis.K	Microsoft Excel Hilfe	3	26.11.2008, 10:40
	Summe(wenn(..... möchte ich nur als Z...	matze63	Microsoft Excel Hilfe	1	24.11.2008, 16:09
	Zeile suchen, wenn gefunden zwei Dati...	cyRus-tC	Microsoft Excel Hilfe	2	22.11.2008, 16:11

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de