Spalten-kopier-Makro - Spät erkannte Probleme

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub SpaltKop() 'Tabellennamen und Bereiche in dieser Routine anpassen Sheets("Tabelle1").Activate Application.ScreenUpdating = False SpalteKopieVal wksZiel:=Worksheets("Tabelle1"), _ wksQuelle:=Worksheets("Tabelle2"), strSpalteQuelle:=("J:K") SpalteKopieVal wksZiel:=Worksheets("Tabelle1"), _ wksQuelle:=Worksheets("Tabelle3"), strSpalteQuelle:=("C:C") Application.ScreenUpdating = True ActiveCell.Select End Sub Sub SpalteKopieVal(wksZiel As Worksheet, wksQuelle As Worksheet, _ strSpalteQuelle As String) ' Kopiert Werte von wksQuelle nach wksZiel hinter die letzte Spalte Dim lngCol As Long With wksZiel lngCol = LetzteSpalteBlatt(wksZiel) If lngCol + wksQuelle.Range(strSpalteQuelle).Columns.Count 0 Then LetzteSpalteBlatt = Spalte Exit For End If Next End With End Function

Guten Morgen allerseits,
entschuldigung, dass ich erst jetzt zu einer Antwort komme:
@ Erich: Immer, wenn ich dir eine Beispielmappe bauen möchte, dann funktioniert alles einwandfrei! :(
@ Klaus-Dieter: Das Programm könnte mir auf jeden Fall weiterhelfen, aber es muss (soweit ich das überblicke) zu viel angepasst werden. Aber trotzedm vielen Dank! :)
@ Franz (fcs): Dein Makro klappt :)
Ließe es sich noch einbauen, dass überprüft wird, ob diese Daten so in der Form schon vorhanden sind? Dass nichts doppelt kopiert wird?
Und ich habe in der zu kopierenden Spalte in Zeile 7 (in einer Ausnahme in Zeile 6) ein Datum stehen. Kann das Makro die kopierten Spalten anschließend auch nach Datum sortieren? Oder wäre das zu viel des Guten? Wäre auf jeden Fall "nice to have". :)
Ihr habt mich aber schon alle sehr glücklich gemacht! :)))
Noch eine kurze Frage:
Muss ich jedes Mal, wenn eine Spalte von einem anderen Sheet kopiert werden soll, diese Anweisung stehen?
Sheets("Tabelle1").Activate
Application.ScreenUpdating = False
Also erst werden Daten aus Tabelle1 nach hinten kopiert, dann Daten aus Tabelle2, usw. Muss ich vorher jedes Mal das Sheet aktivieren?
Viele, dankbare Grüße!
Tanja

Hallo Tanja,
zu deinen Fragen:
Ließe es sich noch einbauen, dass überprüft wird, ob diese Daten so in der Form schon vorhanden sind? Dass nichts doppelt kopiert wird?
Im Prinzip ja, aber woran kann man erkennen, dass die zu kopierenden Daten schon vorhanden sind? 1 zu 1 Vergleich aller Daten in den Spalten?
Und ich habe in der zu kopierenden Spalte in Zeile 7 (in einer Ausnahme in Zeile 6) ein Datum stehen. Kann das Makro die kopierten Spalten anschließend auch nach Datum sortieren? Oder wäre das zu viel des Guten? Wäre auf jeden Fall "nice to have". :)
Auch hier im Prinzip ja, aber alle Datumsangaben müssten dann in einer Zeile stehen.

Sub SortSpalte()
Dim wksZiel As Worksheet, Spalte_1 As Long, ZeileSort As Long
Set wksZiel = Worksheets("Tabelle1")
Spalte_1 = 4 'erste Spalte des Sortierbereichs ggf. anpassen
ZeileSort = 7 'Zeile nach der Sortiert werden soll
With wksZiel
With .Range(.Columns(Spalte_1), .Columns(.Cells(ZeileSort, _
.Columns.Count).End(xlToLeft).Column))
.Sort Key1:=.Cells(ZeileSort, .Column), order1:=xlAscending, Header:=xlNo, _
Orientation:=xlLeftToRight
End With
End With
End Sub

Noch eine kurze Frage:
Muss ich jedes Mal, wenn eine Spalte von einem anderen Sheet kopiert werden soll, diese Anweisung stehen?
Sheets("Tabelle1").Activate
Application.ScreenUpdating = False
Also erst werden Daten aus Tabelle1 nach hinten kopiert, dann Daten aus Tabelle2, usw. Muss ich vorher jedes Mal das Sheet aktivieren?

Bei der von mir erstellten Version kannst du
Sheets("Tabelle1").Activate
weglassen. Es ist auch egal von welchem Blatt aus du das Makro startest.
Die Zeile
Application.ScreenUpdating = False
sollte vor dem 1. Kopiervorgang stehen
Nach dem letzten Kopiervorgang
Application.ScreenUpdating = True
Diese beiden Zeilen verhindern, dass die Bildschirmanzeige während der Makroausführung "flackert" und das Makro ist auch schneller in der Ausführung.
Gruß
Franz

Ließe es sich noch einbauen, dass überprüft wird, ob diese Daten so in der Form schon _ vorhanden sind? Dass nichts doppelt kopiert wird? Im Prinzip ja, aber woran kann man erkennen, dass die zu kopierenden Daten schon vorhanden sind? 1 zu 1 Vergleich aller Daten in den Spalten?

Beliebteste Forumthreads (12 Monate)

Spalten-kopier-Makro - Spät erkannte Probleme

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread