Jump to content
Saufi666

VBA- Anhang von Tabelle Arbeitsplatt erzeugen und Link setzten

Empfohlene Beiträge

Hallo liebe Kollegen,

 

ich habe eine Tabelle A6-Axxxx aus diesen lasse ich per VBA Tabellenblätter erzeugen.

 

Sub x()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean

Set Bereich = Range("A6:A" & Range("A65536").End(xlUp).Row)
  
For Each Zelle In Bereich

    For i = 2 To Worksheets.Count
        If Worksheets(i).Name = Zelle.Value Then
            Bool = True
            Exit For
        Else
            Bool = False
        End If
    Next i
     
    If Bool = False Then
        Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
        nWS.Name = Zelle.Value
    End If
     
Next Zelle

End Sub

meine Ahnung von VBA beschränkt sich auf ich Google mein Problem und hoffe das es was fertiges gibt. 

 

Ich würde gerne nun Alle Zeilen A6-Axxx auch gleich mit einem Link versehen der auf die Seite springt. 

 

optional wäre natürlich dann in Zelle A1 ein Button/Link für Zurück.

 

Der Code oben hat auch den Fehler das er sollte er nichts anlegen können eine Blatt eröffnet mit einer Zahl. (stört mich aber eigentlich relativ wenig)

 

 

Das mache ich bissher von Hand

 

 

Wenn mir jemand helfen könnte wäre super.

 

Danke für eure Hilfe

 

Saufi666

 

Ic

bearbeitet von Saufi666

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

Hi,

die Blattnamen sind von der Länge beschränkt, daher evtl. der Fehler.

Zu Deiner Link-Frage: Eine einfache Möglichkeit, sowas ohne Google hinzubekommen: Ein Makro aufzeichnen und das ausführen, was Du vor hast (also nen Link setzen).

Der Code sieht hinterher in etwa so aus:

    Range("A6").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        "Blubb!A1", TextToDisplay:="Blubb"

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen

Hallo Cybquest,

 

naja Die Sheets haben ca. 12 Buchstaben als Beschriftung.

 

Ich habe auch kein Problem die von Hand zu setzten die links, aber ich dachte vielleicht könnte man das auch mit der Erstellung der Seiten machen.

 

Grüße Saufi666

Diesen Beitrag teilen


Link zum Beitrag
Auf anderen Seiten teilen
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Erstelle ein Benutzerkonto oder melde dich an, um zu kommentieren

Du musst ein Benutzerkonto haben, um einen Kommentar verfassen zu können

Benutzerkonto erstellen

Neues Benutzerkonto für unsere Community erstellen. Es ist einfach!

Neues Benutzerkonto erstellen

Anmelden

Du hast bereits ein Benutzerkonto? Melde dich hier an.

Jetzt anmelden

×