Thema Datum  Von Nutzer Rating
Antwort
02.02.2019 12:17:31 Simon
NotSolved
02.02.2019 19:14:30 Gast92098
NotSolved
Rot Suchfunktion und Werte einfügen
 02.02.2019 21:06:07 Simon
NotSolved
03.02.2019 09:37:16 Werner
NotSolved
03.02.2019 10:22:27 Simon
NotSolved
03.02.2019 11:52:16 Werner
NotSolved
03.02.2019 12:18:34 Simon
NotSolved
03.02.2019 13:11:03 Werner
Solved
03.02.2019 14:23:07 Simon
NotSolved

Ansicht des Beitrags:
Von:
Simon		 Datum:
02.02.2019 21:06:07		 Views:
452		 Rating:
     
Antwort:
  Ja
Thema:
Suchfunktion und Werte einfügen

Hallo Gast92098,

deine Aussage verstehe ich voll und ganz, nur habe ich so gut wie keine Kentnisse über VBA.
Ich habe mir mal ein paar Videos auf Youtube angesehen und mich ein wenig eingelesen, dabei ist folgendes herausgekommen:

Sub CommandButton1_Click()

Worksheets("Aufzeichnung").Activate

'Variablen
Dim finden As Range     'Durchsucht Spalte B nach Suchbegriff
Dim treffer As String   'Wo wurde der Begriff gefunden = Angabe der Zelle
Dim last As Integer     'letzte freie Zeile

'Programm
Set finden = Columns(2).Find(what:="Schlag 1") 'Spalte der Suche+Suchbegriff

If Not finden Is Nothing Then
treffer = finden.Address    'Speicher für gefundene Adresse
MsgBox treffer              'Zeigt Zelle ---
  
        If finden.Value = "Schlag 1" Then
           'Ps-Mittel lezter eintrag
            treffer = treffer.Offset(5, 0).Value
            last = treffer.Cells(Rows.Count, 1).End(x1Uo).Row + 1
        End If

End If
End Sub

Ich habe jetzt nur Schlag 1 eingegeben, da ich nicht weiß, wie ich die ListBox auslese.
Die richtige Zelle wird mir schon mal in der MsgBox angezeigt, aber mit dem treffer.Offset, dass er mir erst in der 5 Zeile nach dem Suchbegriff die letzte Zeile angiebt habe ich noch nicht hinbekommen.

Mfg Simon

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
02.02.2019 12:17:31 Simon
NotSolved
02.02.2019 19:14:30 Gast92098
NotSolved
Rot Suchfunktion und Werte einfügen
 02.02.2019 21:06:07 Simon
NotSolved
03.02.2019 09:37:16 Werner
NotSolved
03.02.2019 10:22:27 Simon
NotSolved
03.02.2019 11:52:16 Werner
NotSolved
03.02.2019 12:18:34 Simon
NotSolved
03.02.2019 13:11:03 Werner
Solved
03.02.2019 14:23:07 Simon
NotSolved