Thema Datum  Von Nutzer Rating
Antwort
24.11.2021 12:03:55 SonGoku
NotSolved
Blau Kopierte Werte in neue Arbeitsmappe einfügen - letzte Zeile
 24.11.2021 19:02:11 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
24.11.2021 19:02:11		 Views:
1013		 Rating:
     
Antwort:
  Ja
Thema:
Kopierte Werte in neue Arbeitsmappe einfügen - letzte Zeile

[...] sichtbarer Bereich

Bedeutet, Deine Tabelle ist gefiltert?

 

[...] Die erste eingefügte Zeile des kopierten Bereichs soll dann anschließend gelöscht werden

Wenn Tabelle gefiltert ist, hilft Dir dabei die Intersect()-Methode. Die liefert Dir den begehrten Bereich der sichtbaren Zellen innerhalb eines Bereichs... ohne Überschrift.

Skizze:

Sub Skizze()

    Dim rngBereich          As Excel.Range  '*** Beispiel: komplette Tabelle von A1:AQ100
    Dim rngIntersectBereich As Excel.Range  '*** nur der scihtbare Bereich ohne Überschriftenzeile
    
    Set rngBereich = Worksheets("Export0").Range("A1:AQ100")
    Set rngIntersectBereich = Intersect(rngBereich, rngBereich.Offset(1, 0), rngBereich.SpecialCells(xlCellTypeVisible))
    
    '*** //TODO
    ' in anderes Workbook einfügen
    
    
    
    
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
24.11.2021 12:03:55 SonGoku
NotSolved
Blau Kopierte Werte in neue Arbeitsmappe einfügen - letzte Zeile
 24.11.2021 19:02:11 Mase
NotSolved