Thema Datum  Von Nutzer Rating
Antwort
19.06.2019 12:20:55 Claudius
NotSolved
Blau Bestimmte Zellen kopieren
 19.06.2019 15:23:38 Gast41919
NotSolved
19.06.2019 16:29:14 Gast87029
NotSolved
19.06.2019 16:01:54 Gast17400
NotSolved
19.06.2019 16:12:18 Gast41919
NotSolved
19.06.2019 16:14:53 Gast24293
NotSolved

Ansicht des Beitrags:
Von:
Gast41919		 Datum:
19.06.2019 15:23:38		 Views:
490		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Zellen kopieren		 
Sub So()
Dim rColumn As Range, rArea As Range

   Set rColumn = Columns(1).ColumnDifferences(Cells(Rows.Count, 1))

   For Each rArea In rColumn.Areas
      If rArea.Rows.Count = 1 Then
         wrBack rArea.Rows(1).EntireRow, rArea.Rows(1).EntireRow
      Else
         wrBack rArea.Rows(rArea.Rows.Count).EntireRow, rArea.Rows(1).EntireRow
      End If
   Next rArea

End Sub

Private Sub wrBack(rw As Range, rt As Range)
Dim v(1 To 5), x, y

   For x = 1 To 5
      If rw.Cells(x) <> "" Then
         v(y + 1) = rw.Cells(x)
         y = y + 1
      End If
   Next x
   rt.Cells(7).Resize(, 5).Value = v
   
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
19.06.2019 12:20:55 Claudius
NotSolved
Blau Bestimmte Zellen kopieren
 19.06.2019 15:23:38 Gast41919
NotSolved
19.06.2019 16:29:14 Gast87029
NotSolved
19.06.2019 16:01:54 Gast17400
NotSolved
19.06.2019 16:12:18 Gast41919
NotSolved
19.06.2019 16:14:53 Gast24293
NotSolved