Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1544to1548
1544to1548
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfe beim Anpassen eines Makros

Forumthread: Hilfe beim Anpassen eines Makros

Hilfe beim Anpassen eines Makros
04.03.2017 18:12:27
Alfred.Bauer
Moin zusammen,
ich bräuchte mal Eure Hilfe.
Wie muß ich den nachfolgenden Code anpassen, damit er nur im Bereich E10:E35 ausgeführt wird. _ Ich probiere schon eine Stunde, schaffe es aber nicht den Bereich zu definieren. 

Sub FillSelection()
Dim cell As Range
For Each cell In Selection.Cells
ActiveCell.Offset(0, 1) = "Test"
Next
End Sub

Danke aus dem hohen Norden
Fred
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe beim Anpassen eines Makros
04.03.2017 18:15:28
Hajo_Zi
Hallo Fred,
Range("E10:E15") = "Test"


AW: Hilfe beim Anpassen eines Makros
04.03.2017 18:15:52
ransi
Hallo,
Versuch doch mal so: 

Sub FillSelection()
Range("F10:F35").value = "Test"
End Sub
ransi
AW: Hilfe beim Anpassen eines Makros
04.03.2017 18:31:35
Alfred.Bauer
Sorry, ich habe nicht richtig erklärt was ich brauche.
Der Code schreibt in die Zelle rechts von der aktiven das Wort "Test". Das ist ok und soll so sein.
Ich möchte aber, das der Code nur dann ausgeführt wird, wenn im Bereich E10:E35 eine Zelle aktiv ist.
Beispiel: Zelle E18 = aktiv - Makro läuft und schreibt in Zelle F18. Zelle B18 = aktiv - Makro wird nicht ausgeführt. Ist sowas möglich?
Gruß Fred
Anzeige
AW: Hilfe beim Anpassen eines Makros
04.03.2017 19:03:05
Hajo_Zi
Hallo Fred,
Option Explicit                                     ' Variablendefinition erforderlich
Sub Spalte()
Dim RaBereich As Range                          ' Variable für Bereich
Dim RaZelle As Range                            ' Variable für Zelle
Set RaBereich = Range("E10:E35 ")               ' Bereich der Wirksamkeit
Set RaBereich = Intersect(RaBereich, Selection)
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle.Offset(0, 1) = "Zelle B18 = aktiv "
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing                         ' Variable leeren
End Sub
Gruß Hajo
Anzeige
AW: Hilfe beim Anpassen eines Makros
04.03.2017 19:23:13
Alfred.Bauer
@Hajo: Danke, funktioniert.
Fred
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige