Thema Datum  Von Nutzer Rating
Antwort
25.02.2020 06:07:59 Carina
NotSolved
25.02.2020 07:48:41 Gast73813
NotSolved
Rot VBA Formel einer Zelle in nächste kopieren
 25.02.2020 08:17:28 Gast55890
NotSolved
25.02.2020 10:30:15 Gast56826
NotSolved
25.02.2020 12:29:41 Carina
NotSolved
25.02.2020 18:11:01 Gast81314
NotSolved
25.02.2020 18:27:59 Carina
NotSolved

Ansicht des Beitrags:
Von:
Gast55890		 Datum:
25.02.2020 08:17:28		 Views:
966		 Rating:
     
Antwort:
  Ja
Thema:
VBA Formel einer Zelle in nächste kopieren

Vielen Dank.

Leider klappt es aber nicht...

 

In Spalte E kann ich das Experten Level auswählen (Dropdown Liste), in Spalte F die Rolle (Dropdown Liste). Je nach Rolle und Expertenlevel soll in Spalte H ein anderer Wert erscheinen.

 

Bsp:

Bei Auswahl von International Expert in Zelle E3 und Chair in Zelle F3 soll in Spalte H der Wert 111 angezeigt werden.

Bei Auswahl von International Expert in Zelle E3 und Member in Zelle F3 soll in Spalte H der Wert 222 angezeigt werden usw.

 

Er soll aber auch in Zeile 4, 5, 6 usw funktionieren. Wenn ich also in Zelle E4 International Expert und in Zelle F4 Chair auswähle soll ebenfalls der Wert 111 angezeigt werden.

Ich habe noch einen Fehler in meinem Code gefunden. So funktioniert er in Zeile 3:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub HourlyRate()
If Range("E3").Text = "International Expert" And Range("F3").Text = "Chair" Then
Range("H3").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
  
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("F3") Then
Call Tabelle1.HourlyRate
End If
End Sub

 

Danke und LG

Carina

 

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



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