Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
25.02.2020 06:07:59 |
Carina |
|
|
VBA Formel einer Zelle in nächste kopieren |
25.02.2020 07:48:41 |
Gast73813 |
|
|
|
25.02.2020 08:17:28 |
Gast55890 |
|
|
|
25.02.2020 10:30:15 |
Gast56826 |
|
|
|
25.02.2020 12:29:41 |
Carina |
|
|
|
25.02.2020 18:11:01 |
Gast81314 |
|
|
|
25.02.2020 18:27:59 |
Carina |
|
|
Von:
Gast73813 |
Datum:
25.02.2020 07:48:41 |
Views:
707 |
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
|
25.02.2020 06:07:59 |
Carina |
|
|
VBA Formel einer Zelle in nächste kopieren |
25.02.2020 07:48:41 |
Gast73813 |
|
|
|
25.02.2020 08:17:28 |
Gast55890 |
|
|
|
25.02.2020 10:30:15 |
Gast56826 |
|
|
|
25.02.2020 12:29:41 |
Carina |
|
|
|
25.02.2020 18:11:01 |
Gast81314 |
|
|
|
25.02.2020 18:27:59 |
Carina |
|
|