Office: Excel 2010/ VBA

Hallo Zusammen,

ich komme bei einem Problem nicht weiter bzw. bei mehreren aber Schritt für Schritt*Smilie

Ich habe in einem Excelformular einen Button, wenn man darauf klickt, öffnet er eine Excelmappe, kopiert einen entsprechenden Bereich und soll diesen Bereich an einer bestimmten Stelle einfügen.

Mir geht es um diesen bestimmten Bereich wo die Daten eingefügt werden sollen, dass bekomm ich leider nicht hin. Die Zeilen ändern sich immer wieder und sich nicht fest.

Hat da jmd eine Idee und kann mir weiterhelfen?

Meine idee war, dass sich ein Fenster öffnet, wo man in das entsprechende Tabellenblatt springt und dort per Klick die gewünschte zelle auswählt.

Vielen Dank im Voraus.

Gruß

Marco

:)

 

Hallo Marco,

nachfolgender Code aktiviert das Tabellenblatt "Tabelle1" und es erscheint eine Inputbox. Man kann nun entweder die gewünschte Zelle mit der Maus auswählen, woraufhin die Zelladresse in der Inputbox erscheint oder diese Zelladresse von Hand in die Inputbox eingeben. Anschließend wird geprüft, ob der Benutzer in der Inputbox auf "Abbrechen" geklickt hat (dann ist die Rangevariable leer!) und falls nicht, wird die Zwischenablage an der ausgewählten Zelle eingefügt.

 

Hallo Ingolf,

danke für deine Antwort, dass hilft mir auf alle Fälle weiter.

Ich habe nur noch nicht herausgefunden mit welcher Funktion ich mit die Zelle anzeigen lassen.

Ich brauche also als Rückmeldewert zb: A345

rng liefert ja nur der Wert zurück der in der Zelle ist (die zelle ist jedoch immer leer)

Weißt du hier was?

Danke dir

Gruß

marco

 

Hallo Marco,

rng.Address liefert die Zelladresse. Aber zum Einfügen brauchst du die nicht. Du kannst das wie in meinem Code direkt über die Rangevariable machen.

Gruß Ingolf

 

Hallo Ingolf,

ich habe mal ein Stück von meinem Code einkopiert

Code:

 

Hi

Code:

 

Hi Chris,

Danke für deine Hilfe, hat funktioniert*Smilie

Eine andere Frage hätte ich nun noch.

Ich lasse mir mithilfe der MsgBox die Zelle zurückgeben, also folgendermaßen:

MsgBox (rng.Address) ' gibt Zelle wieder (z.B. A5)

Ich will nun folgendes erreichen:

Ab der vorher angegebenen Zelle wird der vorher kopierte Bereich eingegeben (in dem Fall von z.B. A5 ab). Nun Soll automatisch in der gleichenZeile zu einer bestimmten Zelle gesprungen werden und in der zelle etwas geschrieben werden.

mal ein Bsp.:.

ich gebe vorher Zelle A5 an, dann wird dort etwas hinein kopiert und nachdem dies fertig ist, soll er in die zelle J5 springen.

gebe ich am Anfang zelle A23 ein, soll er in zelle J23 springen.

Jemand eine Idee?

Vielen Dank im Voraus

gruß

Marco

 

Hallo,

auf die entsprechende Zelle in Spalte J kannst du dich mit Code:

beziehen. Über diesen Bezug kannst du dann mit Code:

zu der Zelle springen oder mit Code:

etwas in die Zelle hineinschreiben (um etwas in die Zelle zu schreiben, musst du nicht erst vorher dorthin springen) ...

Gruß Ingolf

 

Hallo Ingolf,

vielen Dank, klappt wunderbar.

Nun stehe ich vor einer neuen Herausforderung, hab schon bisschhen was versucht aber ich denke mit den Zeichen stimmt was nicht (hochkommes, Anführungsstriche etc) evtl. kannst du mir helfen.

Das der Code

Code:

In die angegebene Zelle wird das heutige Datum geschrieben.
Dann soll automatisch das selbe Datum bis Zelle AA99935 vervollständigt werden.

Das Problem sind die beide rote markierten zeilen:

Ich hoffe es ist verständlich was ich meine

Vielen Dank im Voraus

 

Durch Zufall hab ich es selber herausbekommen:

Code:

Dabei hat sich nur ein Fehler gezeigt mit dem ich nicht gerechnet habe:

Wenn ich in die zelle:

Code:

schreibe, dann steht nur Name# in den Zellen, jedoch nicht das Datum. Spalte ist breit genug und Zellen sind auch im Format Datum

 

Hallo,

falls das Datum fest in den Zellen stehen soll:

Gruß Ingolf

 

Hallo Ingolf,

hat geklappt, danke dir*Smilie

Nun sollte ich bei meinem letzten Problem wohl festhängen, alles anderes passt soweit und steht auch.

ich lasse mir eine bestimmte Zeile zurückgeben (letztezeile)
Letztezeile gibt mir zB. als Wert 500 zurück.

Mit folgendem Code soll nun automatisch ein Bereich ergänzt werden:

Selection.AutoFill Destination:=Range("T2":letztezeile)

Leider geht das natürlich so nicht mit letztezeile, mir fehlt ja die Spalte. Nun meine Frage, wie bekomm ich das Zusammen?

"T" & letztespalte klappt nicht ganz.

Vielen Dank nochmals für Hilfe

 

Hallo,

meinst du so? Code:

Das bezieht sich dann aber nur auf die Spalte T.

Gruß Ingolf

 

Hallo,

genau, dass meinte ich.

Bei der zeile hakt es aber noch:

Code:

Bei dem in rot markierten Teil liegt der Fehler, mit & kam ich leider auch nicht weiter.

 

ich hab den Fehler selber gefunden, es war ein schreibfehler;-) Habe es oben im Code schon ausgebessert, trotzdem vielen Dank nochmals*Smilie