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

Zellbezug beim Kopieren von Zeilen

Zellen mit Formeln kopieren

Kopieren funktioniert nicht mehr

Bestimmte Zellen auf Knopfdruck in andere Zellen kopieren

In Word erscheinen beim Kopieren einer Webpage anstelle der Bilder teilweise nur kleine Platzhalter

Mehrere Wenn-Dann-Formeln auf mehrere Zeillen bezogen

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