Code fehlerhaft
Reinhard
In der Mappe https://www.herber.de/bbs/user/73687.xls
ist der nachfolgende Code in einem Standardmodul. In Tab3 läuft eine 2-minütige Webabfrage, die ihr Ergebnis in A1 schreibt, die funtioniert.
Dies möchte ich auslesen und in Tab1 fortlaufend mitnotieren.
Es lief auch schon in der Testphase, sodaß dort eingetragen wurde. Dann habe ich am Code was geändert, k.A. was, jetzt passiert gar nix in Tab1:-(
Die Zeitschleife (StartTimer) an sich läuft, aber es wird nix geschrieben.
Danke ^ Gruß
Reinhard
Option Explicit
'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public MerkTime As Date
Sub PlaylistAuslesen(ByVal Zei As Long)
Dim strNeu, intN As Integer
strNeu = Split(Worksheets("Tabelle3").Range("A1"), "")
With Worksheets("Tabelle1")
For intN = LBound(strNeu) + 1 To UBound(strNeu) - 1
.Cells(Zei, 1) = FilterNeu(strNeu(intN), "")
.Cells(Zei, 2) = FilterNeu(strNeu(intN), "<artist>")
Next intN
End With
End Sub
Sub StartTimer()
Dim Zei As Long
Zei = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Call PlaylistAuslesen(Zei)
MerkTime = Now + TimeValue("00:00:10")
Application.OnTime MerkTime, "StartTimer"
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime MerkTime, "StartTimer", , False
End Sub
Function FilterNeu(ByVal Wo As String, ByVal Was As String) As String
Dim Von As Integer, Bis As Integer
'FilterNeu = "was falsch"
Von = InStr(Wo, Was)
If Von = 0 Then Exit Function
Bis = InStr(Wo, Replace(Was, " Bis Then Exit Function
FilterNeu = Mid(Wo, Von + Len(Was), Bis - Von - Len(Was))
End Function
</artist>