Office: Makro starten von der Zelle, wo Zelle markiert ist

Hallo Zusammen,

also ich habe folgendes Makro Problem in Excel 2007. Ich möchte, bzw. habe ein Makro geschrieben das Zellen in einer Spalte kopiert, es müssen dabei immer bestimmte Zeilen ausgelassen werden. Das klappt auch. Nun soll der Makro das auch für andere Spalten tun. Muss ich nun für jede Spalte ein Makro schreiben oder kann man auch den Makro kopieren für die ensprechenden Spalten?

Hoffentlich ein schönes WE

Gruß
htumm

 

Hallo!

Du kannst mehrere Spalten in einer For-Next-Schleife abarbeiten.
Hier exemplarisch:

Code:

For i = 0 To 10
Range("D5:D34").Offset(0, i).Copy
Next i

i läuft von 0 bis 10 und es wird jeweils der Bereich kopiert, der i Spalten rechts vom angegebenen Bereich liegt.

 

Hallo Schatzi,

ich habe mich vielleicht nicht richtig ausgedrückt oder ich habe es noch nicht verstanden. Also ich habe beispielhaft den Makro hier abgebildet. Nun habe ich z.B. in der Zelle "S6" auch einen Wert der in die entsprechenden Zellen der S Spalte (wie bei R auch) hineinkopiert werden soll.

Sub Makro1()
'
' Makro1 Makro
'

'

Range("R6").Select
Selection.Copy
Range("R7:R17").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=3
Range("R19:R29").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=6
Range("R31:R40").Select
ActiveSheet.Paste
End Sub


Danke für die schnelle Hilfe

Gruß
htumm

 

Hallo!

Code:

Sub Makro1()
Dim i As Integer
For i = 0 To 3 'Spalte R, Spalte S, Spalte T und Spalte U
Range("R6").Offset(0, i).Copy Range("R7:R17,R19:R29,R31:R40").Offset(0, i)
Next i
End Sub

oder direkt und ohne Schleife:

Code:

Sub Makro1()
Range("R6").Copy Range("R7:R17,R19:R29,R31:R40")
Range("S6").Copy Range("S7:S17,S19:S29,S31:S40")
Range("T6").Copy Range("T7:T17,T19:T29,T31:T40")
Range("U6").Copy Range("U7:U17,U19:U29,U31:U40")
End Sub

 

Hallo,

ich bekomme folgende Fehlermeldung:

Laufzeitfehler 1004

Ich habe Deinen direkten Vorschlag versucht umzusetzen. Hat in der Probierphase auch funktioniert. Dann habe ich aber die Zeilen erweitert, d.h. ich habe über R 40 hinaus noch Anweisungen hinzugefügt.

Nachdem ich das gemacht habe, kam dann die Fehlermeldung.

Gruß

htumm

 

Hallo!

Und was erwartest du jetzt als Antwort??

"Ich hab' im Sandkasten gespielt und alles war gut. Aber dann kam der Schaufelbagger und seitdem kann ich meine Förmchen nicht mehr wiederfinden!"
Hast du 'ne Lösung?

 

vielleicht eine praktikable Antwort wie man einen Laufzeitfehler 1004 verstehen kann und ihn dann zu beheben, oder aber Hinweise wie es zu Laufzeitfehlern kommt.

Aber auf keinen Fall eine Verarschung!

 

Hallo!

Wer hat denn angefangen???
Glaubst du, dass die Helfer hier alle ihre persönliche Kristallkugel besitzen?
Du schreibst nebulös von einem Code, der anfangs funktioniert hat, aber nach irgendeiner Änderung/Erweiterung deinerseits leider nicht mehr funktioniert!

Da ist ja selbst meine Beschreibung des Sandkastenproblems noch präziser...

Wenn du in einem Forum auf freiwillige und kostenlose Hilfe hoffst, dann ist es das Mindeste, dass du das Problem so verständlich beschreibst, dass es auch jemand nachvollziehen kann, der NICHT vor deinem Monitor sitzt und KEINE übernatürlichen Kräfte besitzt.

 

Ich habe nicht vor Dich zu verarschen und ich will auch nicht von anderen verarscht werden. Wenn die Ausführung zu sehr "a la Kristallkugel" sind, dann habe ich kein Problem mit einem Hinweis der mir sagt was denn an Informationen fehlt. Mir hat dein Sandkastenkommentar nicht gefallen - mehr nicht.

Gruß