Office: Range um 1 zeile verschieben!!!!

Hallo Leute,


ich habe das Problem, dass ich mittels einem Makro
eine Range bei jedem Makroaufruf um 1 Zeile nach unten verschieben soll.
Kann mir jemand helfen, ich bin leider ein absoluter VBA Newbie, also habt etwas geduldt mit mir.

thx im vorraus
bunny

[ 29. Oktober 2002: Beitrag editiert von: bunny02 ]

:)

 

Moin, bunny,

ausgehend von der zur Zeit aktiven Zelle lautet der Befehl ActiveCell.Offset(1, 0).Select, wobei die Ansprache in der Reihenfolge Zeilennummer, Spaltennummer erfolgt. Sollte diese Auskunft nicht ausreichen, weiterfragen...

 

Hi jinx,

vielen Dank für Deine schnelle Antwort, das war genau das was ich brauchte.

Danke

bunny

 

Hallo jinx,

Du musst doch irgendwo eine Glaskugel stehen haben, auch wenn Du das immer wieder leugnest! Wie konntest Du sonst darauf kommen, dass lediglich die Markierung verschoben werden soll und nicht - wie der Titel vermuten ließ - ein Bereich?

Ciao

Johannes

 

Moin, Johannes,

auch ein blindes Huhn findet mal... und bei der Menge der Beiträge werde ich doch wohl einmal...

Im Ernst: Vermutung. Bestehend aus einem neuen User und der Wortwahl in eine Range - wenn es ein Bereich wäre, sollte das doch wohl einen heißen...


[ 29. Oktober 2002: Beitrag editiert von: jinx ]

 

Kompliment!

Ich habe schon lange aufgehört, mir über Rechtschreibung oder Grammatik in den Beiträgen Gedanken zu machen.

CU
Johannes

 

Hi jinx,

meine aufgabenstellung wurde erweitert, diesmal muss ich wirklich eine bereich (range) um eine zeile verschieben, kannst du dein glaskugel noch mal befragen.

grettz bunney

 

Moin, bunny,

wenn Du erwähnst, wie Du den Range definierst, wäre die Antwort leichter. So wird zum Beispiel der vorher markierte Bereich um eine Zeile nach unten verschoben (da ich nicht weiß, was weiter damit passieren soll, bleibt er markiert): Selection.Offset(1, 0).Select

 

hi jinx,

es handelt sich um den Range eines Diagramms.
Also das ganze Komplett:
In meier Tabelle wird fortlaufend jeden Monat eine Zahl hinzugefügt: Jan. 1446
Feb. 1566
...
(Darstellung: Jan Zeile1, Feb. Zeile 2)

über mehrer Jahre hinweg. Mein Diagramm soll immer die letzten 12 Monate zeigen.
Wenn ein neuer Monat hinzugefügt wird, soll mein Makro ausgeführt werden, das der neue Monat im Diagramm dagestellt wird inklusive der letzten 11 Monate.

Ist das so verständlich?

Gruß
bunny

P.s. sorry für die Rechtschreibfehler

[ 30. Oktober 2002: Beitrag editiert von: bunny02 ]

 

Moin, bunny,

wie wäre es dann mit etwas Code - oder ist dieser STRENG GEHEIM ?

 

Könnte sein, dass das jetzt peinlich wird.
Da ich ja nun wirklich nicht viel Plan von VBA hab, ist meine Grundidee recht einfach gewesen.
Ich hab einfach mit dem Assistenten das erstellen eines Diagramms als Makro aufgezeichnet und mir gedacht, wenn ich es schaffe in das Makro noch einzubauen, das sich der Bereich jeweils um 1 Zeile nach unten verschiebt, hab ich mein Problem gelöst.?

Sub Makro2()
'
' Makro2 Makro
'
'
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Tabelle2").Range("A10:B21"), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub


Greetz

 

Hallo,

sicherlich möglich, aber zu welchem Zweck willst du da was verschieben?
Geht sicher um den Quellbereich für das Diagramm, oder?
Kannst ja mal genauer schreiben, was du vorhast...

Gruß
Jens

 

Hallo Jensen,

nett dass du dich für mein problem interessierst.
aber schreib ich russisch?
besser wie in meinen beiden letzten beiträgen kann ich mein prob nicht beschreiben.
(mangels inkompetenz meiner seits vielleicht?)

was solltest du denn noch wissen?

Greetz

 

Hallo,

also nach deinem Makro erstellst du ja ein Diagramm über A10-B21.
Soll danach eins über A11-B22 erstellt werden?
Das würde ich verstehen, wenn der Bereich um eine Zelle verschoben werden soll...
Hoffe mal, wir kommen auch ohne Russisch aus.. *wink.gif*

Gruß
Jens

 

Moin, Jens,

ich bewundere immer die Kunst einiger weniger User, einen kompletten Beitrag zu lesen und nicht nur auf das letze Posting zu antworten!