Thema Datum  Von Nutzer Rating
Antwort
11.10.2016 12:43:05 Gast85932
NotSolved
Blau Variable Speichern
 11.10.2016 13:10:30 Crazy Tom
NotSolved
11.10.2016 13:22:05 Gast55800
NotSolved

Ansicht des Beitrags:
Von:
Crazy Tom		 Datum:
11.10.2016 13:10:30		 Views:
590		 Rating:
     
Antwort:
  Ja
Thema:
Variable Speichern

Hallo

eine Möglichkeit

Sub test()
    Dim rngBereich As Range
    Dim rngAuswahl As Range
    Set rngAuswahl = Rows(11).Find("tofind", LookIn:=xlValues, lookat:=xlWhole)
    If Not rngAuswahl Is Nothing Then
        Set rngBereich = Range(Cells(11, 8), Cells(11, rngAuswahl.Column - 1))
        MsgBox rngBereich.Address
        rngBereich.Select
    End If
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
11.10.2016 12:43:05 Gast85932
NotSolved
Blau Variable Speichern
 11.10.2016 13:10:30 Crazy Tom
NotSolved
11.10.2016 13:22:05 Gast55800
NotSolved