Gruppe
Funktion
Bereich
VERGLEICH
Thema
Zeilennummern von Fundstellen ermitteln
Problem
In Spalte C sollen die Fundzeilennummern aus Spalte A der Werte aus Spalte B eingetragen werden.
Lösung
Folgende Formel: =VERGLEICH("*"&B1&"*";A:A;0)
StandardModule: basMain
Sub ZeilenHoehe()
Dim varCM As Variant
varCM = InputBox( _
prompt:="Bitte die gewünschte Zeilenhöhe in cm angeben:")
If varCM = "" Then Exit Sub
Selection.RowHeight = CDbl(varCM) / 0.035
End Sub