Thema Datum  Von Nutzer Rating
Antwort
09.04.2021 12:49:56 Lukii96c
NotSolved
Blau Daten vergleichen
 09.04.2021 13:34:34 Gast20058
NotSolved
09.04.2021 23:16:18 Nobody
NotSolved

Ansicht des Beitrags:
Von:
Gast20058		 Datum:
09.04.2021 13:34:34		 Views:
502		 Rating:
     
Antwort:
  Ja
Thema:
Daten vergleichen

Hast du eine Spalte/Zeile, an der du die letzte Zeile/Spalte ermitteln kannst?

Für die Spalten eignet sich der Regel nach die Zeile mit den Spaltenüberschriften.

Für die Zeilen bietet sich eine Spalte an, die lückenlos mit Inhalt befüllt ist.

Option Explicit

Sub Test()
  
  Dim rng As Excel.Range
  
  With Worksheets("Tabelle1")
    
    '»allgemeine« Vorgehensweise
    ' letzte Zelle in Spalte C und letzte Zelle in Zeile 2 -> ergibt zwei Zellen die die Eckpunkte des Bereichs definieren
    Set rng = .Range(.Cells(.Rows.Count, "C").End(xlUp), .Cells(2, .Columns.Count).End(xlToLeft))
    
    'Abbruch relevant, wenn man nicht in Zeile 1 und/oder Spalte A startet
    If rng.Row < 2 Or rng.Column < 3 Then
    '>> keine Daten
      Exit Sub
    'evtl. weiter prüfen ob z.B. Daten vorhanden sind und ggf. abbrechen
    ' hier kann man auch ggf. nur den Nutzdatenbereich (d.h. ohne Kopfzeile) referenzieren
    'ElseIf ... Then
    ' ...
    End If
    
    'mindestens zwei Spalten vorhanden?
    If rng.Columns.Count >= 2 Then
      'letzten zwei Spalten kopieren
      rng.Columns(rng.Columns.Count - 1).Resize(, 2).Copy
      'Einfügen-Beispiel
      With .Parent.Worksheets.Add()
        .Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
      End With
    End If
    
  End With
  
End Sub

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
09.04.2021 12:49:56 Lukii96c
NotSolved
Blau Daten vergleichen
 09.04.2021 13:34:34 Gast20058
NotSolved
09.04.2021 23:16:18 Nobody
NotSolved