per VBA+Pulldownmenue Wert aus 2.Tab einsetzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Karin, vorerst mal vielen Dank.
Hier das, was ich aufgezeichnet habe. Es läuft im Momment so nicht, aber ich kenne mich ja in VBA nicht aus.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$10" Then
Windows("TU.xlsm").Activate
ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=3, Criteria1:="Automarke"
' Kann man die Liste des Filters als Tabelle in die Userform bringen? Denn Automarke ist ein  _
Beispiel aus vielen die ich ja dann auswählen will. Gilt für alle weiteren Auswahlen.
ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=4, Criteria1:="Kraftstoff"
ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=5, Criteria1:="Hubraum / PS"
ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=6, Criteria1:="lila"
Range("A43").Select
Selection.Copy
Windows("TEST_mit_PDMlisten1").Activate
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Windows("TU.xlsm").Activate
ActiveCell.FormulaR1C1 = "lila"
Windows("TEST_mit_PDMlisten1").Activate
ActiveCell.FormulaR1C1 = "lila"
End If
End Sub

Wie siehst Du das? Gruss Urs

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$10" Then Windows("TU.xlsm").Activate ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=3, Criteria1:="Automarke" ' Kann man die Liste des Filters als Tabelle in die Userform bringen? Denn Automarke ist ein _ Beispiel aus vielen die ich ja dann auswählen will. Gilt für alle weiteren Auswahlen. ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=4, Criteria1:="Kraftstoff" ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=5, Criteria1:="Hubraum / PS" ActiveSheet.Range("$A$1:$AS$427").AutoFilter Field:=6, Criteria1:="lila" Range("A43").Select Selection.Copy Windows("TEST_mit_PDMlisten1").Activate Application.CutCopyMode = False ActiveCell.FormulaR1C1 = "" Windows("TU.xlsm").Activate ActiveCell.FormulaR1C1 = "lila" Windows("TEST_mit_PDMlisten1").Activate ActiveCell.FormulaR1C1 = "lila" End If End Sub

Hi Urs,
beschreibe bitte mal mit Worten, was genau erreicht werden soll. Soviel habe ich erst mal verstanden bzw. aus dem Code und deinen Beiträgen interpretiert:
1. du wählst in der aktiven Tabelle (welche Arbeitsmappe und welches Tabellenblatt ist das?) etwas in C10 aus
2. in Mappe "TU.xlsm" aktive Tabelle (Name ?) wird der Autofilter gesetzt
3. dort wird Zelle A43 kopiert (wohin kopiert?)
4. es wird zu Arbeitsmappe "TEST_mit_PDMlisten1" gewechselt, aktives Tabellenblatt (Name?, oder ist das das Tabellenblatt mit dem Code?) und in die aktive Zelle (welche Zelladresse?) "" eingetragen
5. es wird zu Mappe "TU.xlsm" gewechselt, aktives Tabellenblatt und in die aktive Zelle (A43 ?) "lila" eingetragen
6. es wird zu Arbeitsmappe "TEST_mit_PDMlisten1" gewechselt, aktives Tabellenblatt (Name?, oder ist das das Tabellenblatt mit dem Code?) und in die aktive Zelle (welche Zelladresse?) "lila" eingetragen

Beliebteste Forumthreads (12 Monate)

per VBA+Pulldownmenue Wert aus 2.Tab einsetzen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

per VBA+Pulldownmenue Wert aus 2.Tab einsetzen

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

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread