VBA - Spalten aktualisieren
09.03.2020 12:41:30
Kleo
Ich möchte gerne in Meinem Workbook Spalten aus einem Sheet, die auch im anderen sind aktualisieren.
Also soll das Programm:
- Spalte kopieren
- anderes worksheet öffnen
- schauen, ob dort die Spalte mit der gleichen Überschrift vorhanden ist und wenn ja, diese ersetzen.
Momentan kopiert es einfach die Spalten im selben Worksheet hinten an die Tabelle.
Sub refreshSave()
' refreshSave Macro
Worksheets("Sheet1").Select
Range("B3").Select
Dim Slctn As Range
Set Slctn = Range(Selection, Selection.End(xlToRight))
Slctn.Select
Dim Zelle As Range
Set Zelle = Range("B3")
For Each Zelle In Slctn
Range(Zelle, Zelle.End(xlDown)).Select
Selection.Copy
' SheetWählen.Show
Dim wks As Worksheet
For Each wks In Worksheets
Range("A3").Select
Dim hier As String
hier = Selection
Do
ActiveCell.Offset(0, 1).Select
Loop Until ActiveCell.Value = hier
ActiveSheet.Paste
Selection.Columns.EntireColumn.EntireColumn.AutoFit
Next wks
Next Zelle
End Sub