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

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
28.10.2022 20:07:28		 Views:
703		 Rating:
     
Antwort:
 Nein
Thema:
Vba Userform Button - Wert suchen, anzeigen , hinzufügen, tabellen wechsel.

Hallo dimitri

deine Beschreibung ist recht konfus und schwer zu lesen.  Egal ob Neuling der nicht. Eine Problembeschreibung sollte schon nachvollziehbar sein. Kurze Sätze, klare Bezeichnung der beteiligten Elemente. Außer dir weis ja Niemand wie deine Datein aussehen undwas du so vorhast. 

Dennoch habe ich versucht eine Lösung u erstellen.  Nur die Tabelle 2 ist dort nicht berücksichtigt, da du in der Beschreibung zu undeutlich warst.  

Private Sub Hinzufügen_Click()

    Dim Zelle As Range
    Dim rfund As Range
    Dim strmsg As String
    
    'suche nach gerätenr
    With ActiveWorkbook.Worksheets("Lagerbestand")
        Set rfund = .Range("C9:C1008").Find(what:=EGeräteNr, LookIn:=xlValues, Lookat:=xlWhole)
    End With
    If Not rfund Is Nothing Then
     'wenn gefunden Werte eintragen
        rfund.Offset(, 1).Value = EBez
        rfund.Offset(, 2).Value = EStatus
        rfund.Offset(, 3).Value = ECPU
       
       'In die Tabelle Information in ein textfeld Hinzufügen!
        With Worksheets("Information")
            .Shapes("LGeräteNr").DrawingObject.Text = EGeräteNr
            .Shapes("LBez").DrawingObject.Text = EBez
            .Shapes("LStatus").DrawingObject.Text = EStatus
            .Shapes("LCPU").DrawingObject.Text = ECPU
        End With
        
        If vbYes = MsgBox("Möchten sie weitere Einsicht bekommen?", vbYesNo + vbQuestion) Then
          'wenn ja tabelle anzeigen
          Worksheets("Information").Activate
        End If
        
        Unload Me
    Else
        MsgBox "Gerätenummer nicht gefunden", vbInformation, "Fehler"
    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
28.10.2022 10:29:51 Dimitri
Solved
Blau Vba Userform Button - Wert suchen, anzeigen , hinzufügen, tabellen wechsel.
 28.10.2022 20:07:28 ralf_b
*****
Solved