Namensliste

Forumthread: Namensliste
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Namensliste

Namensliste

17.10.2006 22: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

AW: Namensliste

17.10.2006 23:07:14

chris
AW: Namensliste

17.10.2006 23:25:26

UweD
neues Blatt gem. aktiver Zelle

17.10.2006 23:33:19

Beate
AW: Namensliste

18.10.2006 08:25:58

Andreas

AW: Namensliste

17.10.2006 23: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 23: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)

neues Blatt gem. aktiver Zelle

17.10.2006 23: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

AW: Namensliste

18.10.2006 08:25:58

Andreas

Hallo,
erstmal Danke dafür.
Ich werde es heute Abend gleich probieren.
Gruß
Andreas W.