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

[Heinz007]

Hallo zusammen,

ich bin neu hier im Forum hoffe aber trotzdem, dass mir jemand bei meinen Problem helfen kann.

Ich möchte Lagerplätze in Excel anlegen die dieses Format haben sollen:

10-1-1

10 = Gasse

erste 1 = Turm

zweite 1 = Platz

Gassen gibt es 5 mal also 10; 11; 12; 13; 14

Türme gibt es 24

und Plätze immer 8

Ich möchte jetzt die Plätze 10-1-1 bis 14-24-8 anlegen, bekomme das aber absolut nicht hin...

habt ihr eine Idee wie ich dieses Problem gelöst bekomme? (am besten ohne VBA)


Ich bin für jede Antwort sehr dankbar :)

Liebe Grüße
Heinz

[BoskoBiati]

Hi,

ungetestet:

Code:

=WENN(ZEILE(A1)>960;"";TEXT(KÜRZEN((ZEILE(A1)-1)/192;)+10;"00")&"-"&KÜRZEN((ZEILE(A1)-1)/8;)+1&"-"&REST(ZEILE(A1)-1;8)+1)

[WillWissen]

Hallo Heinz,

gelöscht - Edgar hat's verstanden.

[Helvetier]

Hallo Heinz, oder kannst Du Dein Problem lösen, indem Du die Zelle als Text formatierst (vor dem Befüllen der Zellen!).

[Kuwer]

Hallo Heinz,

per VBA z.B. so:

Sub LagerplaetzeAnlegen()
  Dim i As Long, j As Long, k As Long, l As Long
  For i = 10 To 14
    For j = 1 To 24
      For k = 1 To 8
        l = l + 1
        Cells(l, 1).Value = "'" & i & "-" & Format(j, "00-") & k
      Next k
    Next j
  Next i
End Sub

Gruß Uwe

[BoskoBiati]

Hi,

getestet:

Code:

=WENN(ZEILE(A1)>960;"";TEXT(KÜRZEN((ZEILE(A1)-1)/192;)+10;"00")&"-"&REST(KÜRZEN((ZEILE(A1)-1)/8;);24)+1&"-"&REST(ZEILE(A1)-1;8)+1)

[Heinz007]

Ich bin jetzt wirklich schwer beeindruckt von diesem Forum :)
So schnelle Antworten und beide funktionieren perfekt.

Ich danke euch von ganzem Herzen, ihr habt mir sehr viel Arbeit erspart.

Liebe Grüße
Heinz

[Heinz007]

Hallo zusammen,

ich bräuchte nochmal eure Hilfe.
ich war letztes mal so fasziniert von der Einfachheit der VBA Lösung, dass ich mich selbst ein wenig damit auseinandergesetzt habe.
Ich bin wirklich absoluter Anfänger und habe eigentlich keine Ahnung, habe aber trotzdem ein wenig herumgespielt.


Mein Ziel war es, für jede Gasse ein neues Worksheet anzulegen, hier mein Versuch :)


Sub LagerplaetzeAnlegen()
  Dim i As Long, j As Long, k As Long, l As Long, m As Long
         
For i = 10 To 14 'Gasse
    For k = 1 To 5   'Ebene
   
        For j = 1 To 25 Step 2  'Turm
            For m = 1 To 8   'Platz
           
If j = 25 Then j = 2
           
If j = 24 And i = 1 And m = 8 Then Worksheets.Add
            
    l = l + 1
    Cells(l, 1).Value = "'" & i & "-" & Format(j, "00-") & k & "-" & m
             
            Next m
        Next j
    Next k
Next i
End Sub



Könnt ihr mir dabei helfen und vielleicht auch ein paar Worte dazu schreiben?

Vielen Dank

Liebe Grüße
Heinz

[Kuwer]

Hallo Heinz,

Mein Ziel war es, für jede Gasse ein neues Worksheet anzulegen, ... :)

dann einfach so:

Sub LagerplaetzeAnlegen()
 Dim i As Long, j As Long, k As Long, l As Long
 Dim oWs As Worksheet
 Set oWs = ActiveSheet
 For i = 10 To 14
   'Blatt für die Gasse wird erzeugt und hinter dem letzten Blatt platziert
   With Worksheets.Add(After:=Worksheets(Worksheets.Count))
     .Name = "Gasse " & i
   End With
   For j = 1 To 24
     For k = 1 To 8
       l = l + 1
       oWs.Cells(l, 1).Value = "'" & i & "-" & Format(j, "00-") & k
     Next k
   Next j
 Next i
End Sub

Gruß Uwe

[Heinz007]

Hallo Uwe,

vielen Dank für deine Antwort.

Ich glaube ich habe mich falsch ausgedrückt...

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.
Also Sheet: "Gasse 10" Plätze 10-1-1 bis 10-24-8, Sheet: "Gasse 11" Plätze 11-1-1 bis 11-24-8 ...

Könntest du dir das bitte nochmal anschauen?

Liebe Grüße
Heinz