Thema Datum  Von Nutzer Rating
Antwort
Rot Vba Userform Button - Wert suchen, anzeigen , hinzufügen, tabellen wechsel.
28.10.2022 10:29:51 Dimitri
Solved
28.10.2022 20:07:28 ralf_b
*****
Solved

Ansicht des Beitrags:
Von:
Dimitri
Datum:
28.10.2022 10:29:51
Views:
242
Rating: Antwort:
 Nein
Thema:
Vba Userform Button - Wert suchen, anzeigen , hinzufügen, tabellen wechsel.

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Vba Userform Button - Wert suchen, anzeigen , hinzufügen, tabellen wechsel.
28.10.2022 10:29:51 Dimitri
Solved
28.10.2022 20:07:28 ralf_b
*****
Solved