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?
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">
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]
Hi,
solltest du alle Konventionen bzgl. Tabellenblattbeschriftung selbst einhalten (durch entsprechenden Eintrag in der Dropdownliste), dann reicht m.E. das angehängte Beispiel.
[
attachment=91]
(18.04.2014, 11:19)WillWissen schrieb: [ -> ]dann reicht m.E. das angehängte Beispiel.
Hallo WillWissen
soweit klar, nur, ein neues/weiteres Tab.bl. generieren mit Auswahl aus Dropfeld?
Hi Frank,
bitte präzisiere doch, was du mit
Zitat: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?
(18.04.2014, 11:30)WillWissen schrieb: [ -> ]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.
(18.04.2014, 10:03)Beverly schrieb: [ -> ]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
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">