Spalteninhalte ab D in Spalte A kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Verschieben() 'Verschiebt Zellbereich innerhalb aller Blätter Dim wks As Worksheet, Startzelle As String, LetzteSpalte As String Dim Zielzelle As String, LetzteZeile As Long Startzelle = "D2" LetzteSpalte = "M" Zielzelle = "A1" For Each wks In ActiveWorkbook.Worksheets If Not (wks.Name = "Start" Or wks.Name = "Daten") Then LetzteZeile = wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1 wks.Range(Startzelle & ":" & LetzteSpalte & LetzteZeile).Cut Application.DisplayAlerts = False wks.Paste Destination:=wks.Range(Zielzelle) Application.DisplayAlerts = True End If Next End Sub Makro für Kopieren: Sub Kopieren() 'Kopiert Zellbereich innerhalb aller Blätter Dim wks As Worksheet, Startzelle As String, LetzteSpalte As String Dim Zielzelle As String, LetzteZeile As Long Startzelle = "D2" LetzteSpalte = "M" Zielzelle = "A1" For Each wks In ActiveWorkbook.Worksheets If Not (wks.Name = "Start" Or wks.Name = "Daten") Then LetzteZeile = wks.UsedRange.Row + wks.UsedRange.Rows.Count - 1 Application.DisplayAlerts = False wks.Range(Startzelle & ":" & LetzteSpalte & LetzteZeile).Copy Destination:=wks.Range(Zielzelle) Application.DisplayAlerts = True End If Next End Sub

Hallo Franz,
erneut herzlichen Dank für Deine Rückmeldung und Ausarbeitung (ich weiß, dass Du mir schon häufiger Hilfestellungen und Hinweise sowie Ausarbeitungen zur Verfügung gestellt hast, die ich allesamt gut umsetzen konnte); Der Code mit Kopieren ist im Grunde sehr gut und für meine gedachte Anwendung sehr geeignet. Ich habe ihn getestet und folgende Wirkung festgestellt. Kopiere ich Daten in Spalte D, werden diese in Spalte A übernommen (die letzte Zeile bleibt übrigens in Spalte D stehen), kopiere ich Daten in Spalte E, werden diese in Spalte B übernommen (auch hier bleibt die letzte Zeile stehen). Ist es denkbar, dass sämtliche gefüllten Zeilen in den Spalten D bis M ausschließlich in Spalte A (also untereinander kopiert werden? - Danke Dir schon jetzt wieder für Deine Rückantwort.
Gruß - Wolfgang

Hallo Wolfgang,
diese Variante kopiert die Inhalte der ausgefüllten Zellen in die Spalte A
Gruss
Franz


Sub Kopieren()
'Überträgt Werte aus Zellbereich D2:Mxxx innerhalb aller Blätter in Spalte A
Dim wks As Worksheet, ZeileS As Long, SpalteE As Integer, SpalteL As Integer
Dim SpalteZ As Integer, ZeileZ1 As Long, ZeileZ As Long, ZeileL As Long, ZeileLmax
Dim Zeile As Long, Spalte As Integer
ZeileS = 2 ' 1. Zeile für Kopieren von Werten aus Spalte D bis M
SpalteE = 4 ' 1. Spalte die kopiert werden soll, hier  D
SpalteL = 13 ' letzte Spalte die kopiert werden soll, hier M
SpalteZ = 1 ' Zielspalte, hier Spalte A
ZeileZ1 = 2 '1. Zeile in Zielspalte in die Werte kopiert werden sollen
For Each wks In ActiveWorkbook.Worksheets
With wks
If Not (.Name = "Start" Or wks.Name = "Daten") Then
'vorhandene Daten in Zielspalte (Spalte A) löschen
.Range(.Cells(ZeileZ1, SpalteZ), .Cells(.Rows.Count, SpalteZ)).ClearContents
'Daten kopieren
For Spalte = SpalteE To SpalteL
ZeileL = .Cells(.Rows.Count, Spalte).End(xlUp).Row
If ZeileL > ZeileLmax Then ZeileLmax = ZeileL
For Zeile = ZeileS To ZeileL
If Not IsEmpty(.Cells(Zeile, Spalte)) Then
'              .Cells(ZeileZ, SpalteZ).Value = .Cells(Zeile, Spalte).Value 'Nur Werte übertragen
.Cells(Zeile, Spalte).Copy Destination:=.Cells(ZeileZ, SpalteZ) 'Zellen kopieren
ZeileZ = ZeileZ + 1
End If
Next Zeile
Next Spalte
End If
'Daten im Bereich der Spalten D bis M entfernen (deaktiviert)
'.Range(.Cells(ZeileS, SpalteE), .Cells(ZeileLmax, SpalteL)).ClearContents
End With
ZeileLmax = 0
ZeileZ = ZeileZ1
Next wks
End Sub

Beliebteste Forumthreads (12 Monate)

Spalteninhalte ab D in Spalte A kopieren

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalteninhalte ab D in Spalte A kopieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread