Office: Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Qugart · 31. August 2015

Hab ich vorher wohl irgendwie übersehen zu kopieren.
Aber mit dieser Änderung wird gar nichts mehr kopiert.

hary · 31. August 2015

Moin
Hier mal mit Anzeige Msgbox. Wenn in O1 Ueberschrift und da hast O2:O10 gefuellt.
Oder hast du irgendwo einen Punkt vor Cells vergessen?
Code:

Private Sub CommandButton11_Click()
Dim i As Long
Dim lngTabelle As Long
With Tabelle3
MsgBox .Cells(Rows.Count, 15).End(xlUp).Row '--sollte 10 ausgeben
For i = .Cells(Rows.Count, 15).End(xlUp).Row To 2
Select Case CStr(.Cells(i, 15))
Case "XXX": lngTabelle = 5
Case "YYY": lngTabelle = 6
Case "ZZZ": lngTabelle = 7
End Select
MsgBox i '---sollte beim ersten 10 sein und jedesmal einen runter
.Rows(i).Copy Worksheets(lngTabelle).Cells(Worksheets(lngTabelle).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1)
.Rows(i).Delete
Next
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

gruss hary

Qugart · 31. August 2015

Okay.
Also die Ausgabe ist 11, da in der ersten Zeile ja die Spaltenüberschriften stehen.
Und nach dem klick auf OK passiert rein gar nix.

hary · 31. August 2015

Moin
Lad mal bitte die aktuelle Mappe hoch.
gruss hary

Qugart · 31. August 2015

Dann schau mal, ob du was findest.

hary · 31. August 2015

Moin
WE war doch zu hart.;-))
Mein Fehler, wenn schon rueckwaerts dann auch mit step -1. SRY.

For i = .Cells(Rows.Count, 15).End(xlUp).Row To 2 Step -1
gruss hary
Ich geh besser doch auf's Sofa.

Qugart · 31. August 2015

Danke!
Sofa ist genehmigt *biggrin.gif*

Naja...und morgen sollte auch meine VBA-Fibel in der Post sein.

Office: Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Zeille kopieren/verschieben wenn Zelle bestimmten Wert

Zeille kopieren/verschieben wenn Zelle bestimmten Wert - Similar Threads - Zeille kopieren verschieben

Aufzählungszeichen/Nummerierung beim Kopieren von Text

Datei kopieren und umbenennen

Kopie von Datei-Vorlage zur weiteren Bearbeitung

Per VBA Zeilen einfügen und danach in diese Texte kopieren

Nur markierte Zellen kopieren und wieder einfügen

Mehrere Wenn-Dann-Formeln auf mehrere Zeillen bezogen

Zeille per Toggle-Button nach wenn-Bedingung aus-/einblenden