Office: (Office 2016) Counter

Und der nächste da ich in Excel einfach nicht durchblicke.

Ich möchte dass er die Werteänderungen aus der Spalte C zählt. Also jedes mal wenn ich den Ping überprüfe das mit zählt.

Dies soll dann in der Spalte D gezählt werden.

Hinter ist mein Code und meine Tabelle im Anhang

 

Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Ich baue keine Datei nach, die Zeit hat schon jemand investiert.

Bilder statt Datei | Excel ist sexy!
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem aussagekräftigen Dateinamen hoch.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm*, Forum* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Bei Download beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)

Das ist nur meine Meinung zu dem Thema.

 

Hi,

Und der nächste

Erst mal die vorherige feedbacken ... oder...?
Und in diesem Fall ist eine Beispieldatei in der Tat hilfreich.

 

Bitteschön

 

Hi,

meines Erachtens nach kannst Du hier die Iteration nutzen (Datei-Optionen-Formeln-Iterative Berechnung aktivieren, max. Iterationszahl: 1).
Dann brauchst Du eine "Steuerzelle", mit der Du die Iteration an- bzw. ausschalten kannst. Ich nehme mal F1.
Schreibe in D2 die Formel
=WENN(F$1=0;0;WENN(C2="Online";D2+1;""))
und kopier sie runter. Du erhältst erstmal nur Nuller. Jetzt aktiviere die Iteration, indem Du in F1 irgendwas reinschreibst (z.B. eine 1).
Wenn Du jetzt die Sub PingSystem ausführst, erledigt die Formel den Rest.
Wenn Du F1 wieder leerst oder ne Null reinschreibst, geht es wieder von vorne los.

 

Moin,
Die Formel ist zwar sehr hilfreich würde das aber trotzdem gerne mit dem Script machen. Kannst du mir dort weiterhelfen?

 

Hi,

ich denke, Du musst nur Deine Ping-Sub anpassen - auf das ganze Calculate-Gedöns kannst Du verzichten.

Sub PingSystem()
Dim strip As String
For introw = 2 To ActiveSheet.Cells(65536, 2).End(xlUp).Row
strip = ActiveSheet.Cells(introw, 2).Value
If Ping(strip) = True Then
If ActiveSheet.Cells(introw, 3).Value = "Offline" Then
ActiveSheet.Cells(introw, 4) = ActiveSheet.Cells(introw, 4) + 1
ActiveSheet.Cells(introw, 3).Value = "Online"
End If
Else
ActiveSheet.Cells(introw, 3).Value = "Offline"
End If
Next
End Sub

 

Wenn du so nett wärst kannst du dies dort in meine Excel selber reinschreiben und hier hochladen?

 

Hi Jakob,

mit nett oder nicht nett hat das wenig zu tun. Das ist Copy & Paste - das bekommst Du selbst hin.

 

Funktioniert mit Copy & Paste bei mir aber leider trotzdem nicht

 

Hi,

"funktioniert nicht" ist absolut nicht hilfreich. Lade Deinen nicht funktionierenden Versuch hoch - und entferne vorher auch das ganze Calculate-Gedöns (was eh in den falschen Modulen steht).

 

Moin, hier habe ich nochmal die XLSM hochgeladen

 

Hi,

ich fühl mich schon irgendwie auf den Arm genommen. Wo ist der Code in Deiner Datei, den ich Dir gepostet habe?
Habe es jetzt nochmal probiert - es funktioniert EINWANDFREI.