Datenübernahme denke Case Aufgabe

Hallo
ich habe eine Aufgabe zu lösen, in Blatt "AUSWAHL":A1 melde ich wer ich bin
zB. AbtA, AbtB, ..... usw dann wird Blatt aktiviert dies funktioniert, hier trage ich Daten ein.
nun muss ich wenn in "AUSWAHL":A1 = AbtA steht die Daten von AbtA:A10 und AbtA:B12 in diverse Blätter einfügen in Zielzelle
wenn
"AUSWAHL":A1 = AbtB steht die Daten von AbtA:A10 und AbtA:B12 in diverse Blätter einfügen in Zielzellen (gleiche wie oben)
wenn
"AUSWAHL":A1 = AbtC steht die Daten von AbtA:A10 und AbtA:B12 in diverse Blätter einfügen in Zielzellen (gleiche wie oben)
usw. habe dies schon mal gesehen glaube mit Case kann dies aber selbst nicht nachvollziehen
Als Ergänzung wenn AbtA ausgewählt ist nur Blatt AbtA eingeblendet, wenn AbtB dann Blatt AbtB eingeblendet usw.
klingt kompliziert aber ganz einfach 4 verschieden Blätter als Bezug davon trage ich immer nur Daten in eines von den vier ein und div. Daten müssen dann in div. Blätter.
Alles klar ? hoffe habe mir Mühe gegeben, Danke jetzt schon für Lösungsansatz.
gruss helena

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "A1" Then Exit Sub call ausblenden On Error GoTo Fehler Worksheets(Target.Value).Visible = True Worksheets(Target.Value).Activate Exit Sub Fehler: MsgBox "Tabellenblatt " & Target.Value & " ist nicht vorhanden" End Sub Sub ausblenden() For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Tabelle1" Then ws.Visible = False Next ws End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) <> "C3" And Target.Address(0, 0) <> "C5" Then Exit Sub If Range("C3") = "" Or Range("C3") = "" Then Exit Sub With Worksheets(Range("a1")) Worksheets(Ziel1).Range("C22") = .Range("C3") Worksheets(Ziel1).Range("C45") = .Range("C5") Worksheets(Ziel2).Range("B5") = .Range("C3") Worksheets(Ziel2).Range("B25") = .Range("C5") End With End Sub

Hallo Reinhard
ich kanns erst im Geschäft testen aber eine kleinigkeit fällt mir auf im Code
bin Anfängerin aber evtl. in Blatt "AUSWAHL:A1" steht welches Blatt die Quelle
gibt für die Ziele die Zielnamen sind mir bekannt es isnd mal 30 Blatt mal nut 6 Blatt je nach Abteilung werden die Daten in mehr oder weniger Blätter benötigt bzw, in die Datenblätter übertragen. Diese verknüpfung ist für mich nicht ersichtlich.
https://www.herber.de/bbs/user/29911.xls
habe Musterfile gemacht
gruss helena


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <> "C3" And Target.Address(0, 0) <> "C5" Then Exit Sub
If Range("C3") = "" Or Range("C3") = "" Then Exit Sub
With Worksheets(Range("a1"))
Worksheets(Ziel1).Range("C22") = .Range("C3")
Worksheets(Ziel1).Range("C45") = .Range("C5")
Worksheets(Ziel2).Range("B5") = .Range("C3")
Worksheets(Ziel2).Range("B25") = .Range("C5")
End With
End Sub

Beliebteste Forumthreads (12 Monate)

Datenübernahme denke Case Aufgabe

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread