Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Kopieren von Zeilen/Spalten | Herbers Excel-Forum


Betrifft: Kopieren von Zeilen/Spalten von: Herr Mohr
Geschrieben am: 21.11.2009 22:36:13

Hallo liebes Forum,

ich versuche per CommandButton1 Daten aus speziellen Zeilen/Spalten wieder in spezielle andere Zeilen/Spalten zu kopieren, hat aber so leider noch nicht funktioniert:

Private Sub CommandButton1_Click()
 Dim Spalte1 As Long, Spalte2 As Long
 Dim Zeile1 As Long, Zeile2 As Long                                   
 Dim ZeileLetzte As Long
 ZeileLetzte = Worksheets("Tabelle1").Cells(Worksheets("Tabelle1").Rows.Count, 2).End(xlUp).Row
    For Zeile1 = 18 To ZeileLetzte
     For Spalte1 = 3 To 6
      For Zeile2 = 22 To ZeileLetzte + 4
       For Spalte2 = 7 To 11
     If CommandButton1.Value = "1" Then
      Worksheets("Tabelle1").Cells(Zeile1, Spalte1) = Worksheets("Tabelle1").Cells(Zeile2,  _
Spalte2)
     End If
       Next
      Next
    Next
   Next
End Sub
Weiss jemand eine bessere Lösung?

Schöne Grüße, Hr. Mohr

  

Betrifft: AW: Kopieren von Zeilen/Spalten von: Josef Ehrensberger
Geschrieben am: 21.11.2009 23:14:29

Hallo ?,

dazu brauchst du och keine Schleife(n).

Private Sub CommandButton1_Click()
  Dim lngLast As Long
  
  With Worksheets("Tabelle1")
    lngLast = Application.Max(18, .Cells(.Rows.Count, 2).End(xlUp).Row)
    .Range(.Cells(18, 3), .Cells(lngLast, 6)).Copy Worksheets("Tabelle1").Cells(22, 7)
  End With
  
End Sub



Gruß Sepp



  

Betrifft: AW: Kopieren von Zeilen/Spalten von: Herr Mohr
Geschrieben am: 21.11.2009 23:23:45

Wow, das geht so einfach!?

Danke Sepp!


Beiträge aus den Excel-Beispielen zum Thema "Kopieren von Zeilen/Spalten"