Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Userform in Textbox Wert eingeben u.ersetzen

Userform in Textbox Wert eingeben u.ersetzen
04.03.2019 20:06:35
Heinz
Hallo im Forum,
Ich habe eine Userform mit 2 Textboxen.
Wenn ich in TextBox1 eine vierstellige Zahl eingebe sollte im Sheets "Artikelliste" die Spalte D auf Übereinstimmung gesucht werden,
und bei allen Übereinstimmungen der Wert von TextBox2 in Spalte E eingefügt werden.
Hätte bitte jemand eine Hilfe anzubieten?
Danke
LG, Heinz
https://www.herber.de/bbs/user/128101.xlsm
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Userform in Textbox Wert eingeben u.ersetzen
04.03.2019 20:09:21
Hajo_Zi
Hallo Heinbz,
benutze Find
Option Explicit
' Formel und Inhalt
Sub find()
Dim Rafound As Range
Set Rafound = Columns(1).find(14, Range("A" & Rows.Count), , _
xlWhole, , xlNext)
If Not Rafound Is Nothing Then
MsgBox Rafound.Row
End If
End Sub

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.
Die Beiträge werden auch ignoriert, es erfolgt keine Antwort.
Anzeige
AW: Userform in Textbox Wert eingeben u.ersetzen
05.03.2019 07:57:12
Heinz
Guten morgen Hajo,
Ich würde es aber gerne über die UF Textboxen das machen.
Danke
SG,Heinz
AW: Userform in Textbox Wert eingeben u.ersetzen
05.03.2019 16:40:52
Hajo_Zi
Hallo Heinz,
ja wo ist das Problem?
Ersetze 14 durch Textb123
Gruß Hajo
AW: Userform in Textbox Wert eingeben u.ersetzen
05.03.2019 12:00:37
Peter
Hallo Heinz,
vieleicht so.
https://www.herber.de/bbs/user/128121.xlsm
Gruß
Peter (hpo)
Anzeige
AW: Userform in Textbox Wert eingeben u.ersetzen
05.03.2019 12:11:57
Heinz
Hallo Peter
Du bist ein Wahnsinn !!! Genau so
Recht herzlichen Dank
SG, Heinz
AW: Frage an Peter
05.03.2019 18:53:13
Heinz
Hallo Peter
Jetzt hätte ich eine zweite Abfrage erstellt, das funktioniert leider nicht.
Könntest du mir bitte abermals helfen?
Danke, Heinz
https://www.herber.de/bbs/user/128128.xlsm
Anzeige
AW: Frage an Peter
06.03.2019 07:48:19
Peter
Hallo Heinz,
Ändere:
Ist: If e.Value = CLng(TextBox4.Value) Then
Soll: If e.Value = CLng(TextBox3.Value) Then
setze den Zähler (intZ) =0
Private Sub CommandButton4_Click()
Dim e As Object, intZ As Integer
intZ = 1
For Each e In Sheets("Artikelliste").Range("D2:D" & Sheets("Artikelliste").Cells(Rows.Count, 4). _
End(xlUp).Row)
If e.Value = CLng(TextBox4.Value) Then
Sheets("Artikelliste").Cells(e.Row, 7).Value = TextBox4.Value
intZ = intZ + 1
End If
Next e
MsgBox "Wert wurde " & intZ & " mal gefunden", vbInformation, "Hinweis"
End Sub

Gruß
Peter )hpo)
Anzeige
AW: Frage an Peter
06.03.2019 09:47:41
Heinz
Hallo Peter,
Danke, echt super von dir.
SG., Heinz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige