Lagerliste mit Excel

[wbendl]

Hi!

Eigentlich ist Excel für deine Zweck nicht die Ideale Lösung. Aber jeder wie er will.

Hier ein Codebeispiel, wie du die Liste automatisiert erstellen kannst. Einfach in ein Modul kopieren. Anpassen sollte ganz leicht sein.

Option Explicit
 
'Dieser Code wird beim Öffnen der Arbeitsmappe ausgeführt
'Im 1. Blatt werden Hyperlinks zu allen anderen Tabellen angelegt
Sub Auto_Open()
  Dim intI As Integer
 
  'Bei Bedarf den Buchstaben für die Spalte anpassen
  'Die Spalte darf keine anderen Daten enthalten
  Const C_strSpalte As String = "A"
 
  With Worksheets(1)
    'Löschen der alten Einträge
    .Range(C_strSpalte & ":" & C_strSpalte).Clear
 
    'Für jede Tabelle außer der 1. einen Hyperlink anlegen
    For intI = 2 To ThisWorkbook.Worksheets.Count
      'Hyperlink erstellen
      'Bei Bedarf die Zielzelle anpassen
      .Hyperlinks.Add .Range(C_strSpalte & intI - 1), "", Worksheets(intI).Name & "!A1"
 
      'Name der Tabelle als Text des Hyperlinks verwenden
      'Hier könnte auch der Inhalt einer Zelle verwendet werden
      .Range(C_strSpalte & intI - 1).Value = Worksheets(intI).Name
    Next
  End With
 
  'Mappe speichern
  ThisWorkbook.Save
 
End Sub

mfg

WB

[Miguel]

Zitat von wbendl

Hi!

Eigentlich ist Excel für deine Zweck nicht die Ideale Lösung. Aber jeder wie er will.

Hier ein Codebeispiel, wie du die Liste automatisiert erstellen kannst. Einfach in ein Modul kopieren. Anpassen sollte ganz leicht sein.

Option Explicit
 
'Dieser Code wird beim Öffnen der Arbeitsmappe ausgeführt
'Im 1. Blatt werden Hyperlinks zu allen anderen Tabellen angelegt
Sub Auto_Open()
  Dim intI As Integer
 
  'Bei Bedarf den Buchstaben für die Spalte anpassen
  'Die Spalte darf keine anderen Daten enthalten
  Const C_strSpalte As String = "A"
 
  With Worksheets(1)
    'Löschen der alten Einträge
    .Range(C_strSpalte & ":" & C_strSpalte).Clear
 
    'Für jede Tabelle außer der 1. einen Hyperlink anlegen
    For intI = 2 To ThisWorkbook.Worksheets.Count
      'Hyperlink erstellen
      'Bei Bedarf die Zielzelle anpassen
      .Hyperlinks.Add .Range(C_strSpalte & intI - 1), "", Worksheets(intI).Name & "!A1"
 
      'Name der Tabelle als Text des Hyperlinks verwenden
      'Hier könnte auch der Inhalt einer Zelle verwendet werden
      .Range(C_strSpalte & intI - 1).Value = Worksheets(intI).Name
    Next
  End With
 
  'Mappe speichern
  ThisWorkbook.Save
 
End Sub

mfg

WB

eine Frage zu Deinem Beispiel: Wo gibt es eine online Ressource, die ein Tutorial für oder eine Übersicht über VBA gibt?

lg Miguel