Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Daten in ein weiteres Blatt kopieren und

Daten in ein weiteres Blatt kopieren und
24.03.2021 10:13:53
prymano
Hallo,
ich habe eine Excelmappe mit verschiedenen Blättern, u.a.
Blatt1 = Zahlplan mit folgenden Daten:
A, B , C, D, E , F, G , H, I
W.Bemerkung, Heute-Datum, Banksaldo, Zahl.-Betrag, Bruttoumsatz in Euro, Lieferant, Datum, RE-Nr.,bezahlt
Nun möchte ich die Daten des Blattes in das nächste kopieren:
Blatt2= Buchhaltung
A, B, C, D, E , F, G
Bruttoumsatz in Euro, Steuerschlüssel, Aufwandskonto, RE-Nr,. Datum, Lieferant, Buchungstext
Die Spalten: B,C, G bleiben leer
Auf F/Lieferant ist ein Link zur Rechnung eingefügt, den würde ich gerne mit übernehmen, aber das ist nicht absolut wichtig
Vielleicht hat jemand eine passende Idee dazu.
Vielen Dank und einen schönen Tag

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten in ein weiteres Blatt kopieren und
24.03.2021 10:16:57
prymano
Ach Gott, ich habe vergessen, dass die Daten im 2. Blatt sortiert werden müssen nach dem Datum

AW: Daten in ein weiteres Blatt kopieren und
24.03.2021 10:55:52
oraculix
Hallo versuch mal dieses Makro.
Option Explicit
Sub KopiernBuchhaltung()
' KopiernBuchhaltung Makro
Columns("A:I").Select
Range("I1").Activate
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Buchhaltung").Select
Range("A1").Select
ActiveSheet.Paste
'Sortieren
ActiveWorkbook.Worksheets("Buchhaltung").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Buchhaltung").Sort.SortFields.Add2 Key:=Range( _
"H2:H13"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Buchhaltung").Sort
.SetRange Range("A1:I13")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub


Anzeige
AW: Daten in ein weiteres Blatt kopieren und
24.03.2021 18:55:36
oraculix
Deine Spaltennamen sind ja unterschiedlich.
Schreibe mir bitte in die hochgeladene Mappe in Buchhaltung in die zweite Zeile welche Spalten von
Zahlplan du Wohin haben möchtest.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige