PDA

Vollständige Version anzeigen : Wert in Tabelle eintragen


rh0
22.08.2017, 15:47
Hallo

Ich habe ein Problem wo ich gerade nicht weiterkommen.

Ich habe eine zweidimensionale Tabelle mit Zeilen- und Spaltenbeschriftung die in etwa so aussieht:

Person KW01 KW02 KW03 KW04 KW05
MA1
MA2
MA3
MA4


Nun möchte ich mit einem Userform die Daten in die Tabelle eintragen. Das Userform sieht in etwa so aus:

Person: "Dropdown mit Kürzel; MA1, MA2, ..."
Woche: "Dropdown mit KW01, KW02, ..."
Wert: "Textfeld mit Zahlenwert"

Was ich bis jetzt habe ist der folgende Code, gibt allerdings einen Fehler:

Private Sub CB_Save_Click()

Dim MA
Dim Zeile As Range
MA = CB_MA.Text
Set Zeile = Sheets("XY").Columns(3).Find(What:=MA, LookIn:=xlValues)
If Not Zeile Is Nothing Then


Dim KW
Dim Spalte As Range
KW = CB_KW.Text
Set Spalte = Sheets("XY").Rows(1).Find(KW)
If Not Spalte Is Nothing Then


TB_Stunden = Worksheets("XY").Cells(Zeile, Spalte)

Else
End

End If
End If

End

End Sub

Kann mir hier jemand weiterhelfen?

Vielen Dank!

Hajo_Zi
22.08.2017, 16:00
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten <a href="http://www.ms-office-forum.de/forum/showthread.php?t=322895">anonymisieren bzw. pseudonymisieren.</a>

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Test, Mappe, Beispiel usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

drambeldier
22.08.2017, 16:23
Moin,
gibt allerdings einen Fehler
das hilft miemandem. Ohne Abbild der Fehlermeldung und Inhalt der im Code gelb markierte Zeile geht nichts, hier sitzen keine Hellseher.

Stell eine Datei per Anhänge verwalten ein, es wird sich wohl niemand damit plagen, Dein Konstrukt nachzubauen.

rh0
23.08.2017, 10:17
Hallo zusammen

Anbei die Datei.

Vielen Dank!

drambeldier
23.08.2017, 16:53
Moin,

anbei die Korrektur:

leere END-Anweisungen sind zumindest überflüssig

Variable zum Zwischenspeichern sind fast meistens überflüssig

Ein Range kann nicht als Index benutzt werden, da muss schon Row oder Column hin

Zuweisung TBstunden umgedreht

Ungelöst: Die Listboxzuweisung für KW, da bin ich ratlos (und zu faul zum Suchen)

rh0
24.08.2017, 07:48
Super, vielen Dank!