Thema Datum  Von Nutzer Rating
Antwort
Rot Problem , Verschieben einer Zeile
15.11.2021 09:01:49 SmileStyle
NotSolved

Ansicht des Beitrags:
Von:
SmileStyle
Datum:
15.11.2021 09:01:49
Views:
87
Rating: Antwort:
  Ja
Thema:
Problem , Verschieben einer Zeile

Guten Morgen,

da ich hier schon viel Hilfe bekommen habe versuche ich es wieder hier =).

Folgendes Problem - Ich habe einen Button mit welchem ich Zeilen/Zeilenböcke verschieben kann. Das funktioniert auch soweit das Ganze.

Leider funktioniert das aber nur nach oben mit dem verschieben und nicht nach unten, das bedeutet wenn ich von Zeile 2 in 1 verschieben will funktioniert das aber noch von 2 nach 3

Hier der Code:

Private Sub CommandButton4_Click()
Dim OldRow As Variant, Indx As Integer
Dim OldRow1, RowCnt, Zeile As Variant
On Error GoTo 0
For Each Blatt In ActiveWorkbook.Sheets
    Blatt.Unprotect ("KdoSAN")
Next
Indx = ActiveSheet.Index        'ActiveSheet Index merken
OldRow = Selection.Address(0)   'ausgewählte Zeilen Adresse (mit ":")
RowCnt = Selection.Rows.Count   'Anzahl Zeilen
Selection.Select
If InStr(OldRow, ":") = 0 Then MsgBox "Keine ganze Zeile ausgewählt" & vbLf & "Zeile zuerst bitte selektieren": Exit Sub
Zeile = Application.InputBox("in welche Zeile verschieben?", "Zeile  " & OldRow & "  verschieben", Type:=1)
If Zeile = Empty Then Exit Sub
On Error GoTo Fehler
Application.ScreenUpdating = False
Application.EnableEvents = False
'Zeilenkorrektur verursacht durch Cut!
OldRow1 = Left(OldRow, InStr(OldRow, ":") - 1)
If Zeile > OldRow1 Then Zeile = Zeile + RowCnt + 1
For i = ActiveSheet.Index To Worksheets.Count
  With Worksheets(i)
    .Select
    .Rows(OldRow).Cut
    .Rows(Zeile).Insert shift:=xlDown
  End With
Next
Fehler: 'und Makro Ende
Worksheets(Indx).Select
Application.EnableEvents = True
If Err > 0 Then MsgBox "unerwarteter Fehler" & vbLf & Error()
End Sub

 

Ich hoffe ihr könnt mir weiterhelfen =)

 

MfG


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Problem , Verschieben einer Zeile
15.11.2021 09:01:49 SmileStyle
NotSolved