Zeilen mit Button verschieben, mit Einschränkungen

• Zeilen mit Button verschieben, mit Einschränkungen von deniz vom 19.09.2019 19:32:15
• AW: Zeilen mit Button verschieben, mit Einschränkungen - von Matthias L am 19.09.2019 19:41:08
• AW: Zeilen mit Button verschieben, mit Einschränkungen - von ChrisL am 19.09.2019 19:49:38
• AW: Zeilen mit Button verschieben, mit Einschränkungen - von deniz am 19.09.2019 20:08:01
• AW: Zeilen mit Button verschieben, mit Einschränkungen - von deniz am 19.09.2019 20:13:18
• AW: Zeilen mit Button verschieben, mit Einschränkungen - von deniz am 19.09.2019 20:29:20

Betrifft: Zeilen mit Button verschieben, mit Einschränkungen
von: deniz

Geschrieben am: 19.09.2019 19:32:15
Hallo Zusammen,
ich bin neu hier und beschäftige mich erst seit Kurzen mit VBA.
Daher habe ich wahrscheinlich ein leicht zu lösendes Problem für Euch. :-)
Ich habe einen Code gefunden, der mir eine markierte Zeile mit Hilfe eines Buttons eine Zeile nach oben verschiebt. Drücke ich den Button erneut, wird die Zeile eine weitere Zeile nach oben verschoben.
Soweit so gut, jedoch möchte ich das die ersten 4 Zeilen davon ausgeschlossen sind, sprich ein Verschieben von Zeile 5 in Zeile 4 soll nicht möglich sein.
Zudem lassen sich nur die Zeilen von "B" bis "I" verschieben, was muss ich ändern, dass die ganze Zeile ab Spalte "B" verschoben werden kann, sprich "B" bis "unendlich".
Hier mein bisheriger Code:
' MARKIERTE ZEILE NACH OBEN VERSCHIEBEN

Private Sub CommandButton3_Click()
With Intersect(Selection.EntireRow, Range("B:I"))
.Cut
.Cells(1, 1).Offset(-1, 0).Insert shift:=xlDown
End With
Selection.Offset(-1, 0).Select
End Sub

Danke für Eure Hilfe.
Gruß Deniz

Betrifft: AW: Zeilen mit Button verschieben, mit Einschränkungen
von: 1713967.html

Geschrieben am: 19.09.2019 19:41:08
Hallo Deniz

Private Sub CommandButton3_Click()
If Selection.Row > 5 Then
With Intersect(Selection.EntireRow, Range("B:I"))
.Cut
.Cells(1, 1).Offset(-1, 0).Insert shift:=xlDown
End With
Selection.Offset(-1, 0).Select
End If
End Sub

und dann einfach Range("B:I") anpassen.
Gruß Matthias

Betrifft: AW: Zeilen mit Button verschieben, mit Einschränkungen
von: 1713968.html
Geschrieben am: 19.09.2019 19:49:38
Hi
Anstelle Spalte "unendlich", nimm doch einfach z.B. Spalte "BB". Viel breiter werden Tabellen in der Regel nicht.
(Oder mit Resize und Offset einen Bereich zusammen schnipseln.)
cu
Chris

Betrifft: AW: Zeilen mit Button verschieben, mit Einschränkungen
von: 1713975.html
Geschrieben am: 19.09.2019 20:08:01
Krass, das ging ja schnell und genau so wie ich es brauche.
Vielen lieben Dank.
Gruß Deniz

Betrifft: AW: Zeilen mit Button verschieben, mit Einschränkungen
von: 1713977.html
Geschrieben am: 19.09.2019 20:13:18
Könnte man meinen Button der die Zeilen verschiebt auch ins Menüband einpflegen und das Menüband automatisch aufrufen wenn die Tabelle angeklickt wird?

Betrifft: AW: Zeilen mit Button verschieben, mit Einschränkungen
von: 1713987.html
Geschrieben am: 19.09.2019 20:29:20
OK, das ist wohl nicht so einfach.
Ich werde mich dafür erstmal belesen :-)
Gruß Deniz

Excel-Beispiele zum Thema "Zeilen mit Button verschieben, mit Einschränkungen"
Zeilenhöhe in cm festlegen	Summe gefilterter Zeilen
Zeilenumbruch	Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden	Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden	Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen	Zellinhalte zeilenweise sortieren