VBA: auto. Zellenbreite & Function
03.04.2020 11:36:02
Niki
was ich möchte ist mittels VBA die Zeilenhöhe automatisch anzupassen. (credits für alle Formeln nicht bei mir!)
Das mache ich damit:
Sub HoeheAnpassen()
ActiveSheet.Range("c1:c49").Rows.EntireRow.AutoFit
End Sub
funktioniert auch ABER
kombiniert mit dieser "Spezialformel":
' damit kann man eine Bereichsverkettung machen mit Trennzeichen nach Wahl!
Public Function VerkettenM(Bereich As Range, Optional Trenner As String = "", Optional _
Leerzellen As Boolean = False) As String
Dim str As String
Dim rng As Range
For Each rng In Bereich
If rng "" Or Leerzellen Then
str = str & rng & Trenner
End If
Next
VerkettenM = Left(str, Len(str) - Len(Trenner))
End Function
funktioniert das nicht. Kann mir hier jemand helfen?
das ist die Formel in der Zelle:
=VerkettenM('Hilfsreiter und Erklärungen'!B20:B44;";
")
(Also Alt+Enter) damit die Ergebnisse schön untereinander stehen
DANKE im Voraus!
LG
Niki