title image


Smiley wenns weiter nix isch...
Hallo











Sub nüber()

Dim i As Long, j As Long

i = 1

j = 1

Do While Cells(i, 1) <> ""

If Cells(i, 1) < 1000 And Cells(i, 1) > 0 Then

    Cells(i, 1).EntireRow.Copy

    ActiveSheet.Paste Destination:=Sheets("Tabelle ").Cells(j, 1)

    j = j + 1

End If

i = i + 1

Loop

End Sub







Code eingefügt mit Syntaxhighlighter 4.0




Viel Erfolg wünscht Wastl



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: