Zuerst möchte ich mich noch bei Doris und ransi bedanken. Leider war ich am Wochenende verhindert zu schreiben und die Beiträge waren heute morgen schon im Archiv und mir war es deshalb nicht mehr möglich dort zu antworten.
Nun gut jetzt aber zu meiner Frage:
Wie kann ich den Inhalt einer Nachbarzelle ausgeben in einer anderen Zelle?
Mein Fall sieht wie folgt aus:
Ich habe verschiedene Werte in Spalte D und daneben die ursprünliche Häufigkeit.
jetzt möchte ich den Wert ermitteln der am Häufigsten vorkommt und dann in einer anderen Zelle ausgeben.
Beispiel:
D E F
1 5 3
2 7
3 9
4 2
Mein code sieht bis her wie folgt aus : Sub Adresse2() Dim zeile As Variant, Bereich Dim a As Variant zeile = Range("E65000").End(xlUp).Row Bereich = Range(Cells(2, 5), Cells(zeile, 5)) a = Application.WorksheetFunction.Max(Bereich) Cells.Find (a) ActiveCell.Offset(0, 1) = Range("H2") End Sub