Thema Datum  Von Nutzer Rating
Antwort
11.10.2016 09:38:05 Kash
NotSolved
11.10.2016 11:21:24 Gast13943
NotSolved
Rot Wverweis Makro
 11.10.2016 11:52:07 Kash
NotSolved
11.10.2016 11:52:07 Kash
NotSolved
11.10.2016 13:48:12 Gast13943
NotSolved

Ansicht des Beitrags:
Von:
Kash		 Datum:
11.10.2016 11:52:07		 Views:
861		 Rating:
     
Antwort:
  Ja
Thema:
Wverweis Makro

Danke für den Hinweis dieses Problem habe ich bereits behoben.

Allerdings weiß ich immer noch nicht wie ich den Ausgewählten bereich in den Wverweis einbaue

Hier der aktuelle Code. Vl kannst du mir sagen wie ich das sonst am besten angehe:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub wverweis()
 
' wverweis Makro
 
    Dim auswahl, rng1, rng2 As Range
     
     
    Set auswahl = Rows(11).Find("tofind", LookIn:=xlValues, lookat:=xlWhole)
    If Not auswahl Is Nothing Then
         Range(Cells(11, 8), Cells(11, auswahl.Column - 1)).Select
         
    Else
        MsgBox "nix gefunden"
    End If
     
    Set rng1 = Range("F15")
     
    Range("K40").Select
     
   ActiveCell.FormulaR1C1 = "=HLOOKUP(" & rng1 & "," & auswahl & ",1,TRUE)"
    Range("K40").Select
 
BZW wie schreibe ich die ausgewählte Range (
Range(Cells(11, 8), Cells(11, auswahl.Column - 1)).Select) auf eine Variable, dass ich diese dann einbauen kann?

LG

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 09:38:05 Kash
NotSolved
11.10.2016 11:21:24 Gast13943
NotSolved
Rot Wverweis Makro
 11.10.2016 11:52:07 Kash
NotSolved
11.10.2016 11:52:07 Kash
NotSolved
11.10.2016 13:48:12 Gast13943
NotSolved