Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Vba - Befehl für 2 zelle nach rechts | Herbers Excel-Forum


Betrifft: Vba - Befehl für 2 zelle nach rechts von: Manuela
Geschrieben am: 12.11.2009 09:45:44

Hallo,
ich versuchte mit aufzeichen folgendes Makro:
2 Zellen nach rechts.
dann wird folgendes aufgezeichnet: Range("H20").Select
Das Makro soll aber, ab der x-gewählten Position 2 Zellen nach rechts gehen.
Lieben Dank für eine Hilfe.

Manu

  

Betrifft: in Hilfe- Offset suchen... owT von: robert
Geschrieben am: 12.11.2009 09:58:05




  

Betrifft: AW: Vba - Befehl für 2 zelle nach rechts von: otto
Geschrieben am: 12.11.2009 10:00:48

Hi,

ActiveCell.Offset(0, 2).Select

otto


  

Betrifft: ...Offset(0, 2) von: Erich G.
Geschrieben am: 12.11.2009 10:01:12

Hi Manu,
du startest vermutlich in Zelle F20, oder?

Wenn du per Makro einfach nur 2 Spalten weiter nach rechts markieren willst, geht das mit

Sub SelRe2()
   Selection.Offset(0,2).Select
End Sub
(vorausgesetzt, du gerätst dabei nicht hinter die letzte Spalte des Blattes!)

Aber vermutlich ist ein "Select" überhaupt nicht nötig. Willst du nur eine Zelle markieren oder mit dieser Zelle etwas tun?

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: ...Offset(0, 2) von: Manuela
Geschrieben am: 12.11.2009 10:04:36

Hallo Erich,

den Wert oder die Formel von dort (2 Zellen nach rechts) in die aktive Zelle kopieren.
Sorry, bin Anfängerin in VBA.
Ich hätte ja auch von selbst darauf können, im Archiv zu suchen.

Manuela


  

Betrifft: ...Offset(0, 2).Copy ... von: Erich G.
Geschrieben am: 12.11.2009 10:21:51

Hi Manu,
je nachdem, ob du das immer nur für die jeweilige gesamte Markierung
oder nur für die (einzelne) aktive Zelle anwenden willst:

Sub CopSelRe2()      ' gesamte Markierung
   Selection.Offset(0, 2).Copy Selection
End Sub

Sub CopActRe2()      ' nur aktive Zelle
   ActiveCell.Offset(0, 2).Copy ActiveCell
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: ...Offset(0, 2) von: Jens
Geschrieben am: 12.11.2009 10:21:53

Hallo Manuela

den Wert oder die Formel von dort (2 Zellen nach rechts) in die aktive Zelle kopieren
Wert und Formel ist aber ein Unterschied.
Willst Du die Formel in die Zelle kopieren, oder den Wert oder je nachdem, was in der Zelle steht?
Willste Du das über das gesamte Blatt machen können, oder nur in einem bestimmten Bereich?

Gruß aus dem Sauerland

Jens


  

Betrifft: hier ein Beispiel von: Matthias L
Geschrieben am: 12.11.2009 11:10:08

Hallo Manu

https://www.herber.de/bbs/user/65805.xls

Gruß Matthias


  

Betrifft: AW: Vba - Befehl für 2 zelle nach rechts von: Christian
Geschrieben am: 12.11.2009 10:02:57

Hallo Manu,
auf das "gehen" im Sinne von "Select" kann man verzichten. Das bremst den ganzen Spaß nur unnötig aus.

Nehmen wir mal an, du hast eine bestimmte Zelle ausgewählt und willst dann den Wert der Zelle (2 nach rechts) wissen.

Sub GetValue_I()
    MsgBox ActiveCell.Offset(, 2)
End Sub
oder:
Sub GetValue_II()
    MsgBox Cells(ActiveCell.Row, ActiveCell.Column +2)
End Sub
Gruß
Christian


Beiträge aus den Excel-Beispielen zum Thema "Vba - Befehl für 2 zelle nach rechts"