Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
02.02.2019 12:17:31 |
Simon |
|
|
|
02.02.2019 19:14:30 |
Gast92098 |
|
|
Suchfunktion und Werte einfügen |
02.02.2019 21:06:07 |
Simon |
|
|
|
03.02.2019 09:37:16 |
Werner |
|
|
|
03.02.2019 10:22:27 |
Simon |
|
|
|
03.02.2019 11:52:16 |
Werner |
|
|
|
03.02.2019 12:18:34 |
Simon |
|
|
|
03.02.2019 13:11:03 |
Werner |
|
|
|
03.02.2019 14:23:07 |
Simon |
|
|
Von:
Simon |
Datum:
02.02.2019 21:06:07 |
Views:
512 |
Rating:
|
Antwort:
|
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
|
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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 |
|
|
|
02.02.2019 19:14:30 |
Gast92098 |
|
|
Suchfunktion und Werte einfügen |
02.02.2019 21:06:07 |
Simon |
|
|
|
03.02.2019 09:37:16 |
Werner |
|
|
|
03.02.2019 10:22:27 |
Simon |
|
|
|
03.02.2019 11:52:16 |
Werner |
|
|
|
03.02.2019 12:18:34 |
Simon |
|
|
|
03.02.2019 13:11:03 |
Werner |
|
|
|
03.02.2019 14:23:07 |
Simon |
|
|