---

Hallo,

da bin ich gleich nochmal wieder^^

ich bin total unwissend in vba... leider. ich müsste es mir echt mal aneignen 
momentan mach ich alles per hand deswegen würd ich gern son makro haben:

ich habe ein sheet in dem 500 spalten und etwa 200 zeilen sind.
trifft in einer spalte etwas zu, mache ich in der zeile ein "X".

für mich wärs toll, wenn es was gibt, wenn ich mit dem cursor auf eine spalte geht, dann des makro drücke, er löscht alles unter zeile 2 weg. dann in einem fenster z.b. 10 zahlen eingebe (zwischen 1 und 200 eben) und er von der 3. zeile dann ein "X" setzt. (z.b. zahl 20, schreibt er in die zeile 23 ein "X")

Ihr wärt göttlich wenn ihr mir sagen könnt  wie sowas aussieht...

VIELEN DANK IM VORAUS!!!!!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Liebe Freunde der Excel zunft,

ich habe mir etz mal ein bisschen was gebastelt 

Code:

---

Sub Löschen()

    ActiveCell.Offset(2, 0).Range("A1").Select
    ActiveCell.Range("A1:198").Select
    Selection.ClearContents
   
End Sub

---

Code:

---

Sub Zahleingabe()
Dim Eingabe As String
Dim erg%
Eingabe = InputBox("Nummer eintragen:", "Dateneingabe:")
Eingabe = Eingabe + 1
ActiveCell.Offset(Eingabe, 0).Range("A1").Select
ActiveCell.FormulaR1C1 = "X"

End Sub

---

Ich habs erst mal in 2 Makros unterteilt.
des erste löscht alles (Ich gehe immer davon aus das man auf A1 B1 .... draufklickt und dann ausführt)

Das 2. Schreibt "X" in die jeweilige zeile die ich ins feldchen eingebe.

Nja is zwar ein bisschen dirty aber für mich reichts erst mal 

Trozdem danke für die, die reingeschaut haben.
Schönen Abend noch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin (E)T aus F ;-)

erstmal: deine Ursprungsfrage ist sehr schwer verständlich,
für mich zumindest.

Dein nächstes Post für Part I würde ich (lesend/verstehend) so verkürzen:

Code:

---

Sub Löschen()
    Range("A1:198").ClearContents
End Sub

---

Wobei A1:198 ein fixer Bereich ist, das sollte klar sein.

Part II:

Code:

---

Sub Zahleingabe()
Dim Eingabe As String 'ein Text
Dim erg% 'im ff hier nicht relevant;-)
Eingabe = InputBox("Nummer eintragen:", "Dateneingabe:")' user gibt string(text als Nummer)ein
Eingabe = Eingabe + 1' text=text+1
ActiveCell.Offset(Eingabe, 0).Range("A1").Select 'weiss der Geier ...;-)
ActiveCell.FormulaR1C1 = "X"
End Sub

---

Kannst du vielleicht mal eine Beispielmappe hochladen,
wo in etwa sichtbar wird, worauf es dir ankommt?
Wiegesagt, dein Eingangspost ist recht schwer verständlich,
der Makrorekordercode dito - aus der Ferne und ohne Mappe.

lg Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Captain Picard,

hätte nicht mit so einer nächtlichen antwort gerechnet 

Wie gesagt ich habs mir n bissl zusammen gesaugt 
Aber danke für die vereinfachung.
Ich habe jetzt alles was ich benötige 
Vielen dank

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP