Thema Datum  Von Nutzer Rating
Antwort
Rot letzte Zeile mit Werten
 04.10.2010 08:53:38 reschi
NotSolved
04.10.2010 10:26:05 Severus
NotSolved
04.10.2010 10:36:38 reschi
NotSolved

Ansicht des Beitrags:
Von:
reschi		 Datum:
04.10.2010 08:53:38		 Views:
1693		 Rating:
     
Antwort:
  Ja
Thema:
letzte Zeile mit Werten
Hallo zusammen
bin in Sachen VBA noch nicht sehr erfahren und hab ein kleines Problem
Hab ein Tabellenblatt erstellt und muss per Makro 3 Spalten einfügen, was ja kein Problem ist.
Jedoch hat dieses Tabellenblatt immer unterschiedlich viel Zeilen, je nach Auswertung, und das Makro sollte so flexibel sein, die Werte in die 3 neuen Spalten so einzufügen, dass es immer nur bis zur letzten Zeile der benachbarten Spalte, geht. Also ich füge spalte B,C,D hinzu per Makro und er sollte die Daten in den Spalten bis zur letzten Zeile von A einfügen. Habe versucht einen Makro aufzuzeichnen aber da kommt dann als Range immer nur ein fixer wert:

Selection.Insert Shift:=xlToRight

Range("B8").Select
Selection.AutoFill Destination:=Range("B8:B841")
Range("B8:B841").Select
Range("C8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-2],Rohdaten_2!R[-7]C[-2]:R[1274]C[2],3)"
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C841")
Range("C8:C841").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],Rohdaten!R[-7]C[-3]:R[19822]C[2],3)"
Range("D8").Select
Selection.AutoFill Destination:=Range("D8:D841")
Range("D8:D841").Select

das ist mein Code und die Zeile "Range("B8:B841").Select" sollte so geändert werden dass er er nicht bis zeile 841 sondern eben bis zur letzten Zeile mit Werten einfügt

ich hoffe es ist nicht zu kompliziert beschrieben
vielen dank im voraus!

MFG

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot letzte Zeile mit Werten
 04.10.2010 08:53:38 reschi
NotSolved
04.10.2010 10:26:05 Severus
NotSolved
04.10.2010 10:36:38 reschi
NotSolved