VBA-Problem, Werte aus Spalte kopieren

Hallo alle zusammen,
folgendes Problem:
Wenn ich im Drop Down Feld "Drop Down 76" einen bestimmten Namen auswähle, möchte ich, daß aus dem Tabellenblatt mit dem selben Namen aus bestimmten Spalten die Werte in bestimmte Spalten eines anderen Tabellenblatts kopiert werden. Vorher sollten allerdings alle Werte aus den Ziel-Spalten gelöscht werden.
Jetzt näheres zu den Spalten, den Zellverknüpfungen und dem Eingabebereich:
"Drop Down 76" hat die Zellverknüpfung im Blatt "Hilfe" Zelle "BG3".
"Drop Down 76" hat Eingabebereich im Blatt "Formatierung" Zellen "E2 bis E23".
Wenn ich nun einen Name aus dem Drop down Feld ausgewählt habe stimmt dieser mit einem der Namen aus dem Zellbereich "E2 bis E23" überein und ist einem bestimmten "Case" in Zelle "BG3" zugeordnet.
Jetzt soll das Makro nach einem Tabellenblatt mit dem selben Namen suchen und dann folgendes machen:
1. Im Blatt "DatenquelleBäume" die Werte in den Spalten A, E, G, F, H, D, T, R, Q löschen.
2. Aus dem Blatt mit dem selben Namen die Werte nach "DatenquelleBäume" kopieren.
von Spalte, nach Spalte
A, A
B, E
C, G
D, F
E, H
F, D
G, T
H, R
I, Q
Je nach dem man welchen Namen im Drop Down Feld auswählt hat, werden nun die Werte aus dem Blatt mit dem selben Namen ins Blatt DatenquelleBäume kopiert.
Ich habe versucht mit Select Case etwas hinzubekommen, bin aber gescheitert
Kann mir jemand helfen?
Grüße aus Berlin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Test() 'Spalteninhalte A, E, G, F, H, D, T, R, Q in DatenquelleBäume löschen With Worksheets("DatenquelleBäume") .Columns("A").ClearContents .Columns("E").ClearContents .Columns("G").ClearContents .Columns("F").ClearContents .Columns("H").ClearContents .Columns("D").ClearContents .Columns("T").ClearContents .Columns("R").ClearContents .Columns("Q").ClearContents End With 'Werte aus gewählter Tabelle in DatenquelleBäume eintragen With Worksheets(Worksheets("Hilfe").Range("BG3").Value) Worksheets("DatenquelleBäume").Columns("A").Value = .Columns("A").Value Worksheets("DatenquelleBäume").Columns("E").Value = .Columns("B").Value Worksheets("DatenquelleBäume").Columns("G").Value = .Columns("C").Value Worksheets("DatenquelleBäume").Columns("F").Value = .Columns("D").Value Worksheets("DatenquelleBäume").Columns("H").Value = .Columns("E").Value Worksheets("DatenquelleBäume").Columns("D").Value = .Columns("F").Value Worksheets("DatenquelleBäume").Columns("T").Value = .Columns("G").Value Worksheets("DatenquelleBäume").Columns("R").Value = .Columns("H").Value Worksheets("DatenquelleBäume").Columns("Q").Value = .Columns("I").Value End With End Sub

Hallo peter,
ich hatte leider nicht erkannt, dass du die DropDown-Liste aus der Symbolleiste "Formular" verwendest, die "nur" die Nummer des ausgewählten Elements in die verknüpfte Zelle zurückgibt.
Wenn alle angegebenen Tabellen in der gleichen Excel-Arbeitsmappe sind, dann sollte es jetzt eigentlich funktionieren. Ich habs jetzt auch getestet.
Das Makro startest du nach dem Ändern der Tabelle in der Auswahlbox manuell oder du weist der Drop-Drown-Auswahlbox das Makro zu, so dass es nach Änderung der Auswahl automatisch ausgeführt wird.
Ich hab das Makro unter WindowsXP, Excel 2003, deutsch erstellt. In der Tabelle werden Zellen in der A1-Schreibweise addressiert. Warum die Eigenschaft "Columns" mit Typfehler reagiert weiss ich nicht. Evtl. Ist das irgendeine Einstellungssache. Ersetze ggf. die Buchstaben durch entsprechende Ziffern: Columns("A") wird zu Columns(1), "B" zu 2 und so weiter.
Gruß
Franz


Sub Test()
'Spalteninhalte  A, E, G, F, H, D, T, R, Q  in DatenquelleBäume löschen
Worksheets("DatenquelleBäume").Activate
With Worksheets("DatenquelleBäume")
.Columns("A").ClearContents
.Columns("E").ClearContents
.Columns("G").ClearContents
.Columns("F").ClearContents
.Columns("H").ClearContents
.Columns("D").ClearContents
.Columns("T").ClearContents
.Columns("R").ClearContents
.Columns("Q").ClearContents
End With
'Werte aus gewählter Tabelle in DatenquelleBäume eintragen
'Application.ScreenUpdating = False
With Worksheets(Worksheets("Formatierung").Range("E2:E23").Cells(Worksheets("Hilfe").Range("BG3").Value, 1).Value)
Worksheets("DatenquelleBäume").Columns("A").Value = .Columns("A").Value
Worksheets("DatenquelleBäume").Columns("E").Value = .Columns("B").Value
Worksheets("DatenquelleBäume").Columns("G").Value = .Columns("C").Value
Worksheets("DatenquelleBäume").Columns("F").Value = .Columns("D").Value
Worksheets("DatenquelleBäume").Columns("H").Value = .Columns("E").Value
Worksheets("DatenquelleBäume").Columns("D").Value = .Columns("F").Value
Worksheets("DatenquelleBäume").Columns("T").Value = .Columns("G").Value
Worksheets("DatenquelleBäume").Columns("R").Value = .Columns("H").Value
Worksheets("DatenquelleBäume").Columns("Q").Value = .Columns("I").Value
End With
'Application.ScreenUpdating = True
End Sub

Sub Pflanzungsdaten() 'Spalteninhalte A, E, G, F, H, D, T, R, Q in DatenquelleBäume löschen Worksheets("DatenquelleBäume").Activate With Worksheets("DatenquelleBäume") .Columns("1").ClearContents .Columns("5").ClearContents .Columns("7").ClearContents .Columns("6").ClearContents .Columns("8").ClearContents .Columns("4").ClearContents .Columns("20").ClearContents .Columns("18").ClearContents .Columns("17").ClearContents End With 'Werte aus gewählter Tabelle in DatenquelleBäume eintragen 'Application.ScreenUpdating = False With Worksheets(Worksheets("Formatierung").Range("E2:E23").Cells(Worksheets("Hilfe").Range("BG3").Value, 1).Value) Worksheets("DatenquelleBäume").Columns("1").Value = .Columns("1").Value Worksheets("DatenquelleBäume").Columns("5").Value = .Columns("2").Value Worksheets("DatenquelleBäume").Columns("7").Value = .Columns("3").Value Worksheets("DatenquelleBäume").Columns("6").Value = .Columns("4").Value Worksheets("DatenquelleBäume").Columns("8").Value = .Columns("5").Value Worksheets("DatenquelleBäume").Columns("4").Value = .Columns("6").Value Worksheets("DatenquelleBäume").Columns("20").Value = .Columns("7").Value Worksheets("DatenquelleBäume").Columns("18").Value = .Columns("8").Value Worksheets("DatenquelleBäume").Columns("17").Value = .Columns("9").Value End With 'Application.ScreenUpdating = True End Sub

Sub Pflanzungsdaten() 'Spalteninhalte A, E, G, F, H, D, T, R, Q in DatenquelleBäume löschen Worksheets("DatenquelleBäume").Activate With Worksheets("DatenquelleBäume") .Columns(1).ClearContents .Columns(5).ClearContents .Columns(7).ClearContents .Columns(6).ClearContents .Columns(8).ClearContents .Columns(4).ClearContents .Columns(20).ClearContents .Columns(18).ClearContents .Columns(17).ClearContents End With 'Werte aus gewählter Tabelle in DatenquelleBäume eintragen 'Application.ScreenUpdating = False With Worksheets(Worksheets("Formatierung").Range("E2:E23").Cells(Worksheets("Hilfe").Range("BG3").Value, 1).Value) Worksheets(DatenquelleBäume).Columns(1).Value = .Columns(1).Value Worksheets(DatenquelleBäume).Columns(5).Value = .Columns(2).Value Worksheets(DatenquelleBäume).Columns(7).Value = .Columns(3).Value Worksheets(DatenquelleBäume).Columns(6).Value = .Columns(4).Value Worksheets(DatenquelleBäume).Columns(8).Value = .Columns(5).Value Worksheets(DatenquelleBäume).Columns(4).Value = .Columns(6).Value Worksheets(DatenquelleBäume).Columns(20).Value = .Columns(7).Value Worksheets(DatenquelleBäume).Columns(18).Value = .Columns(8).Value Worksheets(DatenquelleBäume).Columns(17).Value = .Columns(9).Value End With 'Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

VBA-Problem, Werte aus Spalte kopieren

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA-Problem, Werte aus Spalte kopieren

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread