zwei Spalten zusammenführen per VBA?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Copy_Subject() Sheets("TAbelle1").Select Columns("A:A").Select Selection.Copy Sheets("Tabelle2").Select Columns("A:A").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _ Transpose:=False Application.CutCopyMode = False Columns("A:A").EntireColumn.AutoFit Range("A1").Select End Sub

Sub Zusammen() Dim cl As Range, wks1 As Object, wks2 As Object Set wks1 = Sheets("Tabelle1") Set wks2 = Sheets("Tabelle2") For Each cl In wks1.Range("C1:C" & wks1.Range("C1").End(xlDown).Row).Cells wks2.Range("G" & cl.Row) = cl & Chr(10) & cl.Offset(0, 2) Next End Sub

Hallo
nur Anfaenger programmieren über Select, zu 95% kann man darauf verzichten. s.unten.
Man kann beim Kopieren den Zielbereich direkt dahinter schreiben. Funktioniert wie Paste!!
Der Vorteil, diese kurzeste Schreibweise benötigt kein!! - Application.CutCopyMode = False
Ansonsten bitte angewöhnen die Tabelle und den Bereich mit Copy direkt zusammenschreiben.
Vor allem hat man keinen flackernden Bildschirm mehr, der jedes Blatt neu aufbauen muss!!
Ob Tabelle2 noch selektiert werden muss weiss ich nicht? Sonst den Befehl einfach löschen!!
mfg Piet

Sub Copy_Subject()
'so wenn man Spalte A in Tabelle 2 mit Paste einfügen will - (kürzeste Schreibweise)
Sheets("TAbelle1").Columns("A:A").Copy Sheets("Tabelle2").Columns("A:A")
'so wenn man nur Werte (ohne Formate) Tabelle 2 kopieren will - (über PastSpecial)
Sheets("TAbelle1").Columns("A:A").Copy
Sheets("Tabelle2").Columns("A:A").PasteSpecial xlPasteValues
Sheets("Tabelle2").Columns("A:A").EntireColumn.AutoFit
Application.CutCopyMode = False
Sheets("Tabelle2").Select
Range("A1").Select
End Sub

Sub Datum_aufschlüsseln_2() Dim AC As Range, z, lz As Long, ok Dim Tb2 As Worksheet 'Tabelle2 Set Tb2 = Worksheets("Veranstaltungen_CSV") lz = Tb2.Cells(Rows.Count, 2).End(xlUp).Row Tb2.Range("B2:F" & lz + 2) = Empty With Worksheets("Veranstaltungen") lz = .Range("B2").End(xlDown).Row z = 2 '1. Zeile in Liste 'Schleife zum Datum/Uhrzeit auswerten For Each AC In .Range("B2:B" & lz) SZeit = Empty: EZeit = Empty 'Datum ohne Uhrzeit ignorieren!! If Len(AC) Tb2.Cells(z, 4) = CDate(Ende) --Typen unverträglich Tb2.Cells(z, 6) = "'True" 'dann "nachmittag" auswerten ElseIf InStr(AC, "nachmittag") Then Start = Left(Trim(AC), 10) Tb2.Cells(z, 2) = CDate(Start) Tb2.Cells(z, 3) = Format(NMT, "hh:mm")

Sub Datum_aufschlüsseln_2() Dim AC As Range, z, lz As Long, ok Dim Tb2 As Worksheet 'Tabelle2 Set Tb2 = Worksheets("Tabelle2") lz = Tb2.Cells(Rows.Count, 2).End(xlUp).Row Tb2.Range("B2:F" & lz + 2) = Empty With Worksheets("Tabelle1") lz = .Range("B1").End(xlDown).Row z = 2 '1. Zeile in Liste On Error GoTo Fehler 'Schleife zum Dtum/Uhrzeit auswerten For Each AC In .Range("B1:B" & lz) SZeit = Empty: EZeit = Empty 'Datum ohne Uhrzeit ignorieren!! If Len(AC)

Beliebteste Forumthreads (12 Monate)

zwei Spalten zusammenführen per VBA?

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

zwei Spalten zusammenführen per VBA?

17 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)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread