Zeilen nach oben kopieren geschlossen

[fexs]

Hallo,
Ich habe eine Tabelle die ziehmlich groß is. In der Spalte A stehn Namen un in B andere angaben.
Ich will ein DropdownFeld zB in zelle A3 machen. In dem Feld soll man alle Namen aus Spalte A auswählen können. Hab man zB den Namen in Zelle A5 ausgewählt soll man alle Zellen die dazugehörn(also bei A5 wärn es B5, C5, D5 usw.) oben in Zeile 3 stehen haben.

Also die Zeile die man ausgewählt hat soll dann praktisch nach oben in Zeile 3 kopiert werden damit man nich immer rumscrollen muss um den Namen aus der Liste zu suchen.

Währe sehr nett wenn mir einer sagen könnte wies geht.
Danke schonmal..
Bis dann
Gruß fexs

 

[FeliX_22]

Warum verwendest du nicht stattdessen die AutoFilter-Funktionen?

 

[totsch]

Hallo fexs,

genügt dir anstelle von Autofilter auch SVERWEIS?

A3 ist deine manuelle Eingabezelle für den gesuchten Namen.

Gruss Totsch

 

[fexs]

danke totsch
genau sone Formel hab ich gesucht. Das mit dem Dropdown in Zelle A3 hab ich auch selber hinbekommen.. dann muss man die Namen nicht immer in genau der selben Schreibweiße in die Zelle schreiben.

also danke
gruß
fexs

 

[yuhu]

Was jetzt ?

Danke erledigt ? -> Präfix umstellen.

Danke offen ist noch was ? Was fehlt ?

Gruß
yuhu

 

[fexs]

Um nich schonwieder en neues Thema aufzumachen:

In die selbe Liste, aus der ich oben die Felder hochkopiert haben wollte, will ich jetz noch en Makro schreiben mit dem ich den Inhalt einer Zeile ans Ende der Liste kopiern will.

Bevor ich jetz wieder 5 Stunden in Visual Basic rumprobier.. weiß vllt jemand wie des geht??

wäre sehr dankbar drüber bsi dann
Gruß fexs

edit:
wenn das jetz noch einer weiß stell ich das Präfix um

----------------------
EDIT:

Ich habs jetz selber hinbekommen.

Es is eig ganz einfach.. es hat sich nur so schwer angehört un da ich davon kein plan hab dachte ich, ich bekomms net hin.

Weil ich Foren hasse die geschlossen sind, ohne dass die komplette Antwort gegeben wurde, weil der, der die Frage gestellt hat schreibt, dass ers selber rausbekommen hat hier nochmal meine Lösung:

[COLOR='Blue'][COLOR='Navy']Sub NewList()[/COLOR][/COLOR]
[COLOR='SeaGreen']'[/COLOR]
Dim intRow As Integer, intColumn As Integer
[COLOR='SeaGreen']'
'Abfrage falls Zellen leer sind[/COLOR]
If Cells(10, 1).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field A10 is empty)": Exit Sub
If Cells(10, 2).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field B10 is empty)": Exit Sub
If Cells(10, 3).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field C10 is empty)": Exit Sub
If Cells(10, 4).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field D10 is empty)": Exit Sub
If Cells(10, 5).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field E10 is empty)": Exit Sub
If Cells(10, 6).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field F10 is empty)": Exit Sub
If Cells(10, 7).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field G10 is empty)": Exit Sub
If Cells(10, 8).Value = "" Then MsgBox "All fields must be filled out! Cancel! (Field H10 is empty)": Exit Sub
[COLOR='SeaGreen']'
'die erste freie Zelle in der Liste suchen[/COLOR]
For intRow = 1 To 5000
If Cells(intRow, 1).Value = "" Then Exit For
Next intRow
[COLOR='SeaGreen']'
'Zellen reinkopiern[/COLOR]
Cells(intRow, 1).Value = Cells(10, 1).Value
Cells(intRow, 2).Value = Cells(10, 2).Value
Cells(intRow, 3).Value = Cells(10, 3).Value
Cells(intRow, 4).Value = Cells(10, 4).Value
Cells(intRow, 5).Value = Cells(10, 5).Value
Cells(intRow, 6).Value = Cells(10, 6).Value
Cells(intRow, 7).Value = Cells(10, 7).Value
Cells(intRow, 8).Value = Cells(10, 8).Value
[COLOR='SeaGreen']'
'
'Oberen Zellen wieder löschen[/COLOR]
Cells(10, 1).Value = ""
Cells(10, 2).Value = ""
Cells(10, 3).Value = ""
Cells(10, 4).Value = ""
Cells(10, 5).Value = ""
Cells(10, 6).Value = ""
Cells(10, 7).Value = ""
Cells(10, 8).Value = ""
[COLOR='SeaGreen']'...und so weiter
'
'[/COLOR]
[COLOR='Navy']End Sub[/COLOR]

danke an Tattooed1980 der mir soeinen ähnlichen Code für ne andere Arbeit mal gegeben hat.
totsch hab ich ja schon gedankt

Bis dann

jetz kannst du zu machen

Gruß fexs

---------------------------------------------------------------------------------------------------------
EDIT:
Eben les ich dass Himbeer gefragt hat wie ich das mit dem Dropdown gemacht hab..

Also:

1. Zelle auswählen, in der die DropDown-Liste stehen soll
2. Daten -> Datentools -> Datenüberprüfung
3. In dem Dropdown "Zulassen" dann "Liste" auswählen
4. Die Quelle des Liste abengeben, die in dem Dropdown stehn soll
5. OK drücken

fertig

cu

 

[yuhu]

Danke für deine Lösungswege.

------------------------ GESCHLOSSEN -------------------