If Anweisungen
22.01.2019 15:03:52
Andre
Folgendes Problem ich habe 3 Blätter
Die Daten stehen im Blatt "Optionen" wird im Blatt "Dokument erstellen" der Name des Bearbeiters ausgewählt dann sollen die Daten die im Blatt "Optionen" stehen in das Tabellenblatt "Vorschau" geschrieben werden.
Ich hab es momentan so
If Worksheets("Dokument erstellen").Range("C6").Value = "Name" Then
Worksheets("Vorschau").Range("A6").Value = Worksheets("Optionen").Range("F11").Value ' _
Telefonummer
Worksheets("Vorschau").Range("A7").Value = Worksheets("Optionen").Range("G11").Value 'E- _
Mail
ElseIf Worksheets("Dokument erstellen").Range("C6").Value = "Name1" Then
Worksheets("Vorschau").Range("A6").Value = Worksheets("Optionen").Range("F12").Value
ElseIf Worksheets("Dokument erstellen").Range("C6").Value = "Name2" Then
Worksheets("Vorschau").Range("A6").Value = Worksheets("Optionen").Range("F13").Value
ElseIf Worksheets("Dokument erstellen").Range("C6").Value = "Name3" Then
Worksheets("Vorschau").Range("A6").Value = Worksheets("Optionen").Range("F14").Value
ElseIf Worksheets("Dokument erstellen").Range("C6").Value = "Name4" Then
Worksheets("Vorschau").Range("A6").Value = Worksheets("Optionen").Range("F15").Value
End If
F11 ist in dem Fall die Telefonnummer und die wird auch eingetragen.
Bei der Zeile da drunter mit G11 (Email) trägt er nichts ein.
Danke und LG
Anzeige