Microsoft Excel

Herbers Excel/VBA-Archiv

Inhalt von rechts gelegenen Spalten in A kpoieren


Betrifft: Inhalt von rechts gelegenen Spalten in A kpoieren von: Thorsten
Geschrieben am: 08.07.2018 13:58:43

Hallo zusammen,

ich benötige wieder mal Eure Hilfe. Ich bin auf meiner Recherche selber nicht fündig geworden.
Grundsätzlich stehen alle meine Daten in der Spalte A auf mehrere Zeilen verteilt.
Ab und zu befinden sich aber auch Daten in anderen Spalten und die vorhergehenden Spalten sind dann leer.

Wie kann ich im benutzten Range eine zeilenweise Abfrage deklarieren, um zu prüfen, ob sich in den weiter rechts gelegenen Spalten, Inhalt befindet und dieser dann in die Spalte A kopiert werden kann.

x steht für beliebigen Inhalt

A___B___C___D___E___F
x
___________________ x
x
x
x
____________x
_______________ x
x

Vielen Dank für Eure Mithilfe und Euer Know-how :-)
Grüße Thorsten

  

Betrifft: AW: möglicherweise reicht schon eine Formel ... von: neopa C
Geschrieben am: 08.07.2018 16:31:55

Hallo Thorsten,

... sind die entsprechenden Zellen in Spalte A echt leer (also auch keine ="") und steht rechts davon nur in einer Zelle (einer beliebigen Spalte) ein Wert der nach Spalte A kopiert werden soll? Es handelt sich auch nicht um zig tausende Datensätze?

Wenn dies alles zutrifft reicht eine Formel, die wie folgt zugeordnet werden soll:

Markiere Spalte A, aktiviere [F5] und da dann Inhalte, wähle Leerzellen und danach ok. Dann schreibe in die Eingabezeile folgende Formel: =VERWEIS(9;1/(B1:Z1<>"");B1:ZZ1) und schließe die Formel mit [Srg]+ [Enter] (nur diese beiden als Kombination)

Gruß Werner
.. , - ...


  

Betrifft: AW: Inhalt von rechts gelegenen Spalten in A kpoieren von: fcs
Geschrieben am: 08.07.2018 16:33:13

Hallo Thorsten,

hier 2 Makros

Gruß
Franz

Sub von_Rechts_nach_Spalte_A()
    'Zeilenweise bearbeiten
    Dim wks As Worksheet
    Dim Zeile As Long, Zeile_L As Long
    Dim Spalte_L As Long
    
    Set wks = ActiveSheet
    
    With wks
        'letzte Zeile mit Inhalt
        Zeile_L = .Cells.Find(what:="*", After:=.Cells(1, 1), LookIn:=xlFormulas, _
            lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious).Row
        For Zeile = 2 To Zeile_L
            'letzte Spalte mit Inhalt in Zeile
            Spalte_L = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column
            If Spalte_L > 1 Then
                .Cells(Zeile, 1).Value = .Cells(Zeile, Spalte_L).Value
                .Cells(Zeile, Spalte_L).ClearContents
            End If
        Next Zeile
    End With
End Sub

Sub Verschieben_nach_links()
'   'leere Zellen im Bereich löschen und Zellen nach links verschieben
    Dim wks As Worksheet
    Dim Zeile_L As Long
    Dim Spalte_L As Long
    
    Set wks = ActiveSheet
    
    With wks
        With .UsedRange
            Zeile_L = .Row + .Rows.Count - 1
            Spalte_L = .Column + .Columns.Count
        End With
'
        If Spalte_L > 1 Then
            .Range(.Cells(2, 1), .Cells(Zeile_L, Spalte_L)) _
                .SpecialCells(xlCellTypeBlanks).Delete Shift:=xlToLeft
        End If
    End With
End Sub




  

Betrifft: AW: Inhalt von rechts gelegenen Spalten in A kpoieren von: Günther
Geschrieben am: 08.07.2018 20:09:28

Moin,
Kannst/darfst/willst du Power Query > http://www.excel-ist-sexy.de/power-query-das-add-in/ nutzen? - Damit ist es auch mit Riesenmengen an Daten möglich, rasch eine neue Spalte mit dem Wunschergebnis zu erzeugen. - Ach ja, auch wenn in den links-davon-Zellen ein Leerstring "" ist.

Gruß
Günther


  

Betrifft: AW: er enthält sich offensichtlich lieber ganz owT von: neopa C
Geschrieben am: 10.07.2018 13:45:37

Gruß Werner
.. , - ...


  

Betrifft: AW: Inhalt von rechts gelegenen Spalten in A kpoieren von: Daniel
Geschrieben am: 10.07.2018 13:59:31

Hi

wenns echte Leerzellen sind:
- markiere alle Zellen
- schränke die Markierung auf die Leerzellen ein
(Start - Bearbeiten - Suchen und Auswählen - Inhalte Leere Zellen)
- Lösche die Zellen und verschiebe nach Links
Gruß Daniel


  

Betrifft: AW: gefragt war aber kopieren owT von: neopa C
Geschrieben am: 10.07.2018 15:49:57

Gruß Werner
.. , - ...


Beiträge aus dem Excel-Forum zum Thema "Inhalt von rechts gelegenen Spalten in A kpoieren"