brauche kleine Hilfe beim Code
05.12.2013 11:31:58
Amy
ich sehs im momnet leider nicht?
======================================================================
Private Sub CommandButton1_Click()
Dim pt As PivotTable
Dim intIndx As Long
Dim strErg As String
For Each pt In Me.PivotTables
pt.RefreshTable
Next pt
For intIndx = 4 To Cells(Rows.Count, 2).End(xlUp).Row - 1
If Cells(intIndx, 2) >= 100 Then
'MsgBox "Betrag wurde erreicht bei Lieferant " & Range("A4") & "! Bitte Sammelrechnung _
erstellen."
strErg = strErg & "," & Cells(intIndx, 1)
End If
Next
MsgBox "Der Betrag von CHF 100.00 wurde erreicht bei " & vbLf & Join(Split(Mid(strErg, 2), ","), _
vbLf) & vbLf & "Bitte Sammelrechnung erstellen."
For intIndx = 4 To Cells(Rows.Count, 2).End(xlUp).Row - 1
If Cells(intIndx, 2)