Office: (Office 2013) excel wenn in einer zelle etwas steht dann zeile verschieben

Helfe beim Thema excel wenn in einer zelle etwas steht dann zeile verschieben in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, folgende SUB müsste dies erledigen. Diese in ein allgemeines Codemodul kopieren. Dann ist sie mittels Tastenkombination Alt+F8 auswählbar und... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Taha90, 4. August 2018.

  1. Exl121150 Erfahrener User

    excel wenn in einer zelle etwas steht dann zeile verschieben


    Hallo,

    folgende SUB müsste dies erledigen. Diese in ein allgemeines Codemodul kopieren. Dann ist sie mittels Tastenkombination Alt+F8 auswählbar und ausführbar Aber auch ein Button im Arbeitsblatt, dem die Makro-SUB zugewiesen wird, ist möglich.
    Code:
    Sub ZeilenVerschieben()
      Dim wsQ As Worksheet
      Dim rngZeileQ As Range, rngJaSpalteQ As Range
      Dim lngZeileZ As Long
     
      Set wsQ = Worksheets("Tabelle1")
      Set rngJaSpalteQ = wsQ.Columns(8)  'Ja-Spalte = Spalte H
     
      Set wsZ = Worksheets("Tabelle2")
      With wsZ.UsedRange
        lngZeileZ = .Row + .Rows.Count
      End With
     
      For Each rngZeileQ In wsQ.UsedRange.Rows
        If UCase$(Intersect(rngZeileQ, rngJaSpalteQ).Value) = "JA" Then
           rngZeileQ.Copy Destination:=wsZ.Cells(lngZeileZ, 1)
           rngZeileQ.ClearContents
          
           lngZeileZ = lngZeileZ + 1
        End If
     
      Next rngZeileQ
      MsgBox "Verschoben, falls H:H='Ja'"
    End Sub
    
    
     
    Exl121150, 29. September 2021
    #16
  2. Fabbo Neuer User
    Hi,

    tut mir leid, dass ich mich jetzt erst melde. Vielen, Vielen Dank für den Code. Er funktioniert wunderbar. Ich suche noch nach einem Workaround die Zellen aus Spalte A nicht mit zu verschieben. Komme aber gerade nicht, dazu mir das näher anzuschauen.

    Dir jedenfalls vielen, lieben Dank! Das hilft mir ungemein.

    Beste Grüsse,
    Fabbo
     
Thema:

excel wenn in einer zelle etwas steht dann zeile verschieben

Die Seite wird geladen...
  1. excel wenn in einer zelle etwas steht dann zeile verschieben - Similar Threads - excel zelle zeile

  2. VBA Text in Zellen einfügen und farbigem Hintergrund

    in Microsoft Excel Hilfe
    VBA Text in Zellen einfügen und farbigem Hintergrund: Hallo zusammen, ich möchte eine Zeile mit Text und farbigem Hintergrund einfügen. Ich habe bereits einen kleinen Schnippsel VBA-Code gefunden. Dieser erstellt in der Tabelle Tabelle1 in Zeile 2...
  3. Einfügen einer oder mehrerer Zeilen, Spalten oder Zellen in Excel für Mac

    in Microsoft Excel Tutorials
    Einfügen einer oder mehrerer Zeilen, Spalten oder Zellen in Excel für Mac: Einfügen einer oder mehrerer Zeilen, Spalten oder Zellen in Excel für Mac Excel für Microsoft 365 für Mac Excel 2019 für Mac Excel 2016 für Mac Excel für Mac 2011...
  4. Bestimmt Zellen Kopieren wenn ein Wert überschritten wird

    in Microsoft Excel Hilfe
    Bestimmt Zellen Kopieren wenn ein Wert überschritten wird: Hallo an die Experten, ich bin auf der suche nach einer Lösung für folgendes Problem: Ich habe eine Excel Datei mit mehreren Tabellen. In der Tabelle "Q" habe ich feste Zellen wo Werte...
  5. Excel: Zelle in 3 neue Zeilen teilen

    in Microsoft Excel Hilfe
    Excel: Zelle in 3 neue Zeilen teilen: hallo, ich möchte das gegenteil von "Verbinden" machen mit Zellen, die nicht verbunden sind, also keine Auflösung von "Verdundenen Zellen". Ich habe ein gemeinsame Zelle "Äpfel" und möchte nun 3...
  6. Excel 2003_Automatisch neue Zeile erzeugen

    in Microsoft Excel Hilfe
    Excel 2003_Automatisch neue Zeile erzeugen: Hallo Excel Profis, ich kann zwar mit einfachen Formeln umgehen (kein Makro, kein VBA, etc.), aber das wars auch schon mit meiner Excel kenntniss. Darum erbitte ich hier wieder mal um Hilfe....
  7. Wenn gewisser Wert in einer Zelle, dann soll es gewisse Werte einer Zeile kopieren.

    in Microsoft Excel Hilfe
    Wenn gewisser Wert in einer Zelle, dann soll es gewisse Werte einer Zeile kopieren.: Hallo zusammen, im Internet habe ich viele gefunden mit meinem Problem aber keine Lösung konnte mir helfen. Im Anhang findet ihr das Excel-Sheet. Hier das Problem: Im Register "Produkte"...
  8. Auslesen einer Zelle auch nach dem Einfügen weitere Zeilen (Excel mind 2008)

    in Microsoft Excel Hilfe
    Auslesen einer Zelle auch nach dem Einfügen weitere Zeilen (Excel mind 2008): Hallo, folgendes Problem: Datei A hat 4 Tabellenblätter. 1 und 2 erfassen Eingänge, 3 summiert es auf. Täglich, mit Monatsendwert. In Blatt 4 will ich dann nur die Monatsendwerte übernehmen,...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden