|
Ich habe eine VBA soweit erstellt, ist vermutlich viel Quatsch dabei aber das zweite sheet kann bereits über einen Button erstellt werden. Die Frage ist wie kann ich die Datei veröffentlichen?
Der Code sieht momentan so Aus:
Modul1 (Sheet_Erstellen):
Sub FEHLT()
'Schritt 1 Falls Sheet vorhanden, löschen
If sheetExists("Nicht zurückgegeben") Then
Sheets("Nicht zurückgegeben").Delete
End If
'Schritt 2 Scheet "Nicht zurückgegeben" erstellen
Sheets.Add.Name = "Nicht zurückgegeben"
Worksheets("Nicht zurückgegeben").Move After:=Worksheets(Worksheets.Count)
Call BedingteKopieZeilen
End Sub
Function sheetExists(sheetToFind As String) As Boolean
sheetExists = False
For Each Sheet In Worksheets
If sheetToFind = Sheet.Name Then
sheetExists = True
Exit Function
End If
Next Sheet
End Function
Modul2 (Sheet_Füllen):
Public Sub BedingteKopieZeilen()
'Dimensionieren der Variablen
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
'Zählen der Zeilen
With Tabelle1
ZeileMax = .UsedRange.Rows.Count
n = 1
'Identifizieren der zeilen mit "Rückgabe"
For Zeile = 2 To ZeileMax
If .Cells(Zeile, 5).Value = "Rückgabe" Then
'Kopieren der Zeilen in die generierte Tabelle "Nicht zurückgegeben"
.Rows(Zeile).Copy Destination:=Sheets("Nicht zurückgegeben").Rows(n)
n = n + 1
End If
Next Zeile
End With
End Sub
|