WCM Forum - Lagerliste mit Excel

WCM Forum (http://www.wcm.at/forum/index.php)

- Software (http://www.wcm.at/forum/forumdisplay.php?f=5)

- - Lagerliste mit Excel (http://www.wcm.at/forum/showthread.php?t=231847)

Lagerliste mit Excel

Ich brauche eine kleine Lagerverwaltung.
Nachdem ich von meiner vorigen Firma etwas Excel geschädigt bin, habe ich mit Excel folgendes probiert:
Ein Tabellenblatt mit der Sachnummer als Tabellenblattbezeichnung. Auf fixen Positionen sind Sachnummer, Produktbezeichnung, Lagerstand, Preis.
Da es sich um ca. 40 Positionen handelt, habe ich ein Tabellenblatt als Übersicht gemacht. Da habe ich die Sachnummer, Bezeichnung, Lagerstand, Preis in Tabellenform. Ich möchte jeden Eintrag als Hyperlink von jedem Tabellenblatt im Übersichtsblatt haben. Ich muss aber jeden Entrag manuell kopieren. Das finde ich ziemlich mühsam. Mit den üblichen Methoden bin ich angestanden.
Habt Ihr eine Lösung? VB und sonstige Programmierssprachen kann ich leider nicht.

Tja, wenn man weiß wie, ist es sicherlich leicht. Probiert habe ich es, mit meinem Minimalwissen darüber habe ich es nicht geschafft. Nachdem ich auch nicht die geeigneten Hilfe Themen gefunden habe, bin ich wiedereinmal an der Software gescheitert....

Tja wie hast du es in einem anderen Thread so treffend formuliert?;) Mir fehlen da ein bisschen die zusammenhänge oder so? Scheint dir ja auch net anders zu gehen!:p

Ich würde keine Minute Zeit in etwas investieren was es schon zigfach am Markt gibt.
Als Freeware z.B.: http://www.moware.at/freeware-warenw...-industrie.htm
oder kostengünstig http://wiso.buhl.de/WISO_Kaufmann_St...ibung.BuhlData

ausserdem gibts hunderte Excelvorlagen und fertige Tabellen.

Wo?;)
Wirklich?:rolleyes::eek:

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.

Code:

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

Danke an opa12 und wbendl. Werde ich beides ausprobieren!
Meine Erfahrung beim Suchen ist, wenn ich nicht weiß wo ich genau suchen soll und dann aus hunderten Möglichkeiten meine passende Lösung ertesten muß, habe ich soviel Zeit vertan, daß eine Krücke noch immer viel effizienter ist.

Zitat:

Zitat von wbendl (Beitrag 2325613)

Code:

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