Office: (Office 2007) Zellen mittels comand button kopieren und in anderes Tabellenblatt einfügen

Hallo zusammen!
Bin auf VBA (Excel 2007) ein absoluter Neuling und habe aber ein dringendes Problem zu lösen.
Es geht darum mittels anklicken des Command buttons folgende Ereignisse auszulösen:
Kopieren des Zellinhaltes (nicht der beinhaltenden Formeln) der Zellen ab A6 bis J6 welche in Zelle B einen Wert(numerisch) enthalten. Die Zellen reichen bis A20/J20. Tabellenname: Kassazettel
Diese Werte sollen in ein anderes Tabellenblatt Name: Zusammenfassung in die erste freie Zeile ab Zelle B eingefügt werden (ohne Formeln, nur die Werte)
In Zelle A soll sofern möglich eine fortlaufende Zahl (zb.00001) eingetragen werden. Diese Zahl soll die gleiche sein für alle Zeilen die beim Anklicken des Command Buttons überragen werden. (Also 4x00001 wenn 4 Zeilen im Kassazettel). Ich verwende Excel 2007
Danke schon vorab für die Hilfe-sofern möglich

:)

 

Moin

Lade mal ine Bsp.-Mappe hoch.
gruss hary

 

Morgen!
Danke schon mal für dein Interesse und die schnelle Antwort. Lade die Originaldatei hoch. Wie gesagt der Übertrag sollte nur die Daten und nicht die Formeln betreffen. Und die Formeln sollten im 1. Blatt stehen bleiben. (Wie gesagt, wenn möglich).

 

Moin
war kurz wech.
Code in den Code des Button.
Code:

gruss hary

 

Also mal danke - fast perfekt

Eine Kleingkeit wäre noch: die Inhalte (nicht die Formeln) sollten gleichzeitig mit dem Übertrag aus der ersten Tabelle (Kassazettel) gelöscht werden.
Sonst kann ich nur staunen.

 

Hallo,

dann musst du den Code von hary wie folgt ändern:

PHP:

         Private Sub CommandButton1_Click()
Dim letzteZ As Long
Dim lngLetzeZeile As Long
Dim Nummer As Long
Application.ScreenUpdating = False
With Worksheets("Zusammenfassung")
Nummer = Application.Max(.Columns(1))
letzteZ = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'----- evtl. die 200 im Bereich anpassen ----
lngLetzeZeile = [=LOOKUP(2,1/(Kassazettel!A1:A200<>""),ROW(A:A))] 'letzte geht so da Formeln drin
Worksheets("Kassazettel").Range("A6:H" & lngLetzeZeile).Copy
.Cells(letzteZ, 2).PasteSpecial Paste:=xlPasteValues
.Cells(letzteZ, 2).PasteSpecial Paste:=xlPasteFormats
.Columns(1).NumberFormat = "00000"
.Range(.Cells(letzteZ, 1), .Cells(letzteZ + (lngLetzeZeile - 6), 1)) = Nummer + 1
End With
Worksheets("Kassazettel").Range("B6:E" & lngLetzeZeile).ClearContents
Worksheets("Kassazettel").Range("G6:G" & lngLetzeZeile).ClearContents

Application.ScreenUpdating = True
End Sub


 

\@hary und Norbert:
Kann nur sagen: funktioniert.
Ich danke euch für die extrem rasche und unkomplizierte Hilfe.
Noch eine Frage: Könnt ihr mir ein recht gut verständliches Lehrbuch zum Thema empfehlen ? (Wie gesagt, bin kompletter VBA Laie)

 

Muss ich passen - ich benutze nur das VBA Kompendium oder das Internet, wenn ich was wissen will. Das Kompendium ist aber kein Lehrbuch sondern sowas wie ein "Brockhaus" für VBA *wink.gif*
Learning by Doing sag ich da nur.

Gruß
Norbert

 

Ok - danke nochmal für eure Hilfe