ich hatte folgendes makro bisher im Arbeitsblatt und es reagiert
auf Worksheet-Change.
Das habe ich geändert und rufe es nun alle x-Sekunden auf.
Nun kommt es aber vor, dass ich im Sheet "Opportunity" bin und das Makro
ausgeführt wird. Dann meckert es bei
For n = 1 To UBound(Spalte)
If Spalte(n, 1) "" And Spalte(n, 1) 0 Then
Zei = Zei + 1
Worksheets("Opportunity").Range("A" & Zei) = Spalte(n, 1) ' A anpassen
End If
Next n
Was muss ich da noch ändern? Leider bin ich nicht fit in VBA.
Hier noch der Rest vom Code:
Sub Opportunity()
Application.DisplayAlerts = False
Dim Zelle, Spalte, Zei As Long, n As Long
For Each Zelle In Worksheets("OrderBooks").UsedRange
If TypeName(Zelle.Value) = "Error" Then
Exit Sub
End If
Next Zelle
Spalte = Range("W1:W" & Range("W65536").End(xlUp).Row)
Worksheets("Opportunity").Columns(1).ClearContents ' 1 anpassen
For n = 1 To UBound(Spalte)
If Spalte(n, 1) <> "" And Spalte(n, 1) <> 0 Then
Zei = Zei + 1
Worksheets("Opportunity").Range("A" & Zei) = Spalte(n, 1) ' A anpassen
End If
Next n
Application.DisplayAlerts = True
End Sub
Danke,
Daniel