Microsoft Excel

Herbers Excel/VBA-Archiv

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

Daten verschieben | Herbers Excel-Forum


Betrifft: Daten verschieben von: Andreas
Geschrieben am: 24.11.2009 16:05:37

Hallo Forum,

ich habe ein Code gefunden zum verschieben von daten. Das Verschieben klappt aber nicht und kann meinen Fehler auch nicht finden.

https://www.herber.de/bbs/user/66135.xls

  

Betrifft: AW: Daten verschieben von: eres
Geschrieben am: 24.11.2009 16:22:50

Hallo Andreas,

probier mal:

Sub Erledigte()
For i = 1 To Tabelle1.[G65536].End(xlUp).Row
If Cells(i, 12) = "erledigt" Then
x = Tabelle2.[G65536].End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 12)).Copy Tabelle2.Cells(x, 1)
Range(Cells(i, 1), Cells(i, 12)) = ""
End If
Next i
End Sub
Gruß

erwin


  

Betrifft: AW: Daten verschieben von: Andreas
Geschrieben am: 24.11.2009 17:00:10

Danke werde es probieren.
Was bedeuten die einzelnen Schritte?

Andreas


  

Betrifft: AW: Daten verschieben von: werni
Geschrieben am: 24.11.2009 17:49:17

Hi Andreas



Gruss Werner


  

Betrifft: AW: Daten verschieben von: Andreas
Geschrieben am: 25.11.2009 12:25:47

Danke für die super erklärung. Werde es probieren.

Andreas


Beiträge aus den Excel-Beispielen zum Thema "Daten verschieben"