Office: Makro bei Zellenänderung automatisch ausführen & verschi

Hey Leute
ich hab wieder mal ne Frage^^

hab heute erfolgreich mein erstes Makro geschrieben ;D
das makro fügt Zeilen hinzu und kopiert Formeln in die neu erstellten Zellen. Die hinzugefügte Zeilenanzahl wird von der eingetragenen Zahl bestimmt(in diesem Fall von der Zelle E7).

hier der Tabellenausschnitt:

	B	C	D	E	F	G	H
7	1 - Entenhausen Gehweg	VE8.01	110,2	3	G		lfm
8	1 - Entenhausen Gehweg	VE8.01			E	36,73333333	lfm
9	1 - Entenhausen Gehweg	VE8.01			E	36,73333333	lfm
10	1 - Entenhausen Gehweg	VE8.01			E	36,73333333	lfm

Zelle	Formel
G8	=D7/E7
G9	=D7/E7
G10	=D7/E7

und hier ein Teil des Makro:
(...)
Do While n < Range("E7")
n = n + 1
Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B7").Select
Selection.Copy
(...)
Loop
End Sub

Nun möchte ich, dass das Makro automatisch wenn z.B. die Zelle E7 auf 4 geändert wird, 4 neue Zeilen hinzugefügt werden(nachdem Enter gedrückt wurde).

Des Weiteren möchte ich mein Makro relativ programmieren, das heißt ich möchte die Zellen relativ angeben, also wenn E7 geändert wird soll eine Zeile darunter eine Zeile hinzugefügt werden(nicht explizit die Zeile angeben). Damit wäre das Verschieben des Makros überflüssig.

Ist dies irgendwie möglich?

ps: wenn das mit dem Enter nicht funktioniert, dann kann ich das auch mit einem Button oder so lösen

vielen dank

Wolfee

 

Hallo Wolfee,

benutze das Chane Ereignis unter der Tabelle.

Gruß Hajo

 

hallo hajo

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$7" Then Call Makro1
End Sub


das ist das chane ereignis, dass ich beim browsen gefunden hab.
generell hab ich ne frage: wieso funktioniert das nur mit den $ zeichen?

außerdem bräucht ich eine komplette spalte als target.Address

jedoch wenn ich "E:E" schreibe, so macht er mir gar nix wenn ich in der spalte etwas änder.


kannst du mir bitte helfen?


danke
Wolfee

 

Hallo Wolfee,

Du hast nicht geschrieben Target.Address (false,false)

If Targt.Column = 1 Then

Gruß Hajo

 

achso dankeschön =)

jetz funktionierts.

wo findet man eigentlich eine liste mit den ganzen befehlen?
hab beim googeln keine kompletten listen gefunden.

MfG Wolfee

 

Hallo Wolfee,

dazu liest man in den Foren und liest auch ein wenig in Büchern. Eine komplette Liste wirst Du nicht finden.

Gruß Hajo

 

ok schade trotzdem danke hajo

hab schon wieder ne andere frage aber stell die in nem neuen thread^^