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:
633
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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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