Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Zeilen mit Button verschieben, mit Einschränkungen


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

Beiträge aus dem Excel-Forum zum Thema "Zeilen mit Button verschieben, mit Einschränkungen"