justlukas
Goto Top

Per Dropdown Zeilen bzw. Datensets hinzufügen

Hallo zusammen,

ich möchte einer Übersicht für vermietete Objekte erstellen und habe dazu eine Vorlage erstellt. Innerhalb dieser Vorlage soll folgendes möglich sein:

per dropdown-Auswahl möchte ich die Anzahl der Wohneinheiten je Wohnhaus ausgeben (soweit bin ich) und anhand dieser Anzahl entsprechende oder mehrere neue Zeilen in der Vorlage einfügen. Wähle ich also 2 Wohneinheiten aus der Liste auswähle, sollen 4 neue Zeilen (je zwei Zeilen pro Anzahl) darunter eingefügt werden. Überragend wäre, wenn nicht jedes mal leere Zeilen, sondern ein festes Layout eingefügt würde. Ob das jedoch möglich ist, weiß ich nicht. Vielleicht mit PowerBi?

Weiß jemand, ob das einfügen eines solchen "Datenlayouts" möglich ist bzw. wie das ginge?

Beste Grüße

Content-ID: 2976426820

Url: https://administrator.de/contentid/2976426820

Ausgedruckt am: 26.11.2024 um 11:11 Uhr

colinardo
Lösung colinardo 03.06.2022 aktualisiert um 12:48:59 Uhr
Goto Top
Servus.
Kleines Makro erledigt dir das bspw,
Private Sub comboCount_Change()
    With Application
        ' if not numeric exit sub  
        If Not IsNumeric(comboCount.Value) Then
            Exit Sub
        End If
        ' disable screen updating  
        .ScreenUpdating = False
        With ActiveSheet
            ' for selected value add times 2 = number fo items to add  
            For i = 1 To CInt(comboCount.Value) * 2
                'copy template range  
                .Range("A4:E4").Copy  
                ' paste in next free row  
                .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValuesAndNumberFormats  
            Next
        End With
        .CutCopyMode = False
        ' enable screen updating  
        .ScreenUpdating = True
    End With
End Sub

screenshot

Demo-Mappe zum Download:
create_rows_from_template_2976426820.zip

Grüße Uwe
justlukas
justlukas 03.06.2022 um 12:57:02 Uhr
Goto Top
Hallo Uwe,

Wahnsinn, vielen Dank! Die Demo-Mappe habe ich auch erfolgreich runtergeladen.

Beste Grüße
colinardo
colinardo 03.06.2022 um 12:57:17 Uhr
Goto Top
👍 .