Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile per dropdown in Tabelle löschen
21.05.2024 07:54:02 Tom
NotSolved
21.05.2024 11:24:26 Gast94262
NotSolved
21.05.2024 11:31:37 Tom
NotSolved
21.05.2024 23:08:01 ralf_b
NotSolved
22.05.2024 09:05:12 Gast54269
NotSolved
22.05.2024 17:56:37 ralf_b
NotSolved
22.05.2024 09:08:11 Tom
NotSolved

Ansicht des Beitrags:
Von:
Tom
Datum:
21.05.2024 07:54:02
Views:
617
Rating: Antwort:
  Ja
Thema:
Zeile per dropdown in Tabelle löschen

Hallo miteinander,

ich versuche gerade folgendes, ich habe eine Dropdown Liste und möchte das wenn ich dort was Lösche es in der Tabelle wo der Inhalt her kommt dieses komplett gelöscht wird inkl. Zeile. Der Inhalt kommt aus dem Arbeitsblatt "Rohdaten".
So sieht mein Aufbau zurzeit aus:

1. Arbeitsblatt "Eingabedialog":

Zelle G4 ist die Dropdown Liste. J13:J17 ist die Ausgabe der Auswahl aus der Dropdown Liste, diese Daten kommen aus dem Arbeitsblatt "Rohdaten".

H12 I12 J12 K12
T = 5 a
QT,d,aM = 7,50 l/s
qDr,k = 40,00 l/(s x ha)
tf = 6,00 min
fZ = 1,15 -

Dies ist mein VBA Code:
 

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim selectedOption As String
    Dim searchData As Variant
    Dim lastRow As Long

    ' Überprüfe, ob die Änderung in der Dropdown-Liste (Zelle G4) des Tabellenblatts "Eingabedialog" stattgefunden hat
    If Target.Address(0, 0) = "G4" And Target.Value <> "" Then
        selectedOption = Me.Range("G4").Value
        With Sheets("Rohdaten")
            ' Suche nach der ausgewählten Option in der ersten Spalte
            searchData = Application.Match(selectedOption, .Columns(1), 0)
            
            If IsNumeric(searchData) Then
                ' Wenn die Option gefunden wurde, übertrage die Daten in J13:J17
                Application.EnableEvents = False
                Me.Range("J13:J17") = WorksheetFunction.Transpose(.Cells(searchData, 2).Resize(1, 5))
                Application.EnableEvents = True
            Else
                ' Wenn die Option nicht gefunden wurde, füge sie als neue Zeile hinzu
                lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
                .Cells(lastRow, 1).Value = selectedOption
                Application.EnableEvents = False
                Me.Range("J13:J17").ClearContents
                Application.EnableEvents = True
            End If
        End With
    Else
        ' Überprüfe, ob die Änderung in dem Bereich J13:J17 stattgefunden hat
        If Not Intersect(Target, Me.Range("J13:J17")) Is Nothing Then
            If Me.Range("G4").Value <> "" Then
                With Sheets("Rohdaten")
                    searchData = Application.Match(Me.Range("G4").Value, .Columns(1), 0)
                    If IsNumeric(searchData) Then
                        .Cells(searchData, 2).Resize(1, 5).Value = WorksheetFunction.Transpose(Me.Range("J13:J17").Value)
                    End If
                End With
            End If
        End If
    End If
End Sub

2. Arbeitsblatt "Rohdaten":

Besteht nur aus einer Tabelle von A2:G8, ist aber Variabel in seiner Länge, da ich über die Dropdown Liste in Spalte A Daten hinzufügen kann.

A1 B1 C1 D1 E1 F1 G1
RRR T QT,d,aM qDr,k tf fZ FL
RRB Nord 10a 10 5 10 5 1,2  
RRB Nord 20a 20 5 10 5 1,2  
RRB Nord 30a 30 5 10 5 1,15  
RRB Nord 50a 50 5 10 5 1,15  
RRB Nord 100a 100 10 10 5 1,1  
Testbecken 5 7,5 40 6 1,15  

Wäre super wenn mir jemand helfen könnte, da alle meine Versuche gescheitert sind.

Vielen DAnk und Gruß

Tom


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zeile per dropdown in Tabelle löschen
21.05.2024 07:54:02 Tom
NotSolved
21.05.2024 11:24:26 Gast94262
NotSolved
21.05.2024 11:31:37 Tom
NotSolved
21.05.2024 23:08:01 ralf_b
NotSolved
22.05.2024 09:05:12 Gast54269
NotSolved
22.05.2024 17:56:37 ralf_b
NotSolved
22.05.2024 09:08:11 Tom
NotSolved