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
VBA Formel einer Zelle in nächste kopieren	25.02.2020 06:07:59	Carina
VBA Formel einer Zelle in nächste kopieren	25.02.2020 07:48:41	Gast73813
VBA Formel einer Zelle in nächste kopieren	25.02.2020 08:17:28	Gast55890
VBA Formel einer Zelle in nächste kopieren	25.02.2020 10:30:15	Gast56826
VBA Formel einer Zelle in nächste kopieren	25.02.2020 12:29:41	Carina
VBA Formel einer Zelle in nächste kopieren	25.02.2020 18:11:01	Gast81314
VBA Formel einer Zelle in nächste kopieren	25.02.2020 18:27:59	Carina

Ansicht des Beitrags:

Von:
Gast73813

Datum:
25.02.2020 07:48:41

Views:
1159

Rating:

Antwort:

Thema:
VBA Formel einer Zelle in nächste kopieren

Wenn ich richtig verstehe und dieser Code bei F3 funktioniert, dann einfach fortführen:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F3:F5")) Is Nothing Then
        Call Tabelle1.HourlyRate(Target)
    End If
End Sub

Sub HourlyRate(Target As Excel.Range)
    
    'If Range("E3").Text = "International Expert" And Range("F3").Text = "Chair" Then
    If Target.Offset(0, -1).Text = "International Expert" And Target.Text = "Chair" Then
        Target.Offset(0, 1).Value = 111
    
    
    ElseIf Range("E3").Text = "International Expert" And Range("F3").Text = "Speaker" Then
        Range("H3").Value = 222
    ElseIf Range("E3").Text = "International Expert" And Range("F3").Text = "Member" Then
        Range("H3").Value = 333
    ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Chair" Then
        Range("H3").Value = 444
    ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Speaker" Then
        Range("H3").Value = 555
    ElseIf Range("E3").Text = "National Expert" And Range("F3").Text = "Member" Then
        Range("H3").Value = 666
    ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Chair" Then
        Range("H3").Value = 777
    ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Speaker" Then
        Range("H3").Value = 888
    ElseIf Range("E3").Text = "Regional Expert" And Range("F3").Text = "Member" Then
        Range("H3").Value = 999
    End If
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
VBA Formel einer Zelle in nächste kopieren	25.02.2020 06:07:59	Carina
VBA Formel einer Zelle in nächste kopieren	25.02.2020 07:48:41	Gast73813
VBA Formel einer Zelle in nächste kopieren	25.02.2020 08:17:28	Gast55890
VBA Formel einer Zelle in nächste kopieren	25.02.2020 10:30:15	Gast56826
VBA Formel einer Zelle in nächste kopieren	25.02.2020 12:29:41	Carina
VBA Formel einer Zelle in nächste kopieren	25.02.2020 18:11:01	Gast81314
VBA Formel einer Zelle in nächste kopieren	25.02.2020 18:27:59	Carina