Thema Datum  Von Nutzer Rating
Antwort
18.11.2017 14:28:50 Melissa
NotSolved
Blau Brett vor´m Kopf; bitte um Hilfe bei kleinem Copy-Makro
 18.11.2017 15:12:56 Ben
NotSolved
18.11.2017 15:26:57 Melissa
NotSolved
18.11.2017 20:04:41 Ben
NotSolved
22.11.2017 09:43:19 Melissa
NotSolved
18.11.2017 15:32:47 Melissa
NotSolved
18.11.2017 17:29:55 fransi
NotSolved
18.11.2017 18:08:31 fedjo
NotSolved
18.11.2017 22:23:42 Melissa
NotSolved
18.11.2017 22:21:47 Melissa
NotSolved
19.11.2017 08:59:42 fransi
Solved
20.11.2017 08:40:34 Melissa
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
18.11.2017 15:12:56		 Views:
653		 Rating:
     
Antwort:
  Ja
Thema:
Brett vor´m Kopf; bitte um Hilfe bei kleinem Copy-Makro

Hallo,

folgender Befehl kann weiter helfen:

Sub Copy()
    copySpecial Range("H19:I1273"), Worksheets("SE").Range("E2")
End Sub

Sub copySpecial(RangeSource As Range, RangeDestination As Range)
    Dim rngDest As Range
    Set rngDest = RangeDestination
    Dim rng As Range
    Dim bFirst As Boolean, lngRow As Long, lngColumn As Long
    Dim rngCp As Range
    bFirst = True
    For Each rng In RangeSource.SpecialCells(xlCellTypeVisible).Cells
        If bFirst Then
            lngColumn = rng.Column
            lngRow = rng.Row
            bFirst = False
        End If
        If Not rng.Value = "" Then
            rng.Copy Destination:=rngDest.Offset(rng.Row - lngRow, rng.Column - lngColumn)
        End If
    Next
End Sub

Dieser Befehl kopiert jede Zelle einzeln.

Hintergrund: Excel kann nur zusammenhängende Zellen mit einem Kopier-Befehl kopieren.

LG, Ben

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
18.11.2017 14:28:50 Melissa
NotSolved
Blau Brett vor´m Kopf; bitte um Hilfe bei kleinem Copy-Makro
 18.11.2017 15:12:56 Ben
NotSolved
18.11.2017 15:26:57 Melissa
NotSolved
18.11.2017 20:04:41 Ben
NotSolved
22.11.2017 09:43:19 Melissa
NotSolved
18.11.2017 15:32:47 Melissa
NotSolved
18.11.2017 17:29:55 fransi
NotSolved
18.11.2017 18:08:31 fedjo
NotSolved
18.11.2017 22:23:42 Melissa
NotSolved
18.11.2017 22:21:47 Melissa
NotSolved
19.11.2017 08:59:42 fransi
Solved
20.11.2017 08:40:34 Melissa
NotSolved