title image


Smiley Du schaufelst ja auch bei jedem Schleifendurchlauf alles in die erste Zeile
... oder ist Dir das noch nicht aufgefallen ...?

Sheets("Tabelle2").Activate

ActiveSheet.Range("a1").Select



Und noch'n Tipp am Rande: den ganzen Activate- und Select-Kram kann man sich an dieser Stelle sparen.



Probier's mal damit ...







Private Sub CommandButton1_Click()

  Dim wsSource As Worksheet

  Dim wsTarget As Worksheet

  Dim Zeile As Long, Spalte As Long



  Set wsSource = Worksheets("Tabelle1")

  Set wsTarget = Worksheets("Tabelle2")

  Zeile = 1



  Do Until wsSource.Cells(Zeile, 1) = ""

    For Spalte = 1 To 4

      wsTarget.Cells(Zeile, Spalte).Value = wsSource.Cells(Zeile, Spalte).Value

    Next

    Zeile = Zeile + 1

  Loop

End Sub





Code eingefügt mit Syntaxhighlighter 4.0





Gruss
scotty

I´m an admin. If you see me laughing, you should better have a backup.
Einen Fehler machen und ihn nicht korrigieren - das erst heisst wirklich einen Fehler machen.
Konfuzius


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: