Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Code fehlerhaft

Code fehlerhaft
Reinhard
Hallo Wissende,
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>

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Code fehlerhaft
22.02.2011 23:22:45
Uduuh
Hallo,
funktioniert, aber: Tabelle1A:A hat Inhalte ab Zeile 721. Bei Start der Beispielmappe wird in A761 ff geschrieben.
Gruß aus’m Pott
Udo

AW: Code fehlerhaft
23.02.2011 01:16:12
Reinhard
Hallo Kohlenlümmel :-),
(äh, wenn das eine Beleidung sein könnte, soory. Hallo Udo)
danke dir. Wäre ich nie darauf gekommen.
Ich hab ja zum Testen das Zeitintervall des Makros auch auf kurze Zeiten gesetzt. Waren natürlich viele Einträge, zu 99,9% habe ich die auch wieder gelöscht vor Neutests.
Irgendwie halt einmal nicht und schon hatte ich ein Problem :-)
Gruß
Reinhard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige