Kopieren in ausgeblendete Tabelle
09.11.2008 15:48:00
Wolfgang
noch weiterhin auf der Suche nach Lösungsmöglichkeiten, folgende Frage. - Den untenstehenden Code entdeckte ich auf der "Herber-CD"; Wie kann ich den Code umstellen, wenn die Daten aus Tabelle "Grunddaten" und "Altdaten" in die ausgeblendete Tabelle "Gesamt" kopiert werden soll. Dabei wäre gut, wenn vorab vorhandene Daten aus "Gesamt" gelöscht werden. - Auch jetzt schon wieder Danke für die Rückmeldungen.
Herzliche Grüße - Wolfgang
Option Explicit
Sub Kopieren()
Dim intCounter As Integer, intRow As Integer
Application.ScreenUpdating = False
' Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
intRow = 1
For intCounter = 1 To 3
Worksheets(intCounter).Range("A1").CurrentRegion.Copy Cells(intRow, 1)
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Next intCounter
End Sub