Office: (Office 2007) Lagerorte erstellen

Folgendes Problem:

ich benötige für ein Lager alle mir zu verfügung stehenden Lagerorte.
Es sollte folgendermassen aussehen.

Zum Bsp. 001 19 43

die ersten 3 ziffern ist die gestellnummer (bis 399)
die zweiten 2 ziffern sind ablagen (bis 20)
die letzten 2 ziffern die fächer (bis 99)

da es ca. 790'000 Lagerorte geben wird, möchte ich diese natürlich nicht einzeln von hand eingeben müssen. habe mir darum versucht ein makro zu erstellen. nur klappt das überhaupt nicht. ich mache irgend etwas falsch. wie kann ich nun dies so automatisieren, dass mir alle lagerorte in einer excel liste erstellt werden.

:)

 

Moin,

folgender Code erzeugt eine Liste der Lagerorte. Ist das Ende eines Blattes erreicht, fügt er ein neues an. Die Ausführung dauert ein wenig.
Code:

 

Hi,

Hier mein Vorschlag, (Habe gerade gesehen, dass Sidewinder schneller war), trotzdem:

Sub Lager()
Dim g As Integer 'gestell
Dim a As Integer 'ablage
Dim f As Integer 'fach
Dim gx As String 'gestell mit Nullen
Dim ax As String 'ablage mit Nullen
Dim fx As String 'fach mit Nullen

Dim r As Long

Application.ScreenUpdating = False

Set Newsheet = Sheets.Add(after:=Sheets(Sheets.Count))
Newsheet.Name = "Lager ab 001 01 01"
Newsheet.Activate

r = 1
For g = 1 To 399
For a = 1 To 20
For f = 1 To 99
If g < 100 Then
gx = "0" & g
Else: gx = g
End If
If g < 10 Then gx = "00" & g
If a < 10 Then
ax = "0" & a
Else: ax = a
End If
If f < 10 Then
fx = "0" & f
Else: fx = f
End If
If r = 65537 Then
Set Newsheet = Sheets.Add(after:=Sheets(Sheets.Count))
Newsheet.Name = "Lager ab " & gx & " " & ax & " " & fx
Newsheet.Activate
r = 1
End If
Cells(r, 1) = gx & " " & ax & " " & fx
r = r + 1
Next f
Next a
Next g
Application.ScreenUpdating = True

End Sub

Gruß
Jan

@sidewinder oder @jinx:
wie stelle Code richtig in meine Antwort?
Gruß Jan

 

\@sidewinder oder @jinx:
Sorry, hab's gefunden! (Steht ja auch brettelbreit unten drunter!! Kann's aber leider nicht installieren, da neuerdings total beschnitten durch "Behörden-PC" in der Arbeit
Gruß Jan

 

Moin, Jan,

die [ Code ] bzw. [ /Code ] Anweisungen ohne Leerstellen dürfte aber von keiner Behörde blockiert werden. Wenn Du mir bitte einmal begründen könntest, warum ein neu angelegtes Blatt aktiviert werden muss - bei meinen Versionen (ich verwende aktiv nur 4) geschieht dies immer automatisch...

@André:
Früher hat man auch mal Überschriften verwendet *wink.gif*

Je nach Art der Verwendung würde ich dann auch nicht den gesamten zur Verfügung stehenden Platz auf den Tabellen nutzen, sondern nur 30 Gestelle pro Tabelle verwenden - das macht die Suche meiner Meinung nach einfacher.

 

Vielen dank an Euch für die super Codes. Ich hätte wahrscheinich schlaflose nächte verbracht um daran zu abreiten, um das so hinzubringen. nochmals ein danke von mir und ein schönens Wochenende.

 

\@jinx

Hi jinx
wir dürfen auf unseren PCs nichts mehr installieren (code Converter, etc...)

Wenn ich in der "normalen" Antwort den Code in [ Code ] bzw. [ /Code ] stelle wird er auch als code markiert?

Gruß
Jan

 

Moin, Jan,

Code:

Siehe vorstehenden Text: die Code-Anweisung ist Teil der Forensoftware - da muss nichts installiert werden.

 

Hi jinx

Sehr schön!
...wieder etwas schlauer geworden

Jan

 

Also irgendwie fehlt mir hier wohl was.
Ich komme immer noch nicht dahinter wie ihr es schafft den Code in so einem blauen Fenster einzustellen. Kann mir jemand ein Tip geben, wie ich das anstellen muss. Auch ich kann hier nichts installieren.

Harilo

 

Hallo

jetzt probier ich es auch mal

Code:

Toll!

Jan *Sun

 

\@ harilo

Du musst wirklich nur Code:

(ohne die Klammern) vor bzw. nach den Code stellen...

Jan

 

...oder auch nicht jinx?? (das mit den Klammern)

Gruß
Jan

 

hallo jan
code:
sub test()
msgbox "test"
end sub

einfach in den Text "Code:" eingeben?

 

hallo Harilo

am Anfang: Code in eckige klammern und am Ende /code auch in eckige Klammern...

Jan