ich habe im Zuge meiner Technikerarbeit die Aufgabe, eine Kalkulationsvorlage im Bereich Maschinenbau/Stanzwerkzeuge zu entwickeln.
Mein Problem hierbei aktuell sieht wie folgt aus:
Es wird in mehreren verschiedenen Zellen z.B. "A19"; "C31"; ... per Dropdown-Auswahl abgefragt welche Kategorie kalkuliert werden soll. Dann soll von einem entsprechenden Blatt die Vorlage kopiert werden und in der selben Reihe aber beispielsweise 4 Reihen weiter eingefügt werden. Aktuell sieht eins meiner Makros z.B. so aus:
Sub Stanzen()
Sheets("Stanzstufe").Select
Range("A1:I9").Select
Selection.Copy
Sheets("Hauptblatt").Select
Range("D19").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E19").Select
End Sub
Der Bereich "Range("D19").Select muss also variabel beschreiben werden, nur weiß ich nicht wie :D
Die automatische Aktualisierung bei einer Änderung in der Dropdown-Auswahl habe ich so beschrieben:
Auch hier bräuchte ich also eine Funktion die sich auf das ganze Blatt bezieht und nicht nur auf die Zelle A19.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A19")) Is Nothing Then
Select Case Range("A19")
Case "Stanzen": Stanzen
Case "Keine Auswahl": Grundlage
End Select
End If
End Sub
Ich hoffe mir kann bei meinem eher größeren Problem geholfen werden, damit ich meine Abschlussarbeit vollends mit Bravour abschließen kann. Vielen Dank schon mal!
Grüße
Technikerfrizze