Thema Datum  Von Nutzer Rating
Antwort
Rot Anpassung von Code
 08.03.2017 10:13:58 KittyKat
NotSolved
08.03.2017 10:37:13 Gast89932
NotSolved
10.03.2017 07:56:11 KittyKat
NotSolved

Ansicht des Beitrags:
Von:
KittyKat		 Datum:
08.03.2017 10:13:58		 Views:
1106		 Rating:
     
Antwort:
  Ja
Thema:
Anpassung von Code

Moin ihr Lieben, ich habe hier einen Code bekommen um das Ergebnis eines Sverweises in einer anderen Zeile auszugeben damit beim Löschen davon die Formel nicht beschädigt wird. Der Code funktioniert schon gut allerdings muss ich das ganze nicht nur für eine Zeile sondern für mehrere Zeilen machen. um genau zu sein 2000 Stück. Also H2, H3 .... I2, I3 ... Und so weiter. Wie passe ich den Code so an? Gruß Kitty

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Ergebnis As String
If Target.Address(0, 0) = "C3" Then
    If Target <> "" Then
        On Error GoTo Ausgang
        Ergebnis = Application.VLookup(Target.Value, Workbooks("Mappe1.xlsm") _
        .Sheets("Tabelle2").Range("A2:B1000"), 2, False)
        Range("C5") = Ergebnis
    Else
        Range("C5") = ""
    End If
End If
Exit Sub
 
Ausgang:
Range("C5") = "Wert nicht vorhanden!"
End Sub

 

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
Rot Anpassung von Code
 08.03.2017 10:13:58 KittyKat
NotSolved
08.03.2017 10:37:13 Gast89932
NotSolved
10.03.2017 07:56:11 KittyKat
NotSolved