Thema Datum  Von Nutzer Rating
Antwort
Rot Lagerkartei generieren (Schleifenproblem)
 06.03.2016 12:45:38 VBA_Noob
NotSolved
06.03.2016 14:12:10 Holger
NotSolved

Ansicht des Beitrags:
Von:
VBA_Noob		 Datum:
06.03.2016 12:45:38		 Views:
1022		 Rating:
     
Antwort:
  Ja
Thema:
Lagerkartei generieren (Schleifenproblem)

Hallo liebe VBA-Experten,

ich taste mich gerade an VBA mit Excel heran und möchte folgendes Problem lösen:

Es soll automatisch ein Blatt mit Lagerplätzen generiert werden.

Lagerplätze sind folgend aufgebaut:  Gasse | Platz | Fach    Bsp.: 10 | 009 | 1

Das Fach wird in unten (Bereich 1-5) und oben unterteilt (A bis Z). Beide "Facharten" sollen in eine Spalte geschrieben werden.

Der Code tut soweit was er soll, jedoch wird das Fach nicht richtig generiert. Es wird nur Fach oben erzeugt.

Für Tips wäre ich sehr dankbar!

 

Sub Lagerkartei()
Dim G As Integer 'Gasse
Dim P As Integer 'Platz
Dim R As Long    'Fach oben
Dim K As Integer 'Fach unten
Dim i As Long

Application.ScreenUpdating = False
 
i = 1
For G = 1 To 5
    For P = 1 To 100
        For K = 1 To 5
            For R = Asc("A") To Asc("D")
            
            With ActiveSheet
                .Range("A" & i + 1) = G
                .Range("B" & i + 1).Value = P
                .Range("C" & i + 1).Value = K
                .Range("C" & i + 1).Value = Chr$(R)
            End With
            i = i + 1
            Next R
        Next K
    Next P
Next G
 
Application.ScreenUpdating = True
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Lagerkartei generieren (Schleifenproblem)
 06.03.2016 12:45:38 VBA_Noob
NotSolved
06.03.2016 14:12:10 Holger
NotSolved