Zellen unter verbundenen Zellen löschen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Uwe,

Danke erst mal für deine Mühe.

Die Funktion des Buttons soll ersetzt werden durch die Auswahl in der grünen Zelle, als Bedingung, Also wenn im Dropdown Menü z.b "1" gewählt wird, dann sollen die Werte in den grauen Zellen gelöscht werden, bis auf die beiden Zellen rechts unten. In dem Fall hier wären das g13 und g14.
Ich habe das schon mit dem Makrorecorder nachgestellt, nur kann ich damit die Zellen nur mit den direkten Koordinaten ansprechen.
Die Herausforderung besteht, das dieses "Gesamtfeld" nur eines von einer gesamten "Dienstplanung" ist. Daher auch der "komische" Code im VBA.
Ich wollte mich an einer aktiven Zelle langhangeln, den Bezug zur aktiven Zelle, in dem Fall eben das gesamte grüne Feld.
Mit dem Button funktioniert das wie gesagt genau so wie ich es brauch, nur soll das stattdessen über das grüne Dropdown-Menü laufen und der Button soll verschwinden.
Ist wirklich etwas speziell und ich bin echt am verzweifeln und hab auch schon einiges ausprobiert... nichts hat ne Lösung ergeben.

Wenn die Erklärung noch nicht ganz verständlich war, bitte noch mal nachhaken.

Gruß Karsten

Moin moin Uwe,

mir bleibt wohl nix anderes übrig um dir die Datei zu senden, um die es geht. Das beantwortet denke ich mal dein Fragen. :-)

Bei allen Auswahlmöglichkeiten sollen die Felder (außer die Felder der Stundenberechnung) gelöscht werden.
Momentan blende ich die Felder nicht wirklich aus, sondern mache die Schrift über die bedingte Formatierung Weiß und andere über die "wenn"-Funktion.
Das frisst aber Speicher und die Datei wird somit zu groß.

Beim ausprobieren muss dann die Zeile " strTab = "'c:\Entwicklung\Testordner\[Dienstplan.xlsm]Auswahl'!" " angepasst werden.

https://www.herber.de/bbs/user/159376.xlsm

Ich hoffe es ist mit der Datei etwas verständlicher.

Gruß Karsten

Sub BeiKlick() 'Funktion ausführen mit Button Dim z As Long z = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row Range(ActiveCell(z - 4, 1), ActiveCell(z - 4, 4)).ClearContents Range(ActiveCell(z - 4, 1), ActiveCell(z - 1, 3)).ClearContents End Sub

For i = 9 To 459 Step 9 If Not Intersect(Target, Range("C" & i & ":DS" & i)) Is Nothing Then iZeile = Target.Cells.Row iSpalte = Target.Cells.Column If InStr(1, Target.Cells, "Arbeitsort") > 0 Then Range(Cells(iZeile + 4, iSpalte), Cells(iZeile + 4, iSpalte + 2)) = "" Range(Cells(iZeile + 5, iSpalte), Cells(iZeile + 7, iSpalte)) = "" Range(Cells(iZeile + 6, iSpalte + 1), Cells(iZeile + 7, iSpalte + 2)) = "" Else Range(Cells(iZeile + 4, iSpalte), Cells(iZeile + 7, iSpalte + 2)) = "" Cells(iZeile + 5, iSpalte + 3) = "" ' hier musst du die Formeln für diese Zellengenerieren und weiter unten rausnehmen End If Exit Sub End If Next i

Beliebteste Forumthreads (12 Monate)

Zellen unter verbundenen Zellen löschen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread