Gibt es nun noch die Möglichkeit, sich gleiche Ergebnisse raus
zu filtern?
Wenn ich z.B. die Maße 30x20 habe, dann kommt da ja 1,50 raus.
Nun wüsste ich gern, wie gross ich eine Seite haben muss,
damit da wieder 1,50 raus kommt?!
Also z.B. 36/24. Das kann ich ja nun nachschauen, aber bei so
vielen Zahlen, wäre es einfacher wenn man sich das anzeigen
lassen kann…
Ist das machbar?
Es soll mir das ausrechnen von individuellen Bildgrössen
vereinfachen!
Hi Chilli1,
wie genau soll es denn sein?
Soll z.B. der Wert 0,733333333 gleich mit 0,720673653 sein, also beides als 0,73 gewertet werden oder nicht?
Wie und wo sollen die Ergebnisse angezeigt werden?
Nimm mal eine neue leere Mappe. Klicke in Tabelle1 unten mit rechts auf den Blattnamen, dann wähle „Code anzeigen“ aus.
In das Fenster kopierst du dann den Code rein der hier unter „in Tabelle1“ steht.
Dann im VB-Editor Einfügen—Modul, dadurch wird Modul1 erstellt und das fenster von Modul1 geht auf, dort kopierst du den Code für Modul1 rein.
Dann stellst du den Curser beliebig mitten in den Code und drückst F5.
Den Editor oben rechts mit dem Schließkreuz schließen.
dann wähle im Blatt einen Faktor aus, genau gleichgroße Faktoren werden gefärbt, in A1 steht jeweils die Anzahl gleicher Faktoren.
Wäre das was als Anzeige?
Gruß
Reinhard
in Tabelle1
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim Zelle As Range, Anz As Long
On Error GoTo Ende
Application.ScreenUpdating = False
Application.EnableEvents = False
Range("A1").Value = ""
Columns(1).AutoFit
Application.EnableEvents = True
ActiveSheet.Cells.Interior.ColorIndex = xlNone
If Target.Cells.Count 1 Then GoTo Ende
If Intersect(Target, Range("B2:CN92")) Is Nothing Then GoTo Ende
For Each Zelle In Range("B2:CN92")
If Zelle.Value = Target.Value Then
Anz = Anz + 1
Zelle.Interior.ColorIndex = 6
End If
Next Zelle
Application.EnableEvents = False
Range("A1").Value = Anz
Columns(1).AutoFit
Ende:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
in Modul1
Sub TabelleErstellen()
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.UsedRange.ClearContents
ActiveSheet.Cells.Interior.ColorIndex = xlNone
Range("A2,B1") = 10
Range("B1").DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step \_
:=1, Stop:=100, Trend:=False
Range("A2").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, \_
Step:=1, Stop:=100, Trend:=False
Range("B2:CN92").FormulaR1C1 = "=R1C/RC1"
Range("B2:CN92").Value = Range("B2:CN92").Value
Range("B2:CN92").Columns.AutoFit
Range("B2").Select
ActiveWindow.FreezePanes = True
Range("A1").Font.Bold = True
Range("A1").Select
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
