Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Namensliste

Namensliste
17.10.2006 20:25:49
Andreas
Hallo zusammen,
ich möchte aus einer Namensliste Tabellenblätter machen.
Es sollte wie folgt aussehen:
Ich habe einen Namen z.B. in I6, dann drücke ich auf einen
Button und es wird aus dem Namen ein Tabellenblatt.
Ist der Name schon vorhanden, dann soll er in das vorhandene
Tabellenblatt springen.
Wie schreibt man das in VBA?
Besten Dank im voraus
Andreas W.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Namensliste
17.10.2006 21:07:14
chris
Hallo so gehts.

Sub neu()
Dim var As String
On Error GoTo neu
var = ActiveCell.Text
Worksheets(var).Select
Exit Sub
neu:
Worksheets.Add
ActiveSheet.Name = var
End Sub

gruß Chris
AW: Namensliste
17.10.2006 21:25:26
UweD
Hallo
- Plaziere eine Schaltfläche aus Steuerelement Leiste auf dem Tabellenblatt
- doppelklick drauf und dann den Code reinkopieren

Private Sub CommandButton1_Click()
Dim Neu As Boolean
With Range("I6")
If .Value <> "" Then
On Error GoTo Fehler
Sheets(.Value).Select
If Neu = True Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = .Value
End If
End If
End With
Exit Sub
Fehler:
If Err.Number = 9 Then
Err.Clear
Neu = True
Resume Next
End If
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
neues Blatt gem. aktiver Zelle
17.10.2006 21:33:19
Beate
Hallo Andreas,
Sub Blatt_neu()
'Makro legt Blatt mit Namen gem. aktivem Zellwert an
'wenn dieses noch nicht existiert
'es wird zum Blatt gem. aktiver Zelle gewechselt
Dim Blattname As String
On Error Resume Next
Blattname = ActiveCell.Value
Worksheets.Add.Name = Blattname
Sheets(Blattname).Select
End Sub



Gruß,
Beate
Anzeige
AW: Namensliste
18.10.2006 06:25:58
Andreas
Hallo,
erstmal Danke dafür.
Ich werde es heute Abend gleich probieren.
Gruß
Andreas W.

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige