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:
632
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...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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