VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

Forumthread: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

12.08.2024 10:49:30

Roger

Benötige wieder Hilfe von Euch

Folgendes Problem möchte ich mit VBA lösen.

Wenn in der Zelle E50 = «standard rechts» oder «standard links» steht, dann fülle in die Zellen von E51 bis E56 die Werte von den Zellen von H51 bis H56 ab,
ansonsten lösche die Zellen von E51 bis H56

LG
Roger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

12.08.2024 11:09:22

ralf_b

schöne Grüße von Ki-bot aus meinem Edgebrowser. Der hat deine Frage direkt mal so beantwortet. Ein paar Anpassungen hab ich noch gemacht aber in Grunde war der Code schon lauffähig.



Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address(0,0)= "E50" Then

        If Target.Value = "standard rechts" Or Target.Value = "standard links" Then

            Me.Range("E51:E56").Value = Me.Range("H51:H56").Value

        Else

            Me.Range("E51:H56").ClearContents

        End If

    End If

End Sub

AW: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

12.08.2024 23:44:05

GerdL

Hallo Roger!

Private Sub Worksheet_Change(ByVal Target As Range)



    Select Case Target.Address(0, 0)

        Case "E50"

            Application.EnableEvents = False

            If Target.Value = "standard rechts" Or Target.Value = "standard links" Then

                Range("E51:E56").Value = Range("H51:H56").Value

            Else

                Range("E51:H56").ClearContents

            End If

            Application.EnableEvents = True

        Case "E52", "F11"

            Application.EnableEvents = False

            Range("E54:F54").ClearContents

            Application.EnableEvents = True

        Case "E25"

            Cells.EntireRow.Hidden = False

            Select Case Left(Target.Value, 14)

                Case "Novatronic XV "

                    Select Case Right(Target.Value, 5)

                        Case "80/80", "80/70", "80/60", "80/50", "80/49"

                            Rows("55").EntireRow.Hidden = True

                        Case "35/30", "35/35", "35/40", "35/49", "35/50", _

                             "55/30", "55/35", "55/40", "55/45", "55/49", "55/55"

                            Rows("56").EntireRow.Hidden = True

                    End Select

            End Select

    End Select



End Sub

Gruß Gerd

AW: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

12.08.2024 13:17:06

Roger

Hallo Ralf

Vielen Dank funktioniert super, anbei gleich das nächste Problem.
Ich sollte Deinen VAB in einen bestehenden integrieren, leider kriege ich das nicht hin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0,0)= "E50" Then
If Target.Value = "standard rechts" Or Target.Value = "standard links" Then
Me.Range("E51:E56").Value = Me.Range("H51:H56").Value
Else
Me.Range("E51:H56").ClearContents
End If
End If
End Sub

bestehender VBA

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$25" Then
Cells.EntireRow.Hidden = False
Select Case Target.Value
Case "Novatronic XV 80/80", "Novatronic XV 80/70", "Novatronic XV 80/60", "Novatronic XV 80/50", "Novatronic XV 80/49"
Rows("55").EntireRow.Hidden = True
Case "Novatronic XV 35/30", "Novatronic XV 35/35", "Novatronic XV 35/40", "Novatronic XV 35/49", "Novatronic XV 35/50", "Novatronic XV 55/30", "Novatronic XV 55/35", "Novatronic XV 55/40", "Novatronic XV 55/45", "Novatronic XV 55/49", "Novatronic XV 55/55"
Rows("56").EntireRow.Hidden = True
End Select
End If

If Target.Address = "$E$52" Or Target.Address = "$F$11" Then
Range("E54:F54").ClearContents
End If
End Sub

Vielen Dank

LG
Roger

AW: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

12.08.2024 22:11:12

ralf_b

das ist ja sehr traurig das du das nicht selbst hinbekommst.
Aber kein Beinbruch. In deinem "anderen" Code hast du schon zwei verschiedene Codebereiche abgegrenzt durch If - End If.
Meinen Code einfach drunter setzen. Die Zeilen von IF bis nach End If.
Solange du immer unterschiedliche Zellbereiche bearbeitest, gibt es keine Probleme.

Beliebteste Forumthreads (12 Monate)

VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

Forumthread: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

Forumthread: VBA wenn oder Werte aus Zellen übernehmen oder Zellen lösche

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread