Thema Datum  Von Nutzer Rating
Antwort
26.04.2016 21:51:19 SpaceToon
NotSolved
Blau VBA: Zelle finden durch Eingabe von zwei Koordinaten
 27.04.2016 08:46:33 Crazy Tom
*****
Solved
27.04.2016 13:12:08 SpaceToon
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
27.04.2016 08:46:33		 Views:
699		 Rating:
     
Antwort:
 Nein
Thema:
VBA: Zelle finden durch Eingabe von zwei Koordinaten

Hi

meinst du so etwas?

Sub test()
    Dim rngBereichX As Range, rngBereichY As Range
    Dim rngX As Range, rngY As Range
    Dim x As Long, y As Long
    Dim strX As String, strY As String
    strX = InputBox("X-Wert suchen", "X-Wert")
    If strX = "" Then Exit Sub
    strY = InputBox("Y-Wert suchen", "Y-Wert")
    If strY = "" Then Exit Sub
    Set rngBereichX = Range("A1:J1")
    Set rngBereichY = Range("A1:A10")
    Set rngX = rngBereichX.Find(strX, LookIn:=xlValues, lookat:=xlWhole)
    If Not rngX Is Nothing Then
        x = rngX.Column
    Else
        MsgBox "nix gefunden"
        Exit Sub
    End If
    Set rngY = rngBereichY.Find(strY, LookIn:=xlValues, lookat:=xlWhole)
    If Not rngY Is Nothing Then
        y = rngY.Row
    Else
        MsgBox "nix gefunden"
        Exit Sub
    End If
    MsgBox Cells(y, x).Value
End Sub

 

MfG Tom

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
26.04.2016 21:51:19 SpaceToon
NotSolved
Blau VBA: Zelle finden durch Eingabe von zwei Koordinaten
 27.04.2016 08:46:33 Crazy Tom
*****
Solved
27.04.2016 13:12:08 SpaceToon
NotSolved