Zelleninhalt auslesen, suchen und bearbeiten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub a() Dim f As Range 'Variablendeklaration 'im aktiven Tabellenblatt With ActiveSheet 'der Variablen "f" eine Zell-Fundstelle als Zell-Ort (Range) zuweisen 'vgl. mit der Excel-Suche über Strg + [f] 'Gesucht wird der Zell-Wert aus Zelle F7 im gesamten "verwendeten Bereich" 'des aktiven Tabellenblattes Set f = .UsedRange.Find(what:=.Range("F7"), LookIn:=xlValues, lookat:=xlWhole) 'Wenn f tatsächlich eine Fundstelle ist, also der Wert aus F7 in einer 'anderen Zelle gefunden wird (vgl. Excel-Suche die erste Fundstelle) 'dann wird die Zelle ein Spalte rechts davon (=.Offset(Zeile, Spalte) hier also '.Offset(,1) = .Offset(0,1)) mit dem Wort gefüllt/überschrieben. If Not f Is Nothing Then f.Offset(, 1) = "gechecked" End With End Sub

Sub a() Dim f As Range, fO As Range With ActiveSheet Set f = .Columns(1).Find(what:=.Range("F7"), LookIn:=xlValues, lookat:=xlWhole) If Not f Is Nothing Then Set fO = .Cells(f.Row, .Columns.Count).End(xlToLeft) If fO = f Then f.Offset(, 1) = "gechecked" Else: fO.Offset(, 1) = "gechecked" End If End If End With Set f = Nothing: Set fO = Nothing End Sub

Sub a() Dim f As Range With ActiveSheet Set f = .UsedRange.Find(what:=.Range("F7"), LookIn:=xlValues, lookat:=xlWhole) If Not f Is Nothing Then f.End(xlToRight).Offset(, 1) = "gechecked" End With End Sub

Hallo Michael,
das hab ich ja nun verstanden.....
Ich habe einen neuen Beitrag verfasst, vll verstehst du dann meine Problematik.....
Sorry nochmal...
"neuer Beitrag"
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

Beliebteste Forumthreads (12 Monate)

Zelleninhalt auslesen, suchen und bearbeiten

17
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

17 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)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread