Office: Über VBA einen Tabelleneintrag machen

Hallo,
ich habe hier wieder eine Tabelle, in die ich Dinge eintragen kann. Das will ich aber über eine UserForm erledigen. Also meine Tabelle ist wie beim Schiffeversenken aufgebaut. Auf einem DropDown kann man auswählen, welche Zeile und auf dem anderen kann man auswählen, in welche Spalte der Wert eingetragen werden soll. Ich hab soeinen Code schon, nur dieser Funktioniert auf dem Excel-Sheet selbst. Ich brauche einen der Über VBA funktioniert. Ich hab versucht ihn so umzuschreiben, dass es funktioniert, aber es hat nicht geklappt. Ich hab die Datei, um die es geht, mal angehängt. Ich wäre dankbar, wenn einer mal gucken könnte, warum mein Code nicht funktioniert und ihn eventuell korrigieren kann.
(Die UserForm heißt "Analysis".)
LG

 

Hallo,

folgenden VBA-Code

Code:

  With ActiveSheet
    Set RgNam = .Range(Airports).Find(What:=.ComboBox1.Text.Value, LookIn:=xlValues, lookat:=xlWhole)
    Set RgTät = .Range(AirportsTo).Find(What:=.ComboBox2.Text.Value, LookIn:=xlValues, lookat:=xlWhole)
    .TextBox7.Value = .Cells(RgNam.Row, RgTät.Column)
  End With

habe ich umgestellt auf:

Code:

  With ActiveSheet
    Set RgNam = Range("Airports").Find(What:=Me!ComboBox1.Value, LookIn:=xlValues, lookat:=xlWhole)
    Set RgTät = Range("AirportsTo").Find(What:=Me!ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
    Me!TextBox7.Value = .Cells(RgNam.Row, RgTät.Column)
  End With

Das stimmt nicht - sie heißt, so wie sie vorliegt, 'Userform1'.

 

Danke! Wie du siehst hab ich davon noch keine Ahnung. Aber ich steigere mich;)

Upps, ja da hab ich ausversehen eine ältere Version hochgeladen. Das macht aber nichts :)

Nochmal danke für die Hilfe!
Gruß fexs