Thema Datum  Von Nutzer Rating
Antwort
Rot hyperlink per Makro
18.04.2021 09:05:35 Roger
NotSolved
18.04.2021 09:27:13 Gast26243
NotSolved
18.04.2021 10:00:02 Gast63778
NotSolved
18.04.2021 10:25:11 Gast42752
NotSolved
18.04.2021 10:28:02 Gast64976
NotSolved

Ansicht des Beitrags:
Von:
Roger
Datum:
18.04.2021 09:05:35
Views:
101
Rating: Antwort:
  Ja
Thema:
hyperlink per Makro

Ich habe in Spalte "A" Artikelnummern, diese möchte ich mit den Artikelnummern aus Spalte "D" vergleichen. In der Spalte "E" stehen die Lagerbestände für die Artikel in "D".

Wenn jetzt der Wert von "A5" mit einem Wert aus der Spalte "D" übereinstimmt, hätte ich gerne den Lagerbestand aus der Zelle ("E"), der neben der gefundenen Zelle aus "D" steht, kopiert in die Spalte "B5".

 

Vielleicht so besser verständlich:

Vergleiche "A" mit "D"| Wenn "A4" = "D4" -> kopiere Wert aus "E4" nach "B4"| Wenn "A4" ungleich "D4" springe eine Zelle in "D" nach unten (bis zum Ende).

Das gleiche dann mit "A5".

 

 

Das oben beschriebene klappt mit dem Makro super nur mit dem Link hapert es noch (Zusätzlich möchte ich beim kopieren von "E4" (Link) das der Link auch in "B4" übernommen wird. Wie muss ich das Makro anpassen damit es mit dem kopieren des Links klappt?

 

Viele Grüsse

Roger

 

Option Explicit

 

Sub Bestandabfragen()

    Dim WSq As Worksheet

    Dim WSz As Worksheet

    Dim BestArtCol As Range

    Dim BestCol As Range

    Dim ArtCol As Range

    Dim ZielCol As Range

    Dim HelpArr As Variant

    Dim Dict As Object

    Dim Zeile As Long

    'Anpassen------------------------------------------------------------------

    Set WSz = Worksheets("Tabelle1")    'Zielworksheet

    Set WSq = Worksheets("Tabelle1")    'Quellworksheet

    Set ArtCol = WSz.Columns("A")        'Spalte, in der die kurze Artikelliste steht

    Set ZielCol = WSz.Columns("B")       'Spalte für die Bestände der kurzen Artikelliste

    Set BestArtCol = WSq.Columns("D")    'Spalte, in der die lange Artikelliste steht

    Set BestCol = WSq.Columns("E")       'Spalte für die Bestände der langen Artikelliste

    'Anpassen------------------------------------------------------------------

  

    Set Dict = CreateObject("Scripting.Dictionary")

    'Artikel und Bestände einlesen

    HelpArr = Intersect(Union(BestArtCol, BestCol), WSq.UsedRange)

    For Zeile = 1 To UBound(HelpArr, 1)

        Dict(HelpArr(Zeile, 1)) = HelpArr(Zeile, 2)

    Next

    'Kurze Artikelliste einlesen und Bestände zuordnen

    With WSz

        HelpArr = Range(.Cells(1, ArtCol.Column), .Cells(.Cells(.Rows.Count, ArtCol.Column).End( _

xlUp).Row, ArtCol.Column))

    End With

    For Zeile = 1 To UBound(HelpArr, 1)

        HelpArr(Zeile, 1) = Dict(HelpArr(Zeile, 1))

    Next

    'Ausgabe der Bestände

    ZielCol.ClearContents

    WSz.Cells(1, ZielCol.Column).Resize(UBound(HelpArr, 1)) = HelpArr

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 hyperlink per Makro
18.04.2021 09:05:35 Roger
NotSolved
18.04.2021 09:27:13 Gast26243
NotSolved
18.04.2021 10:00:02 Gast63778
NotSolved
18.04.2021 10:25:11 Gast42752
NotSolved
18.04.2021 10:28:02 Gast64976
NotSolved