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:
747
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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