Office: MsgBox individuell platzieren

vltier · 28. März 2017

Servus Gemeinde,

nachfolgendes Skript (Netzkopie - bin Neuling) ermöglicht mir die Suche über alle Tabellenblätter. Was mich bei mehreren Office-eigenen Dialogen auch stört, tritt hier ebenso auf, die Box verdeckt manchmal das Ergebnis. Kann wer helfen, MsgBoxen individuell zu platzieren?

Code:

Option Explicit
Global SSearch As String

Public Sub SearchAllTables()
Dim ws As Worksheet
Dim c
Dim firstAddress As String
Dim secAddress
Dim GFound As Boolean
Dim GWeiter As Boolean

GWeiter = False
GFound = False
anf:
SSearch = InputBox("Suchen nach:", "Stichwort-Suche / Suchfunktion", SSearch)

If SSearch = "" Then
End
End If
weiter:
For Each ws In Worksheets
'ws.Select
With ws.Cells
Set c = .Find(SSearch, LookIn:=xlValues, MatchCase:=False)
If Not c Is Nothing Then
GFound = True
ws.Select
c.Select
firstAddress = c.Address
If MsgBox("Weitersuchen?", vbQuestion + vbYesNo) = vbYes Then
Do
Set c = .FindNext(c)

secAddress = c.Address
If c.Address = firstAddress Then
Exit Do
End If
c.Select
If MsgBox("Weitersuchen?", vbQuestion + vbYesNo) = vbNo Then
GWeiter = True
GoTo ende
End If
Loop While Not c Is Nothing And secAddress firstAddress And c.Address firstAddress
Else
GWeiter = True
GoTo ende
End If
End If
End With
Next ws

ende:

If GFound = False Then
If MsgBox("Suchwert nicht gefunden! Neue Suche?", vbInformation + vbYesNo) = vbYes Then
GoTo anf:
End If
Else
If GWeiter = False Then
If MsgBox("Es wurden alle in Frage kommenden Suchbegriffe angezeigt! Soll die Suche neu gestartet werden?", vbInformation + vbYesNo) = vbYes Then
GoTo weiter
End If
End If
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

Hasso · 29. März 2017

Hallo vltier,

bei Google ehielt ich nach 0,61 Sekunden nach Eingabe der Suchbegriffe "excel vba MsgBox position" u.a. folgendes Ergebnis:
MessageBox individuell am Bildschirm positionieren

User · 29. März 2017

Guten Morgen.

Gockel Dich doch mal durchs Internet und suche nach Msgboxen nicht mittig.

Viele Grüße

vltier · 29. März 2017

Hallo Hasso,

trotzdem Danke!

Meine vorhergehende Suche bei Google dauerte ca. ähnlich lange. Unter den gefundenen Beiträgen zielten eigentlich alle auf aufwendige Lösungsansätze und viele Beiträge waren über 10 Jahre alt. Da ich mich noch nicht so gut auskenne, bin ich davon ausgegangen, dass es in der fortlaufenden Entwicklung vielleicht aktuell einfachere Möglichkeiten gibt, mein Problem zu lösen.

Der von dir gefundene Beitrag war bisher nicht darunter, daran werde ich mich probieren.

RPP63 · 29. März 2017

Moin!
Du willst es einfacher haben?
Dann benutze Strg+f
Die "MsgBox" hüpft dann automatisch zur Seite.
Das Ganze ohne eine Zeile Code. *wink.gif*

Gruß Ralf

Office: MsgBox individuell platzieren

MsgBox individuell platzieren

MsgBox individuell platzieren

MsgBox individuell platzieren

MsgBox individuell platzieren - Similar Threads - MsgBox individuell platzieren

MsgBox mit Berechnung und Eintrag in Tabelle

VBA: Mit MsgBox bestimmte Inhalte von Zeile leeren

VBA-Code Arbeitsblatt wechseln

MsgBox bei zwei Werten

MsgBox in Excel anzeigen lassen per Word VBA

MsgBox Ja / Nein > Nein als Standard

MsgBox wenn in Zeitintervall kein "x"