Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Immer die aktuelle Zelle anzeigen - markieren

Forumthread: Immer die aktuelle Zelle anzeigen - markieren

Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 16:46:04
Albin
Hoi Zusammen
Habe eine kleine Frage an Euch.
Mit dem aktuellen Makro werden Ping - Abfragen, nach IP Einträge aus der Spalte A durchgeführt. Je nach Netzwerk kann eine Abfrage, ein Durchlaufzeit bis 6 Sekunden pro Eintrag haben. Auch können es mehrere 100 IP-Einträge sein.
Mit meiner Bildschirmauflösungen sehe ich 32 Zeilen.
Nun möchte ich, dass die Anzeige der Tabell mitläuft. So dass ich immer schön sehen kann, in welcher Zeile sich das Makro gerade befindet.
Lieber Gruss
Albin
https://www.herber.de/bbs/user/123148.xlsm
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 16:56:25
Daniel
Hi
activeWindow.ScrollRow = i
damit steht die gerade bearbeitete Zeile immer ganz oben.
Gruß Daniel
AW: Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 17:12:17
Albin
Hoi Daniel
Danke für die rasche Antwort. Das mit dem ScrollRow passt 100%.
Lieber Gruss
Albin
AW: Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 16:57:10
Hajo_Zi
Links Oben
Von "Quinoman" Michael
Application.Goto Reference:="R14C6", scroll:=True
von Andre
Application.Goto Reference:=Range("F6"), scroll:=True

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Anzeige
AW: Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 23:32:24
Albin
Hoi Zusammen
Danke für die Zusatztipp.
LG
Albin
AW: Immer die aktuelle Zelle anzeigen - markieren
05.08.2018 17:06:59
Werner
Hallo Albin,
gleiches wie oben bereits aber ohne die Selektiererei in deinem Code. 
Sub ping()
Dim objWMIService As Object, i As Double
Dim colPings As Object, objPing As Object
On Error Resume Next
Range("B1:B300").ClearContents
With Range("B1:B300").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For i = 1 To Tabelle1.UsedRange.Rows.Count
If Cells(i, 1).Value  "" Then
Application.StatusBar = Cells(i, 1).Value
Application.Goto Cells(i, 1), True
Set colPings = objWMIService.ExecQuery _
("Select * From Win32_PingStatus where Address = '" & Cells(i, 1).Text & "'")
If Err = 0 Then
Err.Clear
For Each objPing In colPings
If Err = 0 Then
Err.Clear
If objPing.StatusCode = 0 Then
Cells(i, 2).Value = "Timeout " & objPing.ResponseTime & " ms"
Cells(i, 2).Interior.ColorIndex = 4
Else
Cells(i, 2).Value = "nicht erreichbar"
Cells(i, 2).Interior.ColorIndex = 3
End If
End If
Next
Else
Err.Clear
End If
End If
Next
Application.StatusBar = False
End Sub
Gruß Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige