Suchen und Zeileninhalt als Variable

Private Sub CommandButton9_Click() Dim rng As Range Nummer = InputBox("Artikelnummer eingeben") If Nummer = "" Then GoTo Fehler Set rng = Sheets("Artikelliste").Range("C:C").Find(Nummer) If rng Is Nothing Then MsgBox "Artikel nicht vorhanden" Exit Sub End If KN = rng.Row.Cells(0) 'In Spalte A ist die Kundennummer NM = rng.Row.Cells(1) 'in Spalte B der Kundenname AN = rng.Row.Cells(2) 'in Spalte C die Artikelnummer BZ = rng.Row.Cells(3) 'in Spalte D die Artikelbezeichnung EP = rng.Row.Cells(4) 'in Spalte E der Einzelpreis BS = rng.Row.Cells(5) 'und in Spalte F noch der Bestand des Artikels MsgBox KN & Chr(10) & NM & Chr(10) & AN & Chr(10) & BZ & Chr(10) & EP & Chr(10) & BS Exit Sub Fehler: MsgBox "Bitte was eingeben" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

KN = Cells(rng.Row,1) 'In Spalte A ist die Kundennummer NM = Cells(rng.Row,2) 'in Spalte B der Kundenname AN = Cells(rng.Row,3) 'in Spalte C die Artikelnummer BZ = Cells(rng.Row,4) 'in Spalte D die Artikelbezeichnung EP = Cells(rng.Row,5) 'in Spalte E der Einzelpreis BS = Cells(rng.Row,6) 'und in Spalte F noch der Bestand des Artikels

Option Explicit Private Sub CommandButton9_Click() Dim Nummer As String, rng As Range Dim KN As String, NM As String, AN As String Dim BZ As String, EP As String, BS As String Nummer = InputBox("Artikelnummer eingeben") With Sheets("Artikelliste") If Not Nummer = vbNullString Then Set rng = .Columns("C").Find(what:=Nummer, LookIn:=xlValues, lookat:=xlWhole) If Not rng Is Nothing Then KN = rng.Offset(, -2) 'rng.Row.Cells(0) 'In Spalte A ist die Kundennummer NM = rng.Offset(, -1) 'rng.Row.Cells(1) 'in Spalte B der Kundenname AN = rng 'in Spalte C die Artikelnummer BZ = rng.Offset(, 1) 'in Spalte D die Artikelbezeichnung EP = rng.Offset(, 2) 'in Spalte E der Einzelpreis BS = rng.Offset(, 3) 'und in Spalte F noch der Bestand des Artikels MsgBox KN & Chr(10) & NM & Chr(10) & AN & Chr(10) & BZ & Chr(10) & EP & Chr(10) & _ BS Else MsgBox "Fehler: Artikelnummer ist nicht vorhanden" End If Else MsgBox "Bitte eine Artikelnummer eingeben." End If End With Set rng = Nothing End Sub

Hallo Werner,
da hast du völlig recht, die Variablen sollte man immer deklarieren. Ist zwar bei der Leistungsfähigkeit der heutigen Prozessoren nicht mehr ganz so nötig, aber für einen sauberen Programmablauf allemal!
Einen Tipp hätte ich auch noch für dich: Betrifft in diesem Beispiel die "Set" Angaben. Ich habe mir beim Programmieren angewöhnt, alles, was einen Eingangs- und Ausgangswert haben muss, auch so versetzt zu programmieren, dass ich alles, was sich zwischen diesen beiden Parametern befindet, wenn immer möglich, nach rechts einrücke (s. Code). So kann ich auch später immer sehen, ob ich auch, den zum Eingangsparameter gehörenden Abschlussparameter programmiert habe. Aber wie gesagt, das ist nur mein Weg und Vorschlag.

Private Sub CommandButton9_Click()
Dim rng As Range, Nummer As String, KN As String, NM As String, AN As String
Dim BZ As String, EP As String, BS As String
Nummer = InputBox("Artikelnummer eingeben")
With Sheets("Artikelliste")
Set rng = .Columns("C").Find(what:=Nummer, LookIn:=xlValues, lookat:=xlWhole)
If Not Nummer = vbNullString Then
If Not rng Is Nothing Then
KN = rng.Offset(, -2) 'In Spalte A ist die Kundennummer
NM = rng.Offset(, -1) 'in Spalte B der Kundenname
AN = rng              'in Spalte C die Artikelnummer
BZ = rng.Offset(, 1)  'in Spalte D die Artikelbezeichnung
EP = rng.Offset(, 2)  'in Spalte E der Einzelpreis
BS = rng.Offset(, 3)  'und in Spalte F noch der Bestand des Artikels
MsgBox KN & Chr(10) & NM & Chr(10) & AN & Chr(10) & BZ & Chr(10) & _
EP & Chr(10) & BS
Else
MsgBox "Fehler: Artikelnummer ist nicht vorhanden"
End If
Else
MsgBox "Bitte eine Artikelnummer eingeben."
End If
Set rng = Nothing
End With
End Sub

Servus

Beliebteste Forumthreads (12 Monate)

Suchen und Zeileninhalt als Variable

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Suchen und Zeileninhalt als Variable

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread