Office: Regal befüllen VBA

Hallo Manuel,

vielleicht reich schon folgende Änderung.

Code:

'                           ar1 = Application.WorksheetFunction.CountIf(Range(Cells(1, 1), Cells(b * c, a)), Sheets("Datentabelle").Cells(z, 2))
'                            If ar1 = 0 Then
                                Cells(y, x).Value = Sheets("datentabelle").Cells(z, 2).Value
'                                Exit For
'                            End If

Gruß Hajo

 

Hallo!

du meinst das auskommentieren folgender Zeilen?

Hab ich grad probiert geht leider nicht...
Gruß

 

Hallo Manuel,

Code:

Sub Einlagern()
    Dim Loi As Long
    Dim LoJ As Long
    Dim Lok As Long
    Dim LoLetzte As Long
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
    For Loi = 2 To LoLetzte
        If Lok = 9 Then
            Lok = 0
            LoJ = LoJ + 1
        End If
        Worksheets("Positionen").Cells(LoJ + 1, Lok + 1) = Cells(Loi, 2)
        Lok = Lok + 1
    Next Loi
End Sub

Gruß Hajo

 

HI so sieht das doch schon echt super aus nur noch eine kleinigkeit:


DU befüllst das komplette Regal von links nach rechts
ich sollte es aber folgendermassen befüllen:

A1,A2,A3,B1,B2,B3,C1,C2,C3,D1,D2,D3,E1,E2,E3, usw


Aber sonst passt es perfekt vielen dank

 

Hallo Manuel,

ich habe es gefüllt wie es gefüllt war und wie es mir Formeln gefüllt wurde.
lösche

Code:

       If Lok = 9 Then 
            Lok = 0 
            LoJ = LoJ + 1 
        End If 

das war der falsche Ansatz

Gruß Hajo

 

Hallo Manuel,

Code:

Sub Einlagern2()
    Dim Loi As Long
    Dim LoJ As Long
    Dim Lok As Long
    Dim LoLetzte As Long
    LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
    For Loi = 2 To LoLetzte
        If Lok = 9 Then
            Lok = 0
            LoJ = LoJ + 3
        End If
        Worksheets("Positionen").Cells(LoJ + 1, Lok + 1) = Cells(Loi, 2)
        Worksheets("Positionen").Cells(LoJ + 2, Lok + 1) = Cells(Loi + 1, 2)
        Worksheets("Positionen").Cells(LoJ + 3, Lok + 1) = Cells(Loi + 2, 2)
        Lok = Lok + 1
        Loi = Loi + 2
    Next Loi
End Sub

Gruß Hajo