Thema Datum  Von Nutzer Rating
Antwort
03.02.2020 13:54:59 Iris
NotSolved
Blau Zahl eingeben und Werte ausgeben
03.02.2020 17:17:40 Gast81433
Solved

Ansicht des Beitrags:
Von:
Gast81433		 Datum:
03.02.2020 17:17:40		 Views:
511		 Rating:
     
Antwort:
 Nein
Thema:
Zahl eingeben und Werte ausgeben

Hallo,

das ginge auch ohne Button direkt bei Eingabe mit einer Ereignisprozedur, der Code dazu gehört dann zwingend in das Tabellenblattmodul Deiner Tabelle2...

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
Dim strChar As String
With Target
    If .Address = "$A$1" Then
       Set objCell = Tabelle1.Columns(1).Find(What:=.Value, LookIn:=xlValues, LookAt:=xlWhole)
       If objCell Is Nothing Then
          Call MsgBox("Wert nicht gefunden...!", vbExclamation)
       Else
          With Cells(1, 8) '// Deine Zelle H1...
                If .Value <> vbNullString Then strChar = ","
                .Value = .Value & strChar & objCell.Offset(0, 1).Value
          End With
          Set objCell = Nothing
       End If
       Application.EnableEvents = False
       .Value = vbNullString
       Application.EnableEvents = True
    End If
End With
End Sub

Gruß,

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
03.02.2020 13:54:59 Iris
NotSolved
Blau Zahl eingeben und Werte ausgeben
03.02.2020 17:17:40 Gast81433
Solved