Wenn die numerierung der blätter entsprechend ihrem namen ist (G001 ist Worksheets(1), G002 ist Worksheets(2) usw):
Das in einem MODUL:
public sub Test (byval name as string)
Dim VariableA,nr As Long
nr=val(name)
VariableA = Worksheets(nr).Cells(Rows.Count,1).End(x1Up).Row+1
With Worksheets(nr)
.Cells(VariableA, 1) .Value = Me.txtDatum.Value
.Cells(VariableA, 2). Value = Me.txtBediener.Value
.Cells (VariableA, 3). Value =Me.txtPrüfer.Value
.Cells usw.usw usw.
End with
End sub
Aufruf mit:
dim n as integer
for n=1 to 99' hier Start und max. Anzahl eingeben
call test(n)
next n
|