Zellen einfärben
13.01.2016 11:15:03
Matthias
mein Forschungsprojekt hält mich auf Trab. Nachdem das gestrige Problem perfekt gelöst wurde geht es weiter. Noch einmal die Vorraussetzungen:
Mit VBA hab ich die ersten Berührungspunkte durch das Projekt.
Es geht darum, dass in Blatt 1 "Name", Die Namen der Studienteilnehmer hinterlegt sind. Mit der Namenseingabe öffnet sich ein neues Blatt mit dem Patientennamen, das aus dem Blatt "Vorlage" entsteht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And _
Target.Row > 6 And _
Target.Count = 1 And _
Target "" Then
With ThisWorkbook
.Worksheets("Vorlage").Copy after:=.Sheets(.Sheets.Count)
End With
ActiveSheet.Name = Target
'Nummer in B4 eintragen
ActiveSheet.Range("B4").Value = Target.Value
Me.Activate
Me.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target & "!A1"
End If
End Sub
In diesem Blatt "Vorlage" ist ein Dropdown-Feld über das verschiedene Produkte gewählt werden können die den Studienteilnehmern verabreicht werden. Jetzt möchte ich für die Auswertung, das auf dem Blatt "Name" der Name des Teilnehmers z.B. rot hinterlegt wird, wenn Produkt a gegeben wird, grün bei Produkt b, usw. Ich hatte zuerst an eine bedingte Formatierung gedacht, bin da aber nicht weitergekommen, da ich nicht weiss ob und wie ich auf ein Feld in einem anderen Blatt verweisen kann.
Ich hoffe es ist einigermassen verständlich erklärt und einmal mehr auf Hilfe
Danke schon einmal vorab.
Grüsse
Matthias