Hallo da draussen,
ich habe folgendes Problem:
Ich habe eine Datenmatrix, in die Werte geschrieben werden sollen. Die Position in der Matrix ist bestimmt durch:
a) einen Wert aus einer Spalte (kein Problem)
b) einen Wert aus einer Zeile, der der Caption eines Frames entspricht.
Ich habe folgenden Code probiert, der aber nicht funktioniert, weil Frame.Caption so nicht gelesen werden kann. Ich hatte auch versucht, das ganze über eine Variable zu definieren, aber das geht auch nicht.
For Each Frame In Seite1.Controls
PersonenId = "5"
Dim c As Range
Dim d As Range
Dim spalte As Integer
Dim zeile As Integer
Set c = Rows(1).Find(Frame.Caption, LookIn:=xlValues, LookAt:=xlWhole)
Set d = Columns(1).Find(PersonenId, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
spalte = c.Column
End If
If Not d Is Nothing Then
zeile = d.Row
End If
Sheets("fb").Cells(zeile, spalte).Value = "b"
Next
Hat da jemand eine Lösung für mich?
P.S.: Die Caption der Frames ist variabel, da diese aus einer Zufallsauswahl generiert werden.
Beste Grüße,
Gunther.