Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:58:59
Daten einfügen aus anderem Sheet
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink zwischen Zelle und Reitername

Hyperlink zwischen Zelle und Reitername
29.08.2015 00:31:39
Marcus
Guten Abend,
ich habe folgende Herusforderung:
Ich lasse über eine Inputbox einen Namen eingeben (z.B. Marcus). Ist dieser Name (Marcus) im Reiter Überischt in der Spalte A vorhanden, dann wird ein neuer Reiter angelegt, der den eingegbenen Namen (Marcus) als Reiternamen bekommt. Soweit alles in Ordnung. Nun zu meiner Herausforderung:
Nun möchte ich, dass die Zelle, die den eingegebenen Namen (Marcus) in Spalte A im Reiter Übersicht hat, einen Hyperlink auf den Reiter "Marcus" bekommt. Also "STRG+K,Aktuelles Dokument,Zellbezug(z.B.Marcus)". So muss man nur auf den Namen in der Übersicht klicken und Excel springt auf den entsprechenden Reiter. Ist das machbar?
Ich bedanke mich für tolle Ideen und Vorschläge!
Marcus

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink zwischen Zelle und Reitername
29.08.2015 01:13:02
Sepp
Hallo Marcus,
Sub CreateSheetAndLink()
Dim vntRet As Variant, objSh As Worksheet
Dim strName As String

Do
  strName = Application.InputBox("Bitte geben Sie einen Namen ein", "Name", Type:=2)
  
  If strName = CStr(False) Then Exit Sub
  
  With Sheets("Übersicht")
    vntRet = Application.Match(strName, .Range("A:A"), 0)
    If IsNumeric(vntRet) Then
      Set objSh = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
      objSh.Name = .Cells(vntRet, 1).Text
      .Activate
      .Hyperlinks.Add .Cells(vntRet, 1), Address:="", _
        SubAddress:="'" & .Cells(vntRet, 1).Text & "'!A1"
      Exit Do
    Else
      MsgBox "Name nicht gefunden!"
    End If
  End With
Loop

Set objSh = Nothing
End Sub


Gruß Sepp

Anzeige
AW: Hyperlink zwischen Zelle und Reitername
29.08.2015 14:05:23
Marcus
Hallo Sepp,
vielen Dank für deine Hilfe. Sieht soweit gut aus. Ich habe das mal ausprobiert und es funktioniert auch.
Wenn ich nun an Stelle "Set objSh = ThisWorkbook.Worksheets.Add" kein neues Blatt, sondern ein Reiter "Vorlage" kopieren möchte, muss ich dann nur aus "Add" ein "Copy" machen bzw. "Worksheets ("Vorlage").Copy"? Hier kommt bei mir ein Fehler (Objekt fehlt), als ich dein Vorschlag anpassen wollte.
Ein anschließende Frage zum Thema Hyperlinks: Kann ich ganz am Anfang bzw. in einem anderen Schritt / Makro den Reiter "Übersicht" auf Hyperlinks prüfen lassen, die keinen Bezug mehr haben, also "Bezug ungültig"? Ich stell mir vor, dass z.B. i-wann mal der Reiter "Marcus" angelegt und auch der Hyperlink gemacht wurde, aber der Mitarbeiter Marcus dann nicht mehr im Unternehmen ist und der Reiter gelöscht wurde. Der Hyperlink gibt dann "Bezug ungültig" raus.
Viele Grüße und nochmals ein großes Dankeschön für die Hilfe!
Marcus

Anzeige
AW: Hyperlink zwischen Zelle und Reitername
29.08.2015 14:40:34
Sepp
Hallo Marcus,
das geht z. B. so.
Sub CreateSheetAndLink()
Dim vntRet As Variant, objSh As Worksheet
Dim strName As String
Dim objHL As Hyperlink, rng As Range

With Sheets("Übersicht")
  On Error Resume Next
  For Each objHL In .Hyperlinks
    If objHL.SubAddress <> "" Then
      Set rng = Nothing
      Set rng = Range(objHL.SubAddress)
      Err.Clear
      If rng Is Nothing Then objHL.Delete
    End If
  Next
  On Error GoTo 0
  strName = Application.InputBox("Bitte geben Sie einen Namen ein", "Name", Type:=2)
  Do
    If strName = CStr(False) Then Exit Sub
    vntRet = Application.Match(strName, .Range("A:A"), 0)
    If IsNumeric(vntRet) Then
      On Error Resume Next
      Set objSh = Sheets(.Cells(vntRet, 1).Text)
      Err.Clear
      On Error GoTo 0
      If objSh Is Nothing Then
        ThisWorkbook.Worksheets("Vorlage").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        Set objSh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        objSh.Name = .Cells(vntRet, 1).Text
        objSh.Visible = xlSheetVisible
      End If
      .Activate
      .Hyperlinks.Add .Cells(vntRet, 1), Address:="", _
        SubAddress:="'" & objSh.Name & "'!A1"
      Exit Do
    Else
      MsgBox "Name nicht gefunden!"
    End If
  Loop
End With

Set objSh = Nothing
End Sub



Gruß Sepp

Anzeige
Achtung! nimm diesen Code!
29.08.2015 14:54:23
Sepp
Hallo Marcus,
der vorherige Code läuft in eine Endlos-Schleife.
Sub CreateSheetAndLink()
Dim vntRet As Variant, objSh As Worksheet
Dim strName As String
Dim objHL As Hyperlink, rng As Range

With Sheets("Übersicht")
  On Error Resume Next
  For Each objHL In .Hyperlinks
    If objHL.SubAddress <> "" Then
      Set rng = Nothing
      Set rng = Range(objHL.SubAddress)
      Err.Clear
      If rng Is Nothing Then objHL.Delete
    End If
  Next
  On Error GoTo 0
  
  Do
    strName = Application.InputBox("Bitte geben Sie einen Namen ein", "Name", Type:=2)
    If strName = CStr(False) Then Exit Sub
    vntRet = Application.Match(strName, .Range("A:A"), 0)
    If IsNumeric(vntRet) Then
      On Error Resume Next
      Set objSh = Sheets(.Cells(vntRet, 1).Text)
      Err.Clear
      On Error GoTo 0
      If objSh Is Nothing Then
        ThisWorkbook.Worksheets("Vorlage").Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        Set objSh = ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        objSh.Name = .Cells(vntRet, 1).Text
        objSh.Visible = xlSheetVisible
      End If
      .Activate
      .Hyperlinks.Add .Cells(vntRet, 1), Address:="", _
        SubAddress:="'" & objSh.Name & "'!A1"
      Exit Do
    Else
      MsgBox "Name nicht gefunden!"
    End If
  Loop
End With

Set objSh = Nothing
End Sub


Gruß Sepp

Anzeige
AW: Achtung! nimm diesen Code!
29.08.2015 22:36:08
Marcus
Hallo Sepp,
das Makro läuft SUPER! Vielen Dank für die Hilfe.
Viele Grüße
Marcus

300 Forumthreads zu ähnlichen Themen

unterschiedliche Buchstaben in Textzellen finden
Rob

Liebe xls-Profis,
ich muss Kunden-Stammdaten von 2 Datenbanken vergleichen u habe folgende Aufgabe:
2 Textzellen miteinander vergleichen und Unterschiede finden und markieren.
Einfache Beispiele:
A1 B1
Huber Hubber hier sollte in der Zelle B1 z.B. mit be...
20.08.2008 10:26:10
Thread-ID: 1003114
8 Beiträge
Anzeige
Arbeitsblattnamen in Zelle auslesen
Lemmi

Hallo zusammen,
ich möchte ein Arbeitsblatt auf das vorher gehende Arbeitsblatt referenzieren!
Meine Datei ist folgendermaßen Strukturiert:
Arbeitsblatt 1 : Tabelle A
Arbeitsblatt 2 : Tabelle A+ Adressen
Arbeitsblatt 3 : Tabelle B
Arbeitsblatt 4 : Tabelle B+ Adressen
30.08.2008 07:38:00
Thread-ID: 1006010
6 Beiträge
Sheet-Name einer Variablen zuweisen
TommiH

Hallöchen,
hmm, bei dieser Variante bekomme ich eine Fehlermeldung, die mir allerdings nicht wirklich hilft, den Fehler zu finden. Was mache ich da falsch?
Dim v1 As String
v1 = ActiveSheet.Name
Sheets.Add After:=v1
ActiveSheet.Name = "Dummy"
Worksheets(v1).Activate
...
01.09.2008 11:04:00
Thread-ID: 1006356
4 Beiträge
Anzeige
Zellinhalt aufgrund Sheetname und Zelle ermitteln
Peter

Guten Tag
Wahrscheinlich stehe ich mir selbst auf der Leitung.
Mit Hilfe der String-Variablen strTab (enhaltend der Worksheet-Name) und strZelle (enthaltend die Zelladresse, z.B. A3) möchte ich den Wert der entsprechenden Zelle (Text) ermitteln und der Variable strContent zuweisen.
...
11.09.2008 10:31:00
Thread-ID: 1009001
3 Beiträge
Namen anderer Excel-Datei in Zelle übernehmen
alphaomega

Hallo,
ich habe hier Excel 2002 und 12 Excel-Dateien mit den Namen 2008-01, 2008-02, ..., 2008-12.xls.
Nun möchte ich eine weitere Excel-Datei als Übersicht anlegen, wo einige Daten aus den o.g. Zellen übernommen werden sollen. Wie das geht, weiß ich bereits: Das geht manuell durch copy...
19.09.2008 10:33:37
Thread-ID: 1010950
3 Beiträge
Zelle A2 in Tabelle "Daten" ansprechen
Wolfgang

Hallo,
mit untenstehendem Auszug aus einem Code wird ein Textfeld in einem UF mit Daten aus einem anderen Textfeld des UF "beschickt"; Was müßte ich verändern (kriege das nicht hin), wenn ich nun das ausgeblendete Tabellenblatt "Daten" ansprechen möchte und den Inhalt aus "A2" importieren m...
23.09.2008 09:01:00
Thread-ID: 1011622
4 Beiträge
Name der Checkbox in eine Zelle
Reinhardt

Hallo,
ich habe gleich zwei Fragen:
1) Nach anklicken einer Checkbox soll diese Ihren Namen in Zelle A1 schreiben.
z.B. CheckBox12 Wie geht das?
2) Nach dem anklicken der Box hat diese ein Häckchen.
Dieser soll nach dem Anklicken gleich wieder verschwinden.
Wer kan...
06.10.2008 14:22:26
Thread-ID: 1014444
2 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
5
5
3
2
2
2
3
1
3
1
4
3
6
3
1
11
8
4
5
14
8
6
3
6