HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro?

Makro?
29.09.2003 11:40:29
Markus
Hallo
ich habe ein Problem und zwar habe ich 2 seiten in einer Excel Datei. man kann so sagen das die 1 seite das Titelblatt ist zum auswählen versch. sachen. Dies soll aber aus der 2 seite ausgelesen werden dort auch gespeichert und aktualisiert werden. wie macht man sowas könntet ihr mir ein Beispiel machen damit ich es vielleicht umschreiben könnte. danke euch schon mal

1
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Benutzer
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

Meistgelesene Forumthreads (12 Monate)