dynamisch buttons erstellen

Moin Leute, ((Sorry, ich weiss - viel zu lesen - aber ich wollte möglichst präzise erklären))
ich hab ein wenig rcherchiert und möchte nur gerne wissen ob ich vielleicht was übersehen habe.
Vielleicht kann mir jemand sagen ob es doch noch eine andere gangbare Möglichkeit gibt.
Mein derzeitiger Wissensstand bzw. Fähigkeiten:
Ich kann per Button ein neues Sheet erstellen (Kopie eines MASTERSHEETS). Gleichzeitig wird ein Ordner mit dem Sheetnamen erstellt. Das Sheet enthält immer eine Liste mit Einträgen. Für jeden Eintrag wird ein Unterordner mit entsprechendem Namen erstellt und mit dem Namen in der Liste verlinkt.
Aber Hyperlinks sehen doof aus und der User muss sie beim anklicken auch gut treffen.
Nun meine Idee:
Meine Idee war, automatisch für jeden Eintrag in der Liste automatisch ein Button zu erstellen diese sauber untereinander zu sortieren und entsprechen der Namen mit den ebenfalls erstellten Unterordnern zu verbinden.
Das Problem: Die besagte Liste befindet sich in dem MASTERSHEET und KANN sich auch ändern - also weniger oder mehr Einträge.
Es ist aber nicht erforderlich die bereits existierenden Ordner abzuändern. Nur jeder neuer Vorgang - also neues Sheet soll dann halt die geänderten Parameter (Menge der Buttons und Bezeichnung) befolgen.
Meine Recherche:
Das alles soll aber wohl nicht sooo einfach sein, viel Können erfordern und wenn ich das richtig rausgelesen habe sehr fehleranfällig sein.
Ist das so korrekt?
Zwischenlösung:
Als Zwischenlösung überlegte ich mir, das ich einfach in dem MASTERSHEET, sagen wir mal 10Buttons vorbereite.
Wird dann ein neues Sheet erstellt, wird ja auch die Liste mit übernommen. Über eine Schleife werden dann Name und Verknüpfung mit den Unterordnern übernommen und zum Schluss die nicht benötigten Buttons gelöscht. Das beschränkt mich zwar auf die vordefinierten 10 Unterordner aber ich denke das ist immernoch flexibel genug.
Die Spalte mit den Hypelinks könnte ich dann ja entweder direkt mit dem Makro löschen (und mir damit auch den Code für die Hyperlinks sparen) oder einfach die Spalte ausblenden.
Es wäre schön jemand würde sein Wissen mit mir teilen und/oder seine Meinung dazu kundtun. Ich nehme auch gerne was zum lesen. Vielleicht hat ja auch jemand eine wesentlich bessere Idee.
Ich bin dankbar für jeden Input
Liebe Grüße
Steve

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub worksheet_beforedoubleclick _ (ByVal target As Excel.Range, cancel As Boolean) Dim strpfad As String strpfad = ThisWorkbook.Path If Not Intersect(target, [N_NEU]) Is Nothing Then cancel = True ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=strpfad & "\Ordner\" & target. _ Value, _ TextToDisplay:=target.Value End If End Sub

Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strPfad As String, strDatei As String If Target.Column = 2 And Target.Row > 6 Then If Target "" Then Cancel = True strPfad = ThisWorkbook.Path & "\" strDatei = Target & ".xlsx" On Error GoTo Ausgang Workbooks.Open (strPfad & strDatei) Exit Sub Else Exit Sub End If End If Ausgang: On Error GoTo 0 MsgBox "Fehler: Die Datei " & Target & " existiert nicht." End Sub

Moin Werner,
Die Antwort ist einfach. Ich hielt es zunächst für eine gute Idee und wurde dann eines besseren belehrt.
Ich hab die Schriftgrösse recht klein und linksbündig gemacht. Ist nun das Wort auch noch kurz verändert sich der Mauszeiger (bei einer dynamischen Tabelle) in einen schwarzen Pfeil nach rechts. Das hat zu Folge das man nicht sauber den hyperlink verwenden kann.
Das fand ich bei den Tests sehr unbefriedigend und suchte fortan nach einer besseren Lösung.
Ich danke dir für deinen Beitrag (und das hinterfragen - etwas das immer sehr gut ist um seine eigene Ansicht auf den Prüfstand zu stellen)
Bei deiner Version wird ja schlussendlich eine Datei geöffnet aber ich möchte einen Ordner öffnen.
Aber das glaube ich, bekomme ich angepasst.
In dem unteren Bereich der Fehlerbearbeitung sollte ich dann ja eigentlich gut die Abfrage ob der noch nicht existierende Ordner erstellt werden soll, reinbekommen denke ich.
Das werde ich morgen mal ausprobieren und dann eine Rückmeldung geben.
Vielen lieben Dank und einen schönen Sonntag Abend.
Steve

Private Sub worksheet_beforedoubleclick(ByVal target As Range, cancel As Boolean) Dim strpfad As String Dim anlegen As Long If Not Intersect(target, [N_NEU]) Is Nothing Then cancel = True strpfad = ThisWorkbook.Path & "\Ordner\" On Error GoTo Ausgang ChDir strpfad & target Application.Dialogs(xlDialogOpen).Show Exit Sub Else Exit Sub End If Ausgang: On Error GoTo 0 anlegen = MsgBox(Prompt:="Soll der Ordner """ & target & """ angelegt werden?", _ Buttons:=vbYesNo + vbQuestion) If anlegen = vbNo Then Exit Sub Else MkDir (strpfad & target) ChDir strpfad & target Application.Dialogs(xlDialogOpen).Show End If End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim strpfad As String If Not Intersect(Target, [N_NEU]) Is Nothing Then If Target "" Then Cancel = True strpfad = ThisWorkbook.Path & "\Ordner\" If Dir(strpfad & Target, vbDirectory) "" Then ChDir strpfad & Target Application.Dialogs(xlDialogOpen).Show ElseIf MsgBox(Prompt:="Soll der Ordner """ & Target & """ angelegt werden?", _ Buttons:=vbYesNo + vbQuestion) = vbYes Then MkDir (strpfad & Target) ChDir strpfad & Target Application.Dialogs(xlDialogOpen).Show End If End If End If End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread