Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
316to320
316to320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige