Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Schnittpunkt suchen und wert eintragen
#1
Hallo zusammen,

ich möchte gerne eine Konfliktematrix erstellen, aus der hervorgehen soll, wenn zwei verschiedene Projekte auf die selbe Ressource zugreifen. Ich habe also eine Zeile in der alle Projekte aufgeführt sind und eine Spalte, in der die entsprechende Ressource aufgeführt ist. Im Schnittpunkt der von Projekt und Ressource wird ein "x" eingetragen, woraufhin sich die entsprechende Zelle grau färbt. Wird eine weitere Zelle in der gleichen Zeile belegt, sorgt bedingte Formatierung dafür, dass sich das ganze rot färbt. Das klappt auch so wie gewollt. Die Tabelle wird in der finalen Version recht umfangreich werden, weswegen ich das ganze gerne automatisieren würde. Ein klick auf ein Feld öffnet eine Maske, in der man dann Projekt und Ressource eintragen kann. Im Schnittpunkt wird dann ein "x" eingetragen. Das wäre mein Wunsch, aber aktuell komme ich damit nicht weiter.

Meine bisherigen Versuche habe ich zu einer Beispielmappe gekürzt, in der die wesentlichen Dinge enthalten sind. Für Hilfe wäre ich sehr dankbar!

Viele Grüße,
Fred


Angehängte Dateien
.xlsm   Beispielmappe.xlsm (Größe: 163,14 KB / Downloads: 3)
Antwortento top
#2
Hallo

Versuch es so.

Code:
Sub Makro_Eintragen()
  
    Dim rngEquipment As Range
    Dim rngProjektname As Range
  
    Set rngEquipment = Worksheets(1).Columns(4).Cells.Find(UserForm1.TextBox1.Text, lookat:=xlWhole)
    Set rngProjektname = Worksheets(1).Rows(2).Cells.Find((UserForm1.TextBox2.Text), lookat:=xlWhole)

    If Not rngEquipment Is Nothing And Not rngProjektname Is Nothing Then
       Worksheets(1).Cells(rngEquipment.Row, rngProjektname.Column) = "x"
      
    End If

End Sub

LG UweD
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste