Thema Datum  Von Nutzer Rating
Antwort
28.06.2019 07:24:50 TicTac
NotSolved
28.06.2019 10:17:30 TicTac
NotSolved
Rot Tabelle ab bestimmte Zeile bis letzte Zeile kopieren
 29.06.2019 09:51:48 Gast77362
Solved
01.07.2019 10:21:09 TicTac
NotSolved

Ansicht des Beitrags:
Von:
Gast77362		 Datum:
29.06.2019 09:51:48		 Views:
871		 Rating:
     
Antwort:
 Nein
Thema:
Tabelle ab bestimmte Zeile bis letzte Zeile kopieren		 
Option Explicit

Sub Test()
  
  Dim rngCell   As Excel.Range
  Dim rng       As Excel.Range
  
  'Quelle
  With Worksheets("Worksheets2")
    'obere, linke Zelle ...
    Set rngCell = .Range("A5")
    '... des Bereichs
    Set rng = .Range(rngCell, .Cells(.Rows.Count, "FT").End(xlUp))
    
    'Beginnt der ermittelte Bereich in einer Zeile,
    'die sich über der oberen-linken-Zelle befindet,
    'dann existieren keine Datensätze.
    If rng.Row < rngCell.Row Then
      Exit Sub
    End If
    
  End With
  
  'Ziel
  With Worksheets("Worksheets1")
    'erste freie Zelle in Spalte A finden
    Set rngCell = .Cells(.Rows.Count, "A").End(xlUp) 'letzte Zelle mit Inhalt
    If rngCell.Value <> "" Then Set rngCell = rngCell.Offset(1) 'die Zelle unter der 'Zelle mit Inhalt' ist dann leer
  End With
  
  'kopieren
  rng.Copy rngCell
  
End Sub

Hoffe der Schlaf war gut bei der Wärme. ;)

 

Grüße

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
28.06.2019 07:24:50 TicTac
NotSolved
28.06.2019 10:17:30 TicTac
NotSolved
Rot Tabelle ab bestimmte Zeile bis letzte Zeile kopieren
 29.06.2019 09:51:48 Gast77362
Solved
01.07.2019 10:21:09 TicTac
NotSolved