Zellenhöhe übertragen - Zielbereich aktivieren
10.06.2019 13:03:28
Niclaus
Ich habe ein Makro, mit dem ich die Höhe einer Zeile auf eine andere übertragen kann. Das funktioniert auch bestens, solange sich der Zielbereich in der gleichen Tabelle befindet wie der Quellbereich.
Wenn sich der Zielbereich in einer andern Tabelle befindet, wird zwar die Höhe übertragen, aber ich erhalte den Laufzeitfehler 1004: "Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden."
Weiss jemand von Euch, wie ich das Makro anpassen muss, damit jeweils der Zielbereich markiert wird, auch wenn er sich in einer andern Tabelle befindet als der Quellbereich?
Vielen Dank und freundliche Grüsse Niclaus
Sub ZeilenhoeheUebertragen()
Dim rngZielbereich As Range
Dim tt As String
Dim hoehe1
Dim mgb
'On Error GoTo finis
hoehe1 = Selection.Height
Set rngZielbereich = Application.InputBox("Ziel-Bereich markieren", , , , , , , Type:=8)
rngZielbereich.RowHeight = hoehe1
rngZielbereich.Select
finis:
End Sub