Ausgabe Makro und Update der Inhalte
03.04.2018 09:25:38
Philipp
ich stehe vor folgenden Problemen.
Ich habe 16 Tabellenblätter mit gleicher Struktur, die ich in einem 17. Tabellenblatt mittels Makro untereinander kopiert habe.
Allerdings möchte ich nicht jedesmal, wenn sich in einer der Tabellenblättert etwas ändert, dass das Makro in einem zusätzlichen Tabellenblatt ausgegeben wird, sondern in dem 17. (Master) Tab. Ist das möglich?
Die zweite Frage schließt sich daran an. Lässt sich das Makro mit Verknüpfungen/Beziehung innerhalb der Datei verbinden, so dass mir das MAster Tab immer den aktuellen Abzug liefert, ohne dass das Makro neu gestartet werden muss?
War das verständlich ausgedrückt?
Hier noch das verwendete Makro:
Sub Combine()
'UpdateByKutools20151029
Dim i As Integer
Dim xTCount As Variant
Dim xWs As Worksheet
On Error Resume Next
LInput:
xTCount = Application.InputBox("The number of title rows", "", "1")
If TypeName(xTCount) = "Boolean" Then Exit Sub
If Not IsNumeric(xTCount) Then
MsgBox "Only can enter number", , "Kutools for Excel"
GoTo LInput
End If
Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
xWs.Name = "Combined"
Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
For i = 2 To Worksheets.Count
Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
Next
End Sub
Wäre super wenn da jemand Hilfe anbieten kann, vielen Dank!
Grüße Philipp