AW: sind das Bereichsnamen?
27.11.2017 14:52:08
Christian
hallo Werner,
habs grad versucht, es kommt die Fehlermeldung "Argument ist noch optional"
Ob es ein Bereichsname ist, weiß ich nicht....anbei das ganze Script, mit der eingefügten Zeile
----------------------
Sub Abrechnungsdatensatz_erzeugen()
Dim KProdukt As String
Dim KFormat As String
Dim KBlatt As String
Dim KMenge As String
Dim KEinzelkosten As String
Dim KAuftrag As String
Dim KDatum As String
Dim x As Long
Dim erstezeile As Long
Dim neueZeile As Long
Dim nexterstezeile As Long
Dim BDAktion As String
Dim BDGesamt As Double
Dim BDKunde As String
Dim BDKostenstelle As String
Dim BDDatum As String
Dim i As Long
Dim firstLine As Long
Dim searchDB As Long
Dim nextfirstLine As Long
Dim strDaten As String
Dim wkbQuelle As Workbook, wkbmaster As Workbook
Dim wksQuelle As Worksheet, wksMaster As Worksheet, wksstatistik As Worksheet
Dim WinUser As String
WinUser = VBA.Environ("UserName")
Set wkbQuelle = ThisWorkbook
Set wksQuelle = wkbQuelle.Worksheets("Auftrag_Kopierzentrale")
strDaten = wkbQuelle.Worksheets("Parameter").Range("B1")
BDAktion = wksQuelle.Cells(5, 17).Value
BDGesamt = wksQuelle.Cells(34, 30).Value
BDKunde = wksQuelle.Cells(9, 8).Value
BDKostenstelle = wksQuelle.Cells(9, 26).Value
BDDatum = wksQuelle.Cells(11, 19).Value
If (BDAktion = "" Or BDKostenstelle = "" Or BDKunde = "" Or BDGesamt "" Then
KProdukt = wksQuelle.Cells(neueZeile, 3).Value
KFormat = wksQuelle.Cells(neueZeile, 15).Value
KBlatt = wksQuelle.Cells(neueZeile, 18).Value
KMenge = wksQuelle.Cells(neueZeile, 20).Value
KEinzelkosten = wksQuelle.Cells(neueZeile, 24).Value
KAuftrag = wksQuelle.Cells(7, 26).Value
KDatum = wksQuelle.Cells(11, 19).Value
Else: GoTo Ende
End If
Set wksstatistik = wkbmaster.Worksheets("Statistik")
x = 2
erstezeile = 1
nexterstezeile = True
Do While nexterstezeile
erstezeile = erstezeile + 1
If wksstatistik.Cells(erstezeile, 1).Value = "" Then
nexterstezeile = False
End If
Loop
'wksQuelle.Cells(neueZeile, 3).Copy Range("KProdukt")
wksstatistik.Cells(erstezeile, 1).Value = KProdukt
wksstatistik.Cells(erstezeile, 2).Value = KFormat
wksstatistik.Cells(erstezeile, 3).Value = KBlatt
wksstatistik.Cells(erstezeile, 4).Value = KMenge
wksstatistik.Cells.Cells(erstezeile, 5).Copy Range = ("KEinzelkosten")
wksstatistik.Cells(erstezeile, 6).Value = KAuftrag
wksstatistik.Cells.Cells(erstezeile, 7).Value = KDatum
wksstatistik.Cells.Cells(erstezeile, 8).Value = WinUser
Loop
Ende:
' Ende der Übertragung der Werte in die Statistik
MsgBox ("Daten erfolgreich zu der Excel-Tabelle - Abrechnungsdaten - alleAufträge - hinzugefü _
gt")
wkbmaster.Close True
End Sub
----------------------------