Office: Selektierte Zeilen auslesen

Moin,

ich wollte mal fragen wie ich selektierte Zellen auslesen kann.
Selektiert heißt NICHT (in diesem Beispiel jedenfalls), dass ich einen durchgehenden Bereich habe, sondern mit der Steuerungstaste verschiedene Zellen auswähle, so dass Zwischenräume da sind die nicht selektiert worden sind.

Habe ein Attachement dazu, hoffe das ist auch dabei. *rolleyes.gif*

Hintergrund dieser Sache ist. *wink.gif*
Ich möchte ausgewählte Zellen markieren (gewöhnlich sind die Markierungen in einer Spalte) und diese beispielsweise eine oder zwei Spalten rechts davon in den jeweiligen Zeilen kopieren.
Sprich Markierung "B3:B5" nach "C3:C5", "B7:B8" nach "C7:C8" und so weiter.
Dazu brauch ich dann die jeweiligen Zeilen, welche markiert sind.

Hoffe jemand hat mein Problem verstanden und kann mir eine Lösung anbieten.
DANKE im Voraus

Ciao

:)

 

Moin, Madmaxwarke,

schön, dass Du weißt, wie man eine Grafik anhängt *wink.gif*

Ein Ansatz, um die markierten Wert zwei Spalten nach rechts zu kopieren (keine Überprüfung, ob Spalte IU oder IV ist):

Code:

 

*Smilie
Danke genau das habe ich gebraucht.
Super Hilfe.

Muss das jetzt nur noch abhängig von der Benutzereingabe machen,
wohin er das haben will.

Aber das krieg ich schon irgendwie hin.

Ciao madmaxwarke

 

Servus,

mich würde interessieren wie ich es erreichen kann, dass ich aus einer komplett selektierten Zeile z.B. Zeile 16 (ohne 'STRG-Markierung') z.B. Feld B:16, O:16 und T:16 kopieren und in einem anderen Tabellenblatt die Werte wieder einfügen kann.
Die in den restlichen Spalten stehenden Daten, können einfach ignoriert werden.

Danke schonmal im Voraus.

ciao

 

Moin, Madmaxwarke,

dazu solltest Du eine Inputbox bzw. Application.Inputbox verwenden und den rückgelieferten Wert (eventuell nach Typumwandlung) als Versatz anstelle der 2 einsetzen.

@mustee:
Dafür gibt es die Möglichkeit, den Vorgang per Makro-Rekorder aufzuzeichnen; als Ansatz könnte folgender Code dienen
Code:

 

danke erstmal,

sorry hab mich etwas mißverständlich ausgedrückt - nochmal zum Problem:

In dem Dokument sind in den Zeilen die Namen von Kunden hinterlegt und in den Spalten verschiedene Parameter zum Kunden (Anschrift, Auftragsbeginn, PM usw..)
Ein Benutzer markiert eine beliebige Zeile bzw. einen beliebigen Kunden, in dem er auf eine Zeilennummer am linken Bildschirmrand klickt. Danach drückt er auf einen Button und es werden aus der markierten Zeile die Werte in den Spalten B16, 016 und T16 kopiert und in einem anderen Tabellenblatt wieder eingefügt. Ich hoff mein Problem ist nun klarer definiert.

cu

 

Moin, mustee,

dazu muss dann immer (hier Tabelle 1) aktiv sein:

Code:

 

danke dir, echt klasse wie einem hier geholfen wird, so in etwa soll es sein *Smilie

Nur hab ich noch des Problem, dass es im anderen Tabellenblatt nicht 'hart codiert' festgelegt ist wo es eingefügt werden soll, sondern unterhalb der Zelle wo z.B. "START ANGEB" (in meinem Fall Zelle A384) drinsteht soll eine neue Zeile eingefügt werden, damit neu übertragene Daten immer oben stehen und die bisherigen eingetragenen Kunden weiter nach unten wandern.

cu

 

Moin, mustee,

für die Lösung des Problems gibt es einen Makro-Rekorder, der einem einen Teil des Codes aufzeichnet - allerdings mit absoluten Angaben, daher muss dort nachgearbeitet werden.

Code:

 

ich danke dir vielmals! werde es mir dank meiner "tollen" arbeit leider erst am donnerstag/freitag anschauen können.

Schönes Weihnachtsfest schonmal!

gruß mustee

 

Hallo,

habe das ganze mal so umgesetzt nur jetzt ist mir aufgefallen, dass es ein Problem gibt und zwar da die Daten der selektierten Zelle aus Tabellenblatt 1 im Tabellenblatt 2 nicht mehr hintereinander stehen, sondern über 2-4 Zeilen verteilt untereinander, ist es notwendig mehrere Leerzeilen einzufügen, weil sonst Daten überschrieben werden. Das Problem ist die Umsetzung, da ich mit meinem Wissen nur mehrere Zeilen einfügen kann, wenn ich vorher einen bestimmten Bereich markiere über Rows("x:y").Select.

Code:

 

Hallo, mustee,

dann sollte die Anweisung für vier Zeilen wie folgt lauten:

Code:

 

Danke dir, funktioniert!

jetzt hab ich nur noch das Problem, dass die Datensätze nicht im Tabellenblatt 2 sondern in einer anderen Excel-Datei im ersten Tabellenblatt eingefügt werden müssen *frown.gif*
Wie muss ich die with-Anweisungen verändern, damit ich auf die entsprechenden dateien verweisen kann und excel weiss in welcher datei es sich gerade befindet?

 

Hallo, mustee,

die Anweisung befindet sich in der Schleife, wobei Tabelle2 angesprochen wird. Wenn die Anweisung dort stehen bleiben soll, dann solltest Du vor den Punkt in der Codezeile Sheets("Tabelle1") setzen. Dann wird der Bezug auf die Tabelle 2 für die Anweisung aufgehoben.

Gruß
LS

 

Tut mir Leid, aber aus deiner Lösung werd ich nicht schlau *frown.gif*
Die Daten werden nicht im gleichen Excel Sheet eingefügt, sondern in einer anderen Datei.