Thema Datum  Von Nutzer Rating
Antwort
05.12.2016 17:38:42 armin
Solved
05.12.2016 19:37:30 Mackie
NotSolved
06.12.2016 09:46:49 armin
NotSolved
06.12.2016 16:31:20 Mackie
NotSolved
Rot vba
06.12.2016 18:51:31 GraFri
NotSolved

Ansicht des Beitrags:
Von:
GraFri		 Datum:
06.12.2016 18:51:31		 Views:
768		 Rating:
     
Antwort:
  Ja
Thema:
vba

Hallo Armin

 

Vielleicht hilft dir folgendes weiter.

 

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim wMatch, rMatch
Dim wDaten, rDaten

Set wDaten = Worksheets("Wandertouren").Range("A39:A1000")
Set rDaten = Worksheets("Radtouren").Range("D13:D1000")

If Not Intersect(Target, Range("C5:Y37")) Is Nothing Then
    'Cancel = True
    
    wMatch = Application.Match(CLng(Target), wDaten, 0)

    If Not IsError(wMatch) Then
        With Worksheets("Wandertouren")
            .Activate
            .Range("A" & (38 + wMatch)).Select
        End With
        Exit Sub
    End If
    
    rMatch = Application.Match(CLng(Target), rDaten, 0)
    
    If Not IsError(rMatch) Then
            With Worksheets("Radtouren")
                .Activate
                .Range("D" & (12 + rMatch)).Select
            End With
    Else
        MsgBox "Datum nicht vorhanden"
    End If

End If

Set wDaten = Nothing
Set rDaten = Nothing
End Sub

 

 

mfg GraFri

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
05.12.2016 17:38:42 armin
Solved
05.12.2016 19:37:30 Mackie
NotSolved
06.12.2016 09:46:49 armin
NotSolved
06.12.2016 16:31:20 Mackie
NotSolved
Rot vba
06.12.2016 18:51:31 GraFri
NotSolved