Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1116to1120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Kopieren von Zeilen/Spalten
Zeilen/Spalten
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Kopieren von Zeilen/Spalten
21.11.2009 23:14:29
Zeilen/Spalten
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

Anzeige
AW: Kopieren von Zeilen/Spalten
21.11.2009 23:23:45
Zeilen/Spalten
Wow, das geht so einfach!?
Danke Sepp!

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige