title image


Smiley Re: Ein paar Fragen hätte ich mal dazu
Hallo Thomas,

im folgenden Code heißt das Ausgangsblat mit den Stammdaten Daten und das zu bildende Blatt Extrakt. Ich gehe davon aus, das beide Blätter vorhanden sind:





      

Sub ExtraktBilden()



    Dim ws1 As Worksheet, ws2 As Worksheet

    Dim I As Long, J As Long

    Dim Durchlauf As Integer

    Dim merker

    

    Set ws1 = ActiveWorkbook.Worksheets("Daten")

    Set ws2 = ActiveWorkbook.Worksheets("Extrakt")

    

    'Löschen alten Inhalt aus dem Extrakt

    ws2.Cells.Delete

    

    I = 1: J = 0

    Do Until ws1.Cells(I, 1).Value = ""

       If ws1.Cells(I, 1) <> merker Then

          merker = ws1.Cells(I, 1)

          J = J + 1

          Durchlauf = 0

          ws1.Rows(I).Copy Destination:=ws2.Range("A" & J)

       Else

          ws2.Cells(J, 9 + 4 * Durchlauf) = ws1.Cells(I, 2)

          ws2.Cells(J, 10 + 4 * Durchlauf) = ws1.Cells(I, 5)

          ws2.Cells(J, 11 + 4 * Durchlauf) = ws1.Cells(I, 6)

          ws2.Cells(J, 12 + 4 * Durchlauf) = ws1.Cells(I, 8)

          Durchlauf = Durchlauf + 1

       End If

       I = I + 1

    Loop



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Ist es ungefähr das, was dir vorschwebt?

Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: