Herbers Excel-Forum - das Archiv

1. Auswahl 2. Position ermitteln



Excel-Version: XP
nach unten

Betrifft: 1. Auswahl 2. Position ermitteln
von: Bernd


Geschrieben am: 02.05.2002 - 12:19:57

Hallo, könnte wirklich etwas Hilfe gebrauchen. Bin da leider schon zu lange mit diesem Makro dran. Wunschvorstellung:

Wenn in Zelle E2 “201“ vorkommt, kopiere den Datensatz (A-Y) in Arbeitsblatt 2 - nächste freie Zeile ( Zelle A vom letzten Datensatz aber u.U. leer - Konstant ist entweder Zelle G oder H mit Daten ).

Vielen Dank.

nach oben   nach unten

Re: 1. Auswahl 2. Position ermitteln
von: WernerB.
Geschrieben am: 02.05.2002 - 13:33:20

Hallo Bernd,

ist Dir diese Hilfe genehm:

Viel Erfolg wünscht
WernerB.

nach oben   nach unten

Re: 1. Auswahl 2. Position ermitteln
von: Markus


Geschrieben am: 02.05.2002 - 13:45:24

Hallo Bernd!

Dim nPos As Integer
nPos = Target.Cells(1, 1).Row

'Arbeitsblatt wechsel
Sheets("Tabelle2").Select

'hiermit ermittelst Du die letzte Zeile
Range("G1").Select
Selection.End(xlDown).Select

'Hiermit kannst Du die Spalten und Zeilenposition wo Du dich momentan befindest ermitteln
Range("A" + Trim$(Str$(nPos))).Select

'Den Rest überlasse ich erst mal dir

Viele Grüsse
Markus


 nach oben

Excel-Beispiele zum Thema "1. Auswahl 2. Position ermitteln"
Zellinhalt suchen und Zelle auswählen Mehrfachauswahl aus ListBox auslesen
Die Zelle mit dem höchsten Wert Auswählen Mehrbereichsauswahl auf eine Seite drucken.
Spalten einer Mehrbereichsauswahl ausblenden. Tabellenblatt auswählen
Mehrfachauswahl im Hoch- und Querformat drucken Laufwerk über InputBox auswählen
Bereiche bei Mehrfachauswahl prüfen Alle ComboBoxes auf Position 1