Lagerplätze anlegen 10-1-1 bis 14-24-8

[DbSam]

*hüstelhust*
Hoffentlich hast Du auch schon eine gute Suche integriert, welche Dir einen gewünschten Artikel in jedem Sheet sucht ...
Und ein 'Knöpfel', welches Dir die Lagerbestände aus allen Sheets zusammen auflistet ...


Gruß Carsten

PS:
Hier wäre der Weg über einen Filter eindeutig der bessere Weg.
Oder ich sehe das alles zu eng und zu beschränkt ...

[Heinz007]

Hallo Carsten,

die Lagerverwaltung läuft zum glück nicht über Excel :)
Ich benötige sie in dieser Form nur um sie an den "Drucker" zu übergeben damit sie in Klarschrift und Barcode gedruckt werden können.
Warum die nicht mit einem Startwert, Endwert und Inkrement arbeiten können weiß ich auch nicht :) 

Liebe Grüße
Heinz

[Kuwer]

Hallo Heinz,

Das Ergebnis soll sein, dass für jede Gasse ein Worksheet angelegt wird, und die Lagerplätze für jene Gasse auch dort hineingeschrieben werden.

dann wird es wieder einfacher:

Sub LagerplaetzeAnlegen()
  Dim i As Long, j As Long, k As Long, l As Long
  For i = 10 To 14    'Schleife für die Gassen
    'Blatt für die Gasse wird erzeugt und hinter dem letzten Blatt platziert
    Worksheets.Add After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = "Gasse " & i
    For j = 1 To 24   'Schleife für die Türme
      For k = 1 To 8  'Schleife für die Plätze
        l = l + 1     'Zeilenzähler wird um Eins erhöht
        Cells(l, 1).Value = "'" & i & "-" & Format(j, "00-") & k
      Next k
    Next j
    l = 0             'Zeilenzähler wird auf Null zurückgesetzt
  Next i
End Sub

Gruß Uwe

[DbSam]

Hallo Heinz,

gut, dann wirst Du wissen was Du machst.  :)


Gruß Carsten

*hüstel* PS:

Für irgendwelche Ausdrucke sollte ein Filter aber genauso gut funktionieren.

[Heinz007]

Hallo Uwe,

vielen Dank, funktioniert perfekt.
wieder so eine einfache geniale Lösung :)


Gruß
Heinz