Hi Leute,
ich könnte eure Hilfe wirklich gut gebrauchen. Und zwar möchte ich über einen Button eine Funktion in Excel erreichen, mit der die Spalte mit den meisten Einträgen in einer Matrix wiedergegeben wird. Bisher habe ich einen Code, der die erste freie Spalte wiedergeben wird. Eventuell kann man diesen ja anpassen.
Vielen Dank!
Sub Erste_freie_Spalte_XXX()
Dim i As Long, rngFund As Range, boFrei As Boolean
With Worksheets("XXX")
For i = 9 To 379
Set rngFund = .Columns(i).Find(what:="*", after:=.Cells(2456, i), LookIn:=xlValues, _
lookat:=xlWhole, searchorder:=xlByRows, searchdirection:=xlPrevious)
If Not rngFund Is Nothing Then
If rngFund.Row < 2406 Then
boFrei = True
MSGBOX "Erste komplett freie Spalte ist Spalte " & Split(rngFund.Address, "$")(1)
Exit For
End If
End If
Next i
End With
If Not boFrei Then
MSGBOX "Es gibt keine komplett leere Spalte im Bereich I2406:NO2455"
End If
Set rngFund = Nothing
End Sub
|