Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Frage zu: [Excel] Tab.bl. automatisch beschriften
#1
Hallo

Link zum Original-Beitrag: http://www.clever-excel-forum.de/showthr...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?
?mage
to top
#2
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?


GrußformelBeverly's Excel - Inn
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
to top
#3
Hallo

Link zum Original-Beitrag: http://www.clever-excel-forum.de/showthr...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
?mage
?mage
to top
#4
Hi,

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


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

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#5
(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?
?mage
to top
#6
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?
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#7
(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.
?mage
to top
#8
(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
?mage
to top
#9
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


GrußformelBeverly's Excel - Inn
Ein Fragesteller sollte Antworten gründlich und komplett lesen und nicht nur die für ihn angenehmen Teile.
to top
#10
Wink 
Hi Beverly,
(18.04.2014, 12:07)Beverly schrieb: folgenden Code
so dachte ich es mir.
Ihr seid Profi's
Danke Beverly 18
?mage
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Excel Listen automatisch miteinander abgleichen Kickban 7 137 05.11.2016, 16:28
Letzter Beitrag: schauan
  x-Achse individuell "skalieren" bzw. beschriften Excel_Matze 1 88 20.10.2016, 20:33
Letzter Beitrag: Excel_Matze
  Excel Spalten nach Datum automatisch ausblenden yukie243 2 128 07.10.2016, 08:00
Letzter Beitrag: yukie243
  E-Mail automatisch aus Excel versenden Garfield123 31 890 20.09.2016, 18:21
Letzter Beitrag: Käpt'n Blaubär
  FRAGE:excel letzte belegte zellen koordinate ermitteln CherryX 8 266 16.09.2016, 10:43
Letzter Beitrag: steve1da
Sad Excel file automatisch per GMAIL versenden (?) alexander.liedauer 16 503 17.08.2016, 18:54
Letzter Beitrag: RPP63
  gestapeltes Balken (Gantt-) Diagramm beschriften Eigilmaus 8 328 09.08.2016, 15:42
Letzter Beitrag: Eigilmaus
  Frage zu Datenbankerstellung in Excel Anton-S81 9 620 05.04.2016, 21:39
Letzter Beitrag: Rabe
  Monatsdatei automatisch beschriften mfk 9 552 10.01.2016, 19:43
Letzter Beitrag: mfk
  Excel Daten bei Neueingabe automatisch in ein anderes Datenblatt übertragen Zenon 47 5.144 05.01.2016, 05:47
Letzter Beitrag: Zenon

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste