Office: (Office 2016) Verbundene Zellen leeren mit Button

Falls du unbedingt wissen möchtest warum ich auf Verbundene Zellen bestehe schau dir die Datei an die ich Hochgeladen habe.

 

Und was spricht gegen eine Datensatztliste?

 

Es gibt viele Möglichkeiten. Du könntest deine Daten auf ein eigenes Blatt machen, oder rechts von den anderen Daten aufführen, oder auf ein anderes Blatt machen und per „Kamera“ (ziemlich gut versteckt, aber Google hilft) an die bisherige Position holen, oder…

 

Ich gebe es auf. Ich bin keine VBA oder Excel Super Profi das ich das was du meinst umsetzen kann weshalb ich um Hilfe gebeten habe :-(

 

Für keine der genannten Methoden braucht man VBA- oder Super-Excel-Kenntnisse.
Für das Verwenden eines anderen Blattes oder eines Bereich rechts von deinen anderen Tabellen braucht man gar keine Kenntnisse. Und wie das mit der Kamera funktioniert, kann man ganz leicht Googeln und ist nicht schwer umzusetzen.

 

Okey HKindler
ich denke ich sollte es aufgeben.

 

Schau dir bitte die letzte datei die ich hochgeladen habe an.

 

Also, die Idee von H.Kindler verfolgt geht dann mit einem Hilfsblatt ganz gut.
Habe dazu ein Blatt eingefügt, das ich Hilfsblatt nenne (im Codenamen und Blattnamen). Darauf werden nun jeweils bei verbundenen Zellen auf das Blatt in die Zelle die der linken oberen Zelle des Target entspricht geschrieben und zur Höhenbestimmung das Maximum der Zeile bestimmt.
Das heißt, die Höhe nimmt mal ab mal zu, je nach Inhalt.
Schau mal ob das funktioniert mit dem anderen Gedöns, deine Datengültigkeiten kann ich nicht überprüfen, da du die offenbar ausgelagert hast.
Hab das mal in der angehängte Datei umgesetzt. Test einfach mal.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)


Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim TargetWidth As Single, PossNewRowHeight As Single
Dim iX As Integer
Static sngHeigMax As Single

sngHeigMax = Tabelle1.Range("A16")
If Target.MergeCells Then

If Target(1, 1).Value <> "" Then

With Target.Cells(1).MergeArea
If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
CurrentRowHeight = .RowHeight
TargetWidth = Target.ColumnWidth
For Each CurrCell In Target.MergeArea
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
iX = iX + 1
Next
MergedCellRgWidth = MergedCellRgWidth + (iX - 1) * 0.71
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit

    If .RowHeight > sngHeigMax Then
     Hilfstabelle.Range(Target.Address) = .RowHeight
     sngHeigMax = WorksheetFunction.Max(Hilfstabelle.Rows(Hilfstabelle.Range(Target.Address).Row)) + 2
    
    End If
    PossNewRowHeight = sngHeigMax
.Cells(1).ColumnWidth = TargetWidth
.MergeCells = True
.RowHeight = PossNewRowHeight
.Locked = False

End If
End With
End If

End If


End Sub