Thema Datum  Von Nutzer Rating
Antwort
Rot KopierenVerschieben
 20.12.2022 18:15:00 PaulDo
NotSolved
21.12.2022 08:23:21 t
NotSolved
21.12.2022 11:48:54 PaulDo
NotSolved
21.12.2022 12:40:02 t
NotSolved

Ansicht des Beitrags:
Von:
PaulDo		 Datum:
20.12.2022 18:15:00		 Views:
682		 Rating:
     
Antwort:
  Ja
Thema:
KopierenVerschieben

In einer Tabelle habe ich verschiedene Datenbereiche. Ich kenne zwar den Anfang der Bereiche z.B D2,E2,F2 und G2,H2,I2 aber ich weiß nicht, wie weit horizontal die Spalten beschrieben sind. Ich möchte diese Bereiche in einen Spaltenbereich z.B A:C untereinander kopieren, um sie anschließend nach Datum zu sortieren.

Sub WerteVerschieben()
ThisWorkbook.Worksheets("Tabelle1").Activate
Dim bereich As Range
Set bereich = Range("D2:F")

If Sheets("Tabelle1").Range("bereich") <> 0 Then
Sheets("Tabelle1").Range("bereich").Copy _
ThisWorkbook.Sheets("Tabelle2").Range("A1")
End If
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
Rot KopierenVerschieben
 20.12.2022 18:15:00 PaulDo
NotSolved
21.12.2022 08:23:21 t
NotSolved
21.12.2022 11:48:54 PaulDo
NotSolved
21.12.2022 12:40:02 t
NotSolved