Zelleninhalt auslesen, suchen und bearbeiten

Hallo Zusammen,
ich hoffe hier gibt es Excel-Profis für meinen Fall..
Hier findet ihr die Excel Datei, um die Problematik besser zu verstehen...
ich hoffe ihr könnt mir helfen...
https://www.herber.de/bbs/user/123206.xlsx
Also,
ich habe eine Dropdown-Liste in der Zelle B26 mit verschiedenen Maschinen. Maschine 1,2,3.
Maschine 1 steht nochmals in der Zelle A5
Maschine 2 steht nochmals in der Zelle A9
Maschine 3 steht nochmals in der Zelle A13
Diese Maschinen haben jeweils drei Module--Arm,Board und Kopf die jeweils in verschiedenen intervallen justiert werden müssen.
Arm alle 90 tage
Kopf alle 180
Board alle 365
Ich habe ebenso 3 Schaltflächen mit Arm ,Board und Kopf.
Nun will ich , dass wenn ich die Schaltfläche Arm drücke, er die Zelle B26 ausliest ( ob Maschine 1,2,3) , die Maschine und das richtige Modul sucht und das nächste Justierdatum einträgt ( z.B heutige Datum + 90 Tage )
Bsp. in der Dropdownliste B26 wird die Maschine 2 angewählt. Nun wird die Schaltfläche "Arm" gedrückt. Nun soll bei der Maschine 2 , beim Modul Arm das nächste Justierdatum eingetragen werden. Die Eintragungen müssen fortlaufend sein, also nicht überschreiben. Bei jedem Mal drücken soll er es eine Zelle weiter rechts rein schreiben.
Ich hoffe das ist verständlich genung.
Vielen Dank!!!
Grüße

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub Button1_Click() 'ARM gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 1 sp = Cells(ze - 1, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button2_Click() 'Board gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 2 sp = Cells(ze - 2, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button3_Click() 'Kopf gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 3 sp = Cells(ze - 3, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub

Sub Button1_Click() 'ARM gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 1 sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button2_Click() 'Board gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 2 sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button3_Click() 'Kopf gedrückt Dim ze As Long Dim sp As Long ze = Cells.Find(what:=Range("B26")).Row + 3 sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub

Sub Button1_Click() 'ARM gedr?ckt Dim ze As Long Dim sp As Long ze = Range("A:A").Find(what:=Range("E3")).Row + 1 'sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 sp = Cells(ze, 10).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button2_Click() 'Board gedr?ckt Dim ze As Long Dim sp As Long ze = Range("A:A").Find(what:=Range("E3")).Row + 2 'sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 sp = Cells(ze, 10).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub Sub Button3_Click() 'Kopf gedr?ckt Dim ze As Long Dim sp As Long ze = Range("A:A").Find(what:=Range("E3")).Row + 3 'sp = Cells(ze, Columns.Count).End(xlToLeft).Column + 1 sp = Cells(ze, 10).End(xlToLeft).Column + 1 Cells(ze, sp) = Date End Sub

Beliebteste Forumthreads (12 Monate)

Zelleninhalt auslesen, suchen und bearbeiten

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalt auslesen, suchen und bearbeiten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread