|
Schön guten Tag erst mal und Danke im Vorraus.
Ich komm leider nicht weiter, da ich ein kompletter Neuling bin und erst seit paar tagen damit angefangen habe mit Excel VBA zu arbeiten bleib ich nun an dieser Arbeit stehen. Ich versuche mit ein klick in meiner Userform mehre befehle auszuführen erst soll er mir den wert anzeigen und danach automatisch die ganzen werte von meiner Userform in die Tabelle eintragen und im selben Moment auch in der 2 Tabelle eintragen da ich mit einer Kompletten übersicht von allen Geräten und genauere Information arbeite, wo er mir nur 1 gerät anzeigt und mit mehr Information. Danach soll er mich abfragen, ob ich mehr Einsicht bekommen möchte, also ob ich zur 2 Tabelle möchte oder nicht, wen ja zeigt er mir die an wen nein, macht er, trotzdem alles wie beschrieben nur zeigt mir nicht die Seite an, sondern bleibt bei der liste da ich später mit einer andere Userform die Information von jedem gerät, einsehen möchte da bräuchte ich zwar auch hilfe aber das versuch ich erst mal selber zu Googeln nur leider finde ich grade keine lösung zu mein Problem
Mir fehlt noch das er es in der 1 Tabelle in einer Zelle einträgt und es genau daneben einträgt neben den wert den ich gesucht habe.
Ich hoffe ich hab es gut genug erklärt was mein Problem.
Soweit habe ich es geschrieben aber leider geht das nicht ganz auf
Private Sub Hinzufügen_Click()
Worksheets("Lagerbestand").Activate
Dim Zelle As Range
Dim Name As String
Dim Antwort As Integer
Name = Me.EGeräteNr.Value
Set Zelle = ActiveWorkbook.ActiveSheet.Range("C9:C1008").Select
For Each Zelle In Selection
If Zelle = Name Then Zelle.Select
Antwort = MsgBox("Möchten sie weitere einsicht bekommen?", vbYesNo + vbQuestion)
If Antwort = vbYes Then Exit Sub
Worksheets("Information").Activate
Worksheets("Information").Shapes("LGeräteNr").DrawingObject.Text = EGeräteNr
Worksheets("Information").Shapes("LBez").DrawingObject.Text = EBez
Worksheets("Information").Shapes("LStatus").DrawingObject.Text = EStatus
Worksheets("Information").Shapes("LCPU").DrawingObject.Text = ECPU
Unload Me
If Antwort = vbNo Then Exit Sub
'In die Tabelle Information in ein textfeld Hinzufügen!
Worksheets("Information").Shapes("LGeräteNr").DrawingObject.Text = EGeräteNr
Worksheets("Information").Shapes("LBez").DrawingObject.Text = EBez
Worksheets("Information").Shapes("LStatus").DrawingObject.Text = EStatus
Worksheets("Information").Shapes("LCPU").DrawingObject.Text = ECPU
Unload Me
End If
End Sub
|