Ausgeblendete Zellen im Makro nicht berücksichtige

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub High10() Dim lRow As Long, rng As Range, i As Byte With Sheets("Sheet1") lRow = .Cells(Rows.Count, 38).End(xlUp).Row Set rng = .Range("AL4:AL" & lRow).SpecialCells(xlCellTypeVisible) For i = 1 To 10 Sheets("Sheet2").Cells(i + 1, 6) = WorksheetFunction.Large(rng, i) Next i End With End Sub

Sub High10() Dim lRow As Long, rng As Range, i As Byte With Sheets("Sheet1") lRow = .Cells(Rows.Count, 38).End(xlUp).Row Set rng = .Range("AL4:AL" & lRow).SpecialCells(xlCellTypeVisible) If rng Is Nothing Then MsgBox "keine Zelle sichtbar" Exit Sub End If For i = 1 To 10 Sheets("Sheet2").Cells(i + 1, 6) = WorksheetFunction.Large(rng, i) Next i End With End Sub

Hi Thomas
Vielleicht so...

Sub t()
Call High10(Worksheets("Tabelle1"), Worksheets("Tabelle2"), "A", "F")
Call High10(Worksheets("Tabelle1"), Worksheets("Tabelle2"), "B", "G")
'usw.
End Sub

Sub High10(WSQuelle As Worksheet, WSZiel As Worksheet, SpalteQuelle As String, SpalteZiel As  _
String)
Dim lRow As Long, rng As Range, i As Byte
With WSQuelle
lRow = .Cells(Rows.Count, SpalteQuelle).End(xlUp).Row
Set rng = .Range(SpalteQuelle & "4:" & SpalteQuelle & lRow).SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then
For i = 1 To 10
WSZiel.Cells(i + 1, SpalteZiel) = WorksheetFunction.Large(rng, i)
Next i
Else
MsgBox "keine Zelle sichtbar"
End If
End With
End Sub

cu
Chris

Hi Chris
Also, meine Idee ist folgende, siehe hierzu diese Datei als Beispiel: https://www.herber.de/bbs/user/113514.xlsm
Ich möchte in Sheet 2, z.B. in Spalte A von Zelle 2 bis 12, die 10 höchsten Werte aus Sheet 1 in Spalte C von Zelle 3 bis z.b. 40. Sofern Reihen in Sheet 1 ausgeblendet sind, sollen diese bei der Auswertung in Sheet 2 nicht berücksichtigt werden. - Das hattest Du ja bereits perfekt :).
Wenn ich jetzt aber neben oben beschriebenem Prozess, dasselbe noch für andere Spalten und Werte aus Sheet 1 machen möchte, z.B. für Spalte D von Zelle 3 bis 40. und mir die Ergebnisse dann in Sheet 2 in Spalte B von Zelle 2 bis 12 ausgewertet werden sollen usw. - wie müsste das Makro angepasst werden?
Evtl. hast Du das ja bereits mit Deinem neuen Vorschlag getan - mein Problem ist nur, dass ich keine Kentnisse habe, das richtig zu kombinieren, so dass das funktioniert wie beschrieben ...
Viele Grüße
Thomas

Sub t() Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "C", "A") Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "D", "B") Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "E", "C") Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "F", "D") Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "G", "E") Call High10(Worksheets("Sheet1"), Worksheets("Sheet2"), "H", "F") End Sub

Beliebteste Forumthreads (12 Monate)

Ausgeblendete Zellen im Makro nicht berücksichtige

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausgeblendete Zellen im Makro nicht berücksichtige

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread