Sheetname; Gegenteil von &

• Sheetname; Gegenteil von & von goli vom 27.11.2003 11:09:39
  • AW: Sheetname; Gegenteil von & - von xXx am 27.11.2003 11:18:11
  • AW: Sheetname; Gegenteil von & - von Gabor am 27.11.2003 11:18:27
  • AW: Sheetname; Gegenteil von & - von Schräubchen am 27.11.2003 11:18:39
    • AW: Sheetname; Gegenteil von & - von goli am 27.11.2003 11:38:08
      • AW: Sheetname; Gegenteil von & - von Schräubchen am 27.11.2003 13:55:54
  • Wahnsinn !!! In 28 Sek. 3 Antworten *g* o.w.T - von Gabor am 27.11.2003 11:19:58
    • AW: Wahnsinn !!! In 28 Sek. 3 Antworten *g* o.w.T - von golem am 27.11.2003 11:25:01

Betrifft: Sheetname; Gegenteil von &
von: goli
Geschrieben am: 27.11.2003 11:09:39
Hallo,
ich kann an alle Tabblätter zu den TabellenblattNamen etwas mittels &"xyz" hinzufügen. Wie kann ich das wieder wegbekommen bzw abziehen.
ich suche den "gegenteiligen" Befehl von & .
Wie lautet dieser?

Viele Grüsse & Dank im voraus

Betrifft: AW: Sheetname; Gegenteil von &
von: xXx
Geschrieben am: 27.11.2003 11:18:11
Hallo,
gibt es meines Wissens nicht.
sheets(1).name=left(sheets(1).name,len(sheets(1).name)-3)
oder
sheets(1).name=left(sheets(1).name,instr(sheets(1).name,"xyz")-1)

Gruß aus'm Pott
Udo

Betrifft: AW: Sheetname; Gegenteil von &
von: Gabor
Geschrieben am: 27.11.2003 11:18:27
Schon wieder hi Goli, *lach*

Tabelle1.Name = Left(Tabelle1.Name, Len(Tabelle1.Name) - 2) 'Zieht die Letzen 2 Zeichen ab.


Gruß

Gabor

Betrifft: AW: Sheetname; Gegenteil von &
von: Schräubchen
Geschrieben am: 27.11.2003 11:18:39
Hallo goli,

das kannst Du nur, wenn Du genau weißt, was Du entfernen möchtest mit Replace(tabellenblatt.name, "XYZ","") erreichen (falls vn VBA die Rede ist).

Schräubchen

Betrifft: AW: Sheetname; Gegenteil von &
von: goli
Geschrieben am: 27.11.2003 11:38:08
Hallo,
ich glaube da fehlt auf der rechten Seite die Zuweisung(?)
Replace(tabellenblatt.name, "XYZ","") =tabellenblatt.name (?->läuft nicht mit und nict ohne =...)

Gruß
Goli

Betrifft: AW: Sheetname; Gegenteil von &
von: Schräubchen
Geschrieben am: 27.11.2003 13:55:54
Ich würde das = auf die linke Seite setzen ;o)).

ActiveWorkbook.Sheets(1).Name = Replace(ActiveWorkbook.Sheets(1).Name,"XYZ","")

Gruß

Schräubchen

Betrifft: Wahnsinn !!! In 28 Sek. 3 Antworten *g* o.w.T
von: Gabor
Geschrieben am: 27.11.2003 11:19:58
-)

Betrifft: AW: Wahnsinn !!! In 28 Sek. 3 Antworten *g* o.w.T
von: golem
Geschrieben am: 27.11.2003 11:25:01
Das istwirklich wahnsinn!
Spitzen Forum!

DANKE euch allen!