Microsoft Excel

Herbers Excel/VBA-Archiv

Daten aus Tabellenblatt kopieren

Betrifft: Daten aus Tabellenblatt kopieren von: Jochen
Geschrieben am: 08.08.2008 22:24:43

Hi,

ich kopiere daten von einem Tabellenblatt in ein anderes:

Sub Übersicht()
Dim intS As Integer 'letzte belegte Spalte auf Blatt 1
Sheets("Daten").Columns("C:H").Copy
With Sheets("Übersicht")
    intS = .Cells(1, Columns.Count).End(xlToLeft).Column
    .Cells(1, intS).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
End With

End Sub



Dabei werden einfach die Spalten C bis H kopiert und wieder eingefügt.

Wie kann ich den Code abändern, das von der Spalte C:H die erste Zeile NICHT mitkopiert werden und die Informationen auf dem tabellenblatt "Übersicht" erst ab A2 eingefügt werden (erste Zeile soll leer bleiben)

Danke mal

Gruss
Jochen

  

Betrifft: Daten kopieren von: backowe
Geschrieben am: 08.08.2008 23:17:44

Hallo Jochen,

probiere es mal so:

VBA-Code:
Sub Übersicht()
Dim intS As Integer 'letzte belegte Spalte auf Blatt 1
Sheets("Daten").Range("C2:H" & Cells(Cells.Find(What:="*", After:=[A1], _
    SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row, "A").Row).Copy
With Sheets("Übersicht")
    intS = .Cells(2, Columns.Count).End(xlToLeft).Column
    .Cells(2, intS).PasteSpecial Paste:=xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Code eingefügt mit Syntaxhighlighter 4.15


Gruss Jürgen


 

Beiträge aus den Excel-Beispielen zum Thema "Daten aus Tabellenblatt kopieren"