VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
mit Schleife eine Spalte weiterziehen	06.10.2022 17:50:08	Eva
mit Schleife eine Spalte weiterziehen	06.10.2022 19:56:12	Mase
mit Schleife eine Spalte weiterziehen	07.10.2022 16:40:41	Gast79931
mit Schleife eine Spalte weiterziehen	08.10.2022 11:37:09	Mase
mit Schleife eine Spalte weiterziehen	14.10.2022 18:15:08	Eva-Maria
mit Schleife eine Spalte weiterziehen	07.10.2022 16:45:15	Eva

Ansicht des Beitrags:

Von:
Mase

Datum:
06.10.2022 19:56:12

Views:
862

Rating:

Antwort:

Thema:
mit Schleife eine Spalte weiterziehen

Bin mir nicht sicher, ob richtig verstanden, aber schau Dir folgende Skizze mal an:

    Dim rngLikeliHood   As Excel.Range
    Dim rngImpact       As Excel.Range
    Dim c               As Excel.Range
    Dim vLikeliHood     As Variant
    Dim vImpact         As Variant
    
    Set rngLikeliHood = Range("I3:I7")
    Set rngImpact = Range("J2:N2")
    
    For Each c In Range("A2:A4")
        vLikeliHood = Application.Match(c.Offset(0, 1).Value, rngLikeliHood, 0)
        vImpact = Application.Match(c.Offset(0, 2).Value, rngImpact, 0)
        MsgBox c.Value & " => " & Cells(vLikeliHood + 2, vImpact + 9).Address
    Next c

und gehe das via F8 zeilenweise, unter folgendender Dateistruktur, durch:

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
mit Schleife eine Spalte weiterziehen	06.10.2022 17:50:08	Eva
mit Schleife eine Spalte weiterziehen	06.10.2022 19:56:12	Mase
mit Schleife eine Spalte weiterziehen	07.10.2022 16:40:41	Gast79931
mit Schleife eine Spalte weiterziehen	08.10.2022 11:37:09	Mase
mit Schleife eine Spalte weiterziehen	14.10.2022 18:15:08	Eva-Maria
mit Schleife eine Spalte weiterziehen	07.10.2022 16:45:15	Eva