Supportnet / Forum / Tabellenkalkulation

hello leute ich hab hier schon ein wenig durchgestöbert und auch selber schon herum probiert nur komme ich nciht dort hin wo ich hin will mein problem ist folgendes mitarbeiter schreiben deren arbetiszeiten in ein sheet und ich kopiere das dann immer händisch in ein gessamtes sheet unten dran (etwas sehr mühsam bei 100+) die beiden sheets sehen identisch aus, nur das die gesamtliste immer länger wird meine frage wäre ist es möglich das die mitarbeiter die liste ausfüllen und am wochenende es per knopfdruck dann in die gesammtliste in die nächste freie zeile exportieren? also immer unten anfügen? vielen dank schon mal für euer kopfzerbrechen mark

Hi Mark,

da ich nicht weiß, wie deine Tabelle aufgebaut ist, hier mal ein ganz allgemeiner Code zum Kopieren eines festen Bereichs (hier A1:G15) aus Tabelle1 nach Tabelle2 ab der erste freien Zeile

Sub kopieren_ausTab1_nachTab2()
    Dim loLetzte As Long
    With Worksheets("Tabelle2")
        loLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        Worksheets("Tabelle1").Range("A1:G15").Copy Destination:=.Cells(loLetzte + 1, 1)
    End With
End Sub

Bis später,
Karin

hi all :)

noch ein beispiel das verschieden grosse getrennte bereiche kopiert und an die letzte zeile anfuegt stellt :-)

gruss nighty

Option Explicit
Sub makro01()
Dim zeilen(3) As String
Dim zaehler As Range
Dim zaehler1 As Integer
Dim zaehler2 As Integer
Dim zaehler3 As Long
zeilen(0) = "B9:B11"
zeilen(1) = "A1:A2"
zeilen(2) = "C1"
zeilen(3) = "E1:E2"
With Workbooks(1).Worksheets(2)
zaehler3 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
For zaehler1 = 0 To 3
For Each zaehler In Workbooks(1).Sheets(1).Range(zeilen(zaehler1))
Workbooks(1).Sheets(2).Cells(zaehler3, 1 + zaehler2) = Workbooks(1).Sheets(1).Range(zaehler)
zaehler2 = zaehler2 + 1
Next zaehler
Next zaehler1
End With

hallo

i werd das mal von euch gepostete ausprobieren

ich habe die 2 datein online gestellt

das ist die liste in die die daten hineinkommen
http://members.chello.at/3ergolf/zeiterfassungsliste.xls

und das wäre die liste die die mitarbeiter wöchentlich ausfüllen, und diese soll immer einfach am ende der zeiterfassungsliste angefügt werden
http://members.chello.at/3ergolf/kw-46-weninger-udo.xls

besten dank

im großen und ganzen möchte ich das automatisieren

sodas ich nicht mehr alle daten aus den einzelnen datein in eine kopieren muss

und das alle mitarbeiter auf die selbe liste zugreifen, ist ja leider nicht möglich, da so bald sie 1 mitarbeiter offen hat, die nur noch "read only" für den rest ist

Hi Mark,

wenn mehrere Mitarbeiter auf die selbe Arbeitsmappe zufgreifen sollen, dann kannst du unter Extras -> Erbeitsmappe freigeben den Zugriff für alle gestatten.

Bis später,
karin

viel dank für euhre mühen

hat sich mittleriweile erledigt

bekamen gestern einee nette nachricht
der standort wird von wien nach china ausgelagert.....

Hallo VBA-Profis,

könnte mir das auch jmd. so anpassen, dass der Bereich und auch der Name der Zielarbeitsmappe variabel festlegbar ist. Diese Daten könnten zum Beispiel in den Zellen A1 und A2 stehen. Genauer ausgedrückt sind es bei mir sogar 5 Bereiche, welche am Monatsende in ein für den aktuellen Monat neues Arbeitsblatt geholt werden müssen.

Evtl. geht dies auch aus der neuen Arbeitsmappe über eine Sub holen. Cool wäre es, den zu füllenden Bereich zu markieren und dann über VBA genau diesen Bereich + 1Spalte (weil da stehen die Daten in der "alten" Mappe) zu holen. Nochmal zu Veranschaulichung.

Ich markiere in der neuen Mappe (Januar08.xls) die Zellen C8:C25 und über einen Button wird angestoßen, dass die Zellen D8:D25 aus der alten Mappe (Dezember07.xls) geholt werden.

Vielleicht kann mir da jemand von Euch weiterhelfen.
Danke im voraus!
Gruß
Torsten

• Daten aus Access Datenbank holen
• Wie unter Win 98 SE Einstellungen von Arbeitsplatz\Systemsteuerung\Anzeige\Darstellung exportieren?
• Excel, suche nach Wert in einer Zelle und Kopieren des Wertes der 24.Zeile darunter
• Firefox und Thunderbird Daten exportieren
• SVerweis funktioniert nicht- "Str+F" hingegen schon?