VBA-Hilfe

[zer00]

Hi @ll

Ich möchte da was in Excel per VBS einbisschen automatisieren, es soll volgendes per Script gelöst werden.

So bald die Reihe (z.B. F) den Fokus erhält, soll der Focus in die nächste Zeile und zwei Reihen nach links rücken.

Wie binde ich diese Funktion nun in mein Sheet ein?

ich hab da mal was versucht.


</font><blockquote><pre><font face="verdana,arial,helvetica"size="1"class="sf">C ode</font><hr>Sub godown()
If (Tabelle1.Columns.Activate = F) Then
Tabelle1.Rows = Tabelle1.Rows + 1
Tabelle1.Columns = C
End If


End Sub<hr></blockquote><font face="verdana, arial, helvetica" size="2"class="nf"><br />

Danke im voraus für die Hilfe

grz zer00

[marcel_2002ch]

Nun ich verstehe nicht ganz was du willst, aber ich denke mit

[F1].Offset(Zeile,Spalte) Methode bist du gut bedient!

schau in der VBA Hilfe nach!


Gruss

Marcel

[zer00]

Original geschrieben von marcel_2002ch
Nun ich verstehe nicht ganz was du willst, aber ich denke mit

[F1].Offset(Zeile,Spalte) Methode bist du gut bedient!

schau in der VBA Hilfe nach!


Gruss

Marcel

Ich möchte nur, das der Cellen-Fokus sobald ich in der Spalte F angekommen bin zur nöchsten Zeile und zwei Spalten nach links verschoben wird.

grz zer00

[marcel_2002ch]

Ok, hier ein Beispiel

Sub MoveFocus()

Sheets(1).Activate
Range("F1").Select

If ActiveCell.Column = 6 Then

ActiveCell.Offset(1, -2).Activate

End If

End Sub

1) Tabelle aktivieren
2) Cursor auf F1 setzen
3)Wenn die aktive Zelle in der Spalte F (hier als Nr.6) Spalte A wäre 1
4) Offset 1 Zeile runter 2 Spalten nach links

OK?

[zer00]

Danke marcel, ich versuchs gleich mal.

grz zer00