Excel-Makro zum Suchen von Zellen, die „

Question

Ich bin relativ neu in der Excel-VBA-Programmierung und habe Probleme beim Generieren eines Makros. Meine Daten sehen ungefähr so ​​aus. In Spalte A mit der Überschrift „N“ habe ich Zählungen, die sich über mehrere Zeilen erstrecken. Wenn eine Zählung zwischen 1 und 6 lag, habe ich in dieser Zelle den Wert „<6“. Andernfalls wird die Zählung angezeigt. In Spalte B mit der Überschrift „%“ habe ich den Prozentsatz dieser Zeile im Verhältnis zur Gesamtsumme. Dieses Muster wiederholt sich eine variable Anzahl von Malen bis zum Ende der Tabelle.

Ich hoffe, dass jedes Mal, wenn der Wert „<6“ gefunden wird, der Wert in der Zelle direkt rechts in „S“ geändert wird (was bedeutet, dass der Prozentsatz unterdrückt wird).

Answer 1

Hier ist der Codeabschnitt, den Sie benötigen. Sie sollten versuchen, ihn in den Code zu integrieren, den Sie selbst haben.

Dim rng As Range, cell As Range
Set rng = Intersect(Range("A:A"), UsedRange)
If rng Is Nothing Then Exit Sub
For Each cell In rng.Cells
    If cell.Value = "<6" Then cell.Offset(0, 1).Value = "S"
Next