Routine um Zeilen mit Werten fortzuschreiben

Guten morgen,
https://www.herber.de/bbs/user/42866.xls
Ich habe folgendes Problem. Ich habe verschiedene Vorgänge - im Excelfile (siehe Link) als AZeit und BZeit- bezeichnet.
Ich würde gerne für jeden der Vorgänge (AZeit und BZeit) einen Button haben in Tabellenblatt "Zeitgruppen", der folgende Routine auslöst:
Die Routine beim drücken des jeweiligen Buttons soll im Tabellenblatt "Zeitgruppen" schauen, wo sich die nächste leere Zeile befindet (anhand der A-Spalte). Hat diese eine leere Zeile gefunden, so soll sie die Werte wie in der ersten Zeile bei "AZeit" eintragen. Die Spalte "Zeit" ergibt sich aus dem Tabellenblatt "Zeiten". Jedes mal wenn die Routine ausgelöst wird und reingeschrieben wird soll diese im Tabellenblatt "Zeiten" eine Zeile runterrutschen, daß nicht wieder dieselbe Zeit hergenommen wird.
Selbiges Verfahren für Vorgang "BZeit".
Wär es evtl. möglich so zu programmieren, daß der Counter irgendwo in Excel mitabgespeichert wird, da die Routine ja sonst bei Neustart wieder die Zeiten von vorne nimmt oder?
Ihr würdet mir echt total helfen,
lg
Joe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private ZeileZ As Long 'Nächste auszulesende Zeile im Blatt Zeiten Sub Azeit() ZeileZ = Worksheets("ZeitGruppen").Range("F1") ' Start-Zeile Call ZeitenUebertragen(SpalteZeit:=1, Gruppe:=1) Worksheets("ZeitGruppen").Range("F1") = ZeileZ 'nächste Start-Zeile speichern End Sub Sub Bzeit() ZeileZ = Worksheets("ZeitGruppen").Range("H1") ' Start-Zeile Call ZeitenUebertragen(SpalteZeit:=2, Gruppe:=2) Worksheets("ZeitGruppen").Range("H1") = ZeileZ 'nächste Start-Zeile speichern End Sub Sub ZeitenUebertragen(SpalteZeit%, Gruppe%) Dim wksZeiten As Worksheet Dim wksZeitGrp As Worksheet Dim ZeileG As Long 'nächste leere Zeile im Blatt Zeitgruppen Set wksZeiten = Worksheets("Zeiten") Set wksZeitGrp = Worksheets("ZeitGruppen") With wksZeitGrp Do Until IsEmpty(wksZeiten.Cells(ZeileZ, SpalteZeit)) ZeileG = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(ZeileG, 1).Value = wksZeiten.Cells(1, SpalteZeit) .Cells(ZeileG, 2).Value = wksZeiten.Cells(ZeileZ, SpalteZeit) .Cells(ZeileG, 3).Value = Gruppe ZeileZ = ZeileZ + 1 Loop End With End Sub

Hallo Joe,
für Einzelschaltung pro Button Klick muss man in der Subroutine "nur" die Schleife Do ... Loop-Schleife rausnehmen und eine Prüfung einbauen, falls die Zelle leer ist (der Zähler am Ende der Liste angekommen ist).
Gruß
Franz


Sub Azeit()
ZeileZ = Worksheets("ZeitGruppen").Range("F1") ' Start-Zeile
Call ZeitenUebertragen(SpalteZeit:=1, Gruppe:=1)
Worksheets("ZeitGruppen").Range("F1") = ZeileZ 'nächste Start-Zeile speichern
End Sub
Sub Bzeit()
ZeileZ = Worksheets("ZeitGruppen").Range("H1") ' Start-Zeile
Call ZeitenUebertragen(SpalteZeit:=2, Gruppe:=2)
Worksheets("ZeitGruppen").Range("H1") = ZeileZ 'nächste Start-Zeile speichern
End Sub
Sub ZeitenUebertragen(SpalteZeit%, Gruppe%)
Dim wksZeiten As Worksheet
Dim wksZeitGrp As Worksheet
Dim ZeileG As Long 'nächste leere Zeile im Blatt Zeitgruppen
Set wksZeiten = Worksheets("Zeiten")
Set wksZeitGrp = Worksheets("ZeitGruppen")
With wksZeitGrp
If IsEmpty(wksZeiten.Cells(ZeileZ, SpalteZeit)) Then
'do nothing
Else
ZeileG = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(ZeileG, 1).Value = wksZeiten.Cells(1, SpalteZeit)
.Cells(ZeileG, 2).Value = wksZeiten.Cells(ZeileZ, SpalteZeit)
.Cells(ZeileG, 3).Value = Gruppe
ZeileZ = ZeileZ + 1
End If
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Routine um Zeilen mit Werten fortzuschreiben

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Routine um Zeilen mit Werten fortzuschreiben

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

308 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread