Office: Makro

Hallo Leute,

ich hab eigentlich eine ganz einfach Angelegenheit, wo ich aber gerade den Wald vor lauter Bäumen nicht sehe.

In der Tabelle "Ausschussneu" trage ich bestimmte Werte in die Felder C2, B7, C9, C11-C14, C16-17 ein.
Diese sollen dann in die Tabelle "Archivneu" in die erste leere Zeile übertragen werden (Spalten A-I).

Ich habe jetzt schon mehrere Makroanläufe probiert, aber irgendwie gibt es bei jedem Versuch nur Fehler.
Wenn ich vielleicht ein funktionierendes Makro habt, nur her damit.
Falls ich meine Makrotexte braucht, kann ich diese auch gerne noch hier posten.

Vielen Dank im Voraus!
Gruß!
André

:)

 

Hallo andré,

ermittle die Zeile mit
Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row+1

 

Schon mal vielen Dank dafür!

Und wie würde der Rest des Makros lauten? *Smilie
Mit
Range(XY).select
Selection.Copy
etc. hat es leider nicht funktioniert.

 

Range(XY).Copy Sheets(1).cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row+1,1)

 

Und wie gebe ich dem Makro jetzt vor, dass es die Range(XY) vom Tabellenblatt "Ausschussneu" nach "Archivneu" kopiert?

 

schreibe die entsprechenden Tabellen davor
Worksheets(Ausschussneu")

 

worksheets("Ausschussneu").Range(XY).Copy

worksheets("Archivneu").Sheets(1).cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row+1,1)

So meinen Sie das doch sicherlich, oder?

 

nein ich hatte nicht 2 Zeilen vorgeschlagen und warum muss im zweiten Teil 2xdas Sheet angegeben werden, das läuft nicht. Und es muss im zweiten Teil bei allen Positionen angegeben werden. Alt ist es ja Sheets(1)

 

Ich glaube so langsam verstehe ich es.
Aber ein "Alt" habe ich gar nicht als Blatt, nur "Ausschussneu" und "Archivneu".

worksheets("Ausschussneu").Range(XY).Copy Sheets(1).cells(Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row+1,1)

Und damit kopiert es die Werte aus XY vom Blatt "Ausschussneu" in die erste leere Zeile von "Archivneu" (Sheets(1))?

//EDIT
Ich hab jetzt mal eine andere Herangehensweise versucht, die aber auch nicht funktioniert:

Sub Ausschuss_hinzufügen()
Dim lngLetze As Long
Dim RaBereich As Range

Set RaBereich = Union(Range("C2"), Range("C7"), Range("C3"), Range("C11:C14"), Range("C16:C17"))

With Worksheets("Archivneu")
'erste freie Zeile:
lngletzte = .Cells(Rows.Count, "A").End(xlUp).Row + 1
'Wert kopieren:
.Cells(lngletzte, "A").Value = Worksheets("Ausschussneu").RaBereich.Value
End With
End Sub

 

Moin
Code:

gruss hary