Hallo liebe Experten,
ich benötige mal bitte Eure Hilfe.
Mein Problem: Ich habe eine Maske (Aussonderung) in VBA /Userform erstellt. In dieser Maske ist eine TextBox_Inventarnummer.
Wie programmiere ich es, dass ich mit Hilfe der TextBox einen bestimmten Wert (Zahlen und Buchstaben) suchen kann.
Der Wert steht in Spalte A (von Zeilen 3- [open end])
Ich habe mir den Befehl Range.Find schon angesehen, aber ich kann es leider nicht umsetzen, dass die Maske mir die Zeile mit dem bestimmten Wert anzeigt und ich dann (so meine Idee),
noch zusätzliche Werte in die gleiche Zeile einfügen kann.
Es würde dann so aussehen.
Spalten
A: Inventarnummer / B: Bezeichnung / AD: TagDerBeräumung / AE: GrundDerAussonderung
Spoiler anzeigen
Verzippte Datei angehängt.
Ich würde mich sehr über Hilfe freuen, da ich mit VBA erst seit Juni 2020 arbeite.
Danke Johanne
ich benötige mal bitte Eure Hilfe.
Mein Problem: Ich habe eine Maske (Aussonderung) in VBA /Userform erstellt. In dieser Maske ist eine TextBox_Inventarnummer.
Wie programmiere ich es, dass ich mit Hilfe der TextBox einen bestimmten Wert (Zahlen und Buchstaben) suchen kann.
Der Wert steht in Spalte A (von Zeilen 3- [open end])
Ich habe mir den Befehl Range.Find schon angesehen, aber ich kann es leider nicht umsetzen, dass die Maske mir die Zeile mit dem bestimmten Wert anzeigt und ich dann (so meine Idee),
noch zusätzliche Werte in die gleiche Zeile einfügen kann.
Es würde dann so aussehen.
Spalten
A: Inventarnummer / B: Bezeichnung / AD: TagDerBeräumung / AE: GrundDerAussonderung
Option Explicit
Private Sub Button_Schließen_Click()
'Eingabefenster schließen
Unload Aussonderungs_Maske
End Sub
Private Sub Button_Eingabe_Click()
'Eingaben der Schaltfläche in die Arbeitsmappe übernehmen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'TagDerBeräumung
Cells(last, 30).Value = TextBox_TagDerBeräumung
'GrundDerAussonderung
Cells(last, 31).Value = TextBox_GrundDerAussonderung
'Aussonderung
Cells(last, 29).Value = "Ja"
MsgBox "Eingabe erfolgreich"
End Sub
Private Sub TextBox_Inventarnummer_Change()
Wenn eine Nummer in die TextBox eingetragen wird, dann soll dieser Wert
in Spalte A gefunden und angezeigt werden.
Außerdem möchte ich den "Tag Der Beräumung" in dieselbe Zeile erfassen
End Sub
Private Sub UserForm_Initialize()
'TagDerBeräumung
TextBox_TagDerBeräumung = ""
'GrundDerAussonderung
TextBox_GrundDerAussonderung = ""
If CheckBox1.Value Then
CheckBox1 = Cells(29)
End If
End Sub
Private Sub Button_Schließen_Click()
'Eingabefenster schließen
Unload Aussonderungs_Maske
End Sub
Private Sub Button_Eingabe_Click()
'Eingaben der Schaltfläche in die Arbeitsmappe übernehmen
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
'TagDerBeräumung
Cells(last, 30).Value = TextBox_TagDerBeräumung
'GrundDerAussonderung
Cells(last, 31).Value = TextBox_GrundDerAussonderung
'Aussonderung
Cells(last, 29).Value = "Ja"
MsgBox "Eingabe erfolgreich"
End Sub
Private Sub TextBox_Inventarnummer_Change()
Wenn eine Nummer in die TextBox eingetragen wird, dann soll dieser Wert
in Spalte A gefunden und angezeigt werden.
Außerdem möchte ich den "Tag Der Beräumung" in dieselbe Zeile erfassen
End Sub
Private Sub UserForm_Initialize()
'TagDerBeräumung
TextBox_TagDerBeräumung = ""
'GrundDerAussonderung
TextBox_GrundDerAussonderung = ""
If CheckBox1.Value Then
CheckBox1 = Cells(29)
End If
End Sub
Verzippte Datei angehängt.
Ich würde mich sehr über Hilfe freuen, da ich mit VBA erst seit Juni 2020 arbeite.
Danke Johanne
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Johanne“ ()