Thema Datum  Von Nutzer Rating
Antwort
08.12.2019 16:40:35 Gast
NotSolved
08.12.2019 17:08:20 Gast6506
NotSolved
09.12.2019 07:48:49 Mase
NotSolved
Blau Zeilen mit bestimmten Wert in einer Spalte finden und kopieren
 09.12.2019 11:40:58 tscharl
NotSolved
10.12.2019 19:04:47 tscharl
NotSolved

Ansicht des Beitrags:
Von:
tscharl		 Datum:
09.12.2019 11:40:58		 Views:
538		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen mit bestimmten Wert in einer Spalte finden und kopieren

Der folgende Beispielcode geht davon aus, dass in den ersten max. 5 Spalten Werte stehen, darunter auch ggf. einzelne leere Zellen.

Dieser Bereich wird in zunächst einmal nur 1 Durchgang nach rechts kopiert - ohne den Wert der ersten Spalte und gestaucht um die leeren Zellen.

Hier endet der Code vorerst, da ich nicht weiß, ob es der Frage entspricht.

Sub Zusammenfassen()
    Dim wks As Worksheet
    Dim intLetzteZeile As Integer
    Dim intLetzteSpalte As Integer
    Dim n As Integer
    Dim intZeile As Integer
    Dim intSpalte As Integer
    
    Set wks = ThisWorkbook.Worksheets("Tabelle1")
    
    intLetzteZeile = wks.Cells(Rows.Count, 2).End(xlUp).Row
    intLetzteSpalte = wks.Cells(1, Columns.Count).End(xlToLeft).Column
    
    For intZeile = 1 To intLetzteZeile
        For intSpalte = 2 To intLetzteSpalte
            With Cells(intZeile, intSpalte)
                If .Value <> "" Then
                    .Copy .Offset(0, 7 - n)
                Else
                    n = n + 1
                End If
            End With
        Next intSpalte
        n = 0
    Next intZeile
    
End Sub

 

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
08.12.2019 16:40:35 Gast
NotSolved
08.12.2019 17:08:20 Gast6506
NotSolved
09.12.2019 07:48:49 Mase
NotSolved
Blau Zeilen mit bestimmten Wert in einer Spalte finden und kopieren
 09.12.2019 11:40:58 tscharl
NotSolved
10.12.2019 19:04:47 tscharl
NotSolved