19.08.2019, 07:55
Hallo,
ich bastel gerade an einem Excel-Formular mit VBA. Ich weiß, dass man auf Select verzichten soll, aber ich bin nicht so fit mit VBA.
Es ist so, dass ich 7 verbundene Zellbereiche habe, nennen wir sie C1 bis C7.
In einem Makro sollen die Zellen jeweils wieder getrennt und danach wieder entsprechend verbunden werden.
Ich habe folgende 2 Makros:
Wie gesagt, aufgrund von Unwissen arbeite ich mit Selection, selektiert ist eines von den oben genannten Zellverbunden.
Nachdem nun die Zellen getrennt und die Inhalte gelöscht wurden, soll nun genau dort wieder verbunden werden, wo die Selektion ist. Wäre sicher kein Problem.
Möchte aber nicht für jeden Verbund ein eigenes Makro erstellen und sichergehen. dass auch wirklich genau die definierten Zellen in dem Bereich verbunden werden, der auch wirklich aktiv ist (C1 oder C2, etc...).
Kann da jemand helfen?
ich bastel gerade an einem Excel-Formular mit VBA. Ich weiß, dass man auf Select verzichten soll, aber ich bin nicht so fit mit VBA.
Es ist so, dass ich 7 verbundene Zellbereiche habe, nennen wir sie C1 bis C7.
In einem Makro sollen die Zellen jeweils wieder getrennt und danach wieder entsprechend verbunden werden.
Ich habe folgende 2 Makros:
Code:
Public Sub CellNotEmpty()
Dim msg As String
msg = MsgBox("Zelle ist nicht leer!" & vbCrLf & "Fortfahren und aktuellen Eintrag überschreiben?", vbYesNo, "")
If msg = vbYes Then
Selection.ClearContents
With Selection
.MergeCells = False
End With
'wenn erste Zelle aktiv, sollen Zellen wieder verbunden werden!!!
Else
Exit Sub
End If
End Sub
Public Sub ClearCells()
Dim msg As String
msg = MsgBox("Soll das Merkmal gelöscht werden?", vbYesNo, "")
If msg = vbYes Then
Selection.ClearContents
With Selection
.MergeCells = False
End With
'wenn erste Zelle aktiv, sollen Zellen wieder verbunden werden!!!
End If
End Sub
Wie gesagt, aufgrund von Unwissen arbeite ich mit Selection, selektiert ist eines von den oben genannten Zellverbunden.
Nachdem nun die Zellen getrennt und die Inhalte gelöscht wurden, soll nun genau dort wieder verbunden werden, wo die Selektion ist. Wäre sicher kein Problem.
Möchte aber nicht für jeden Verbund ein eigenes Makro erstellen und sichergehen. dass auch wirklich genau die definierten Zellen in dem Bereich verbunden werden, der auch wirklich aktiv ist (C1 oder C2, etc...).
Kann da jemand helfen?