Frage zu: [Excel] Tab.bl. automatisch beschriften

[WergibtmirRat]

Hallo

Link zum Original-Beitrag: http://www.clever-excel-forum.de/showthread.php?tid=190&pid=920#pid920

Sehr interessant
wie vorgehen um ein neues Tabellenblatt mit Zelleninhalt in B2 (dropdown) generieren?
Dropdownliste ab c2 im 28Tagerythmus (12.04; 10.05 ...)

Wäre das machbar?

[Beverly]

Hi Frank,

dein Beitrag gehört eigentlich in das Forum Excel, denn du möchtest eine Lösung zu einem Problem in deiner Arbeitsmappe. Dieses Forum hier ist aber - soweit man das bisher verstehen sollte - NUR für die Diskussion (also Ergänzungen, Änderungen, Hinweise) zu den im Forum "mit VBA" (und anderen Unterforen) geposteten Beispielen.

Nun zu deiner Frage: soll das DropDown-Listenfeld nur in einem Tabellenblatt vorhanden sein und du möchtest ein neues Tabellenblatt immer durch Auswahl in diesem einen DropDown-Listenfeld erstellen?

---

Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="left" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="middle" alt="Beverly's Excel - Inn">

[WergibtmirRat]

Hallo

Link zum Original-Beitrag: http://www.clever-excel-forum.de/showthread.php?tid=190&pid=920#pid920

schade nur das man im Forumsteil (mit VBA) keinen Beitrag schreiben darf.

Frage zu:Tab.bl. automatisch beschriften
Sehr interessant
wie vorgehen um ein neues Tabellenblatt mit Zelleninhalt in B2 (dropdown) generieren?
Dropdownliste ab c2 im 28Tagerythmus (12.04; 10.05 ...)

Wäre das machbar?

Link zum Originalbeitrag eingefügt.
Moderator [Bild: smilie.php?smile_ID=1810]

[WillWissen]

Hi,

solltest du alle Konventionen bzgl. Tabellenblattbeschriftung selbst einhalten (durch entsprechenden Eintrag in der Dropdownliste), dann reicht m.E. das angehängte Beispiel.


  Tabellenblattbeschriftung-2.xlsm (Größe: 16,11 KB / Downloads: 10)

[WergibtmirRat]

dann reicht m.E. das angehängte Beispiel.

Hallo WillWissen

soweit klar, nur, ein neues/weiteres Tab.bl. generieren mit Auswahl aus Dropfeld?

[WillWissen]

Hi Frank,

bitte präzisiere doch, was du mit

ein neues/weiteres Tab.bl. generieren mit Auswahl aus Dropfeld

meinst.

So, wie ich es verstehe, willst du ein neues Tabellenblatt in deiner Datei einfügen und es automatisch mit dem ausgewählten Eintrag aus deiner Dropbox beschriften lassen. Woher soll das neu eingefügte Blatt den Inhalt hernehmen?

[WergibtmirRat]

Woher soll das neu eingefügte Blatt den Inhalt hernehmen?

Hallo,
aus dem Zellenwert von B2.
Wenn z.b. ein neuer Kegelabend hinzugefügt werden soll, per copy & paste die Muster- oder Vorlagedaten aus dem Stammdatentabellenblatt einzupflegen.
Der schon bestehende Kegelabend (Tab.bl.) soll unangetastet bleiben.
Ich könnte mir das so vorstellen, das:
- Ergebnisbl. erhält von jeden Datumsbl. immer die gleichen Werte der gleichen Zellen (z.b. sverweis Tabellenbl. 12.04; Auswahlkriterium Kegler1 Spalte 2) - Wenn Tab.bl. 07.06. nicht vorhanden; 0)
- Auswertung der schon belegten Kegelterminen

irgendwie so.
Ob das nun logisch erscheint oder praktikabel ist. Ich weis es nicht, denke nur mal.

[WergibtmirRat]

soll das DropDown-Listenfeld nur in einem Tabellenblatt vorhanden sein und du möchtest ein neues Tabellenblatt immer durch Auswahl in diesem einen DropDown-Listenfeld erstellen?

Hi Beverly
die Frage wurde gestern nicht angenommen oder musste/sollte erst überprüft werden.
Thema ist nun 2mal vorhanden. Siehe fast identischen Aussagetexte der Threads

Kurze Antwort - ja

Thema schliessen, bitte

[Beverly]

Hi Frank,

kopiere folgenden Code ins Codemodul des Tabellenblattes mit deinem DropDown-Listenfeld:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim strTabelle As String
    Dim bytErlaubt As Byte
    If Target.Count = 1 Then
      If Target.Address = "$B$2" Then
         Application.EnableEvents = False
         If Len(Target.Value) > 31 Then
            MsgBox "Name darf nicht mehr als 31 Zeichen beinhalten"
            Range("B2").ClearContents
         ElseIf InStr(Target, "/") > 0 Or InStr(Target, "?") > 0 Or InStr(Target, ":") > 0 _
            Or InStr(Target, "\") > 0 Or InStr(Target, "*") > 0 Or InStr(Target, "[") > 0 _
            Or InStr(Target, "]") > 0 Then
            MsgBox "Name enthät nicht zulässige Zeichen"
            Range("B2").ClearContents
         ElseIf Not IsError(Application.Evaluate(Target.Value & "!A1")) And strTabelle <> Target.Value Then
            MsgBox "Diese Tabelle gibt es schon"
            Range("B2").ClearContents
         ElseIf ActiveSheet.Name <> Target.Value And Target <> "" Then
            Worksheets.Add after:=Worksheets(Worksheets.Count)
            Worksheets(Worksheets.Count).Name = Target.Value
         End If
         Application.EnableEvents = True
      End If
    End If
End Sub

---

Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="left" alt="Grußformel">Dateiupload bitte im Forum! So geht es: Klick mich!
" height=35" align="middle" alt="Beverly's Excel - Inn">

[WergibtmirRat]

Hi Beverly,

folgenden Code

so dachte ich es mir.
Ihr seid Profi's
Danke Beverly :18: