AW: Makro?
29.09.2003 18:58:28
Beni
Hallo Markus,
ich hebe Dir ein kleines Beispiel angehängt.
Gruss Beni
https://www.herber.de/bbs/user/1210.xls
Sub Daten_einlesen()
Titel = "InputBox"
Mldg = "Buchstabe eingeben"
Wert = InputBox(Mldg, Titel)
If Wert = "" Then Exit Sub
With Worksheets(2).Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then
MsgBox "Artikel-Nr nicht vorhanden"
Exit Sub
End If
End With
Cells(1, 1) = C(1, 1)
Cells(1, 2) = C(1, 2)
Cells(1, 3) = C(1, 3)
Cells(1, 4) = C(1, 4)
End Sub
Sub Daten_speichern()
Wert = Cells(1, 1).Value
With Worksheets(2).Columns(1)
Set C = .Find(Wert, LookIn:=xlValues, LookAt:=xlWhole)
If C Is Nothing Then Exit Sub
C(1, 1) = Cells(1, 1)
C(1, 2) = Cells(1, 2)
C(1, 3) = Cells(1, 3)
C(1, 4) = Cells(1, 4)
End With
End Sub