Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gibt es einen VBA-Befehl für Eingabe (Enter)?

Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 09:12:46
Karsten
Hallo,
Gibt es einen VBA-Befehl für Eingabe (Enter)?
Ich befinde mich durch einen Makrobefehl im F2-Modus (doppelgeklickte Zelle) und möchte aber, dass die Zelle darunter aufgerufen wird. Ich lande da eben immer im F2-Modus.
Danke für eure Hilfe.
Gruß
Karsten

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 09:16:24
Andi
Hi,
solange der Bearbeitungsmodus einer Zelle aktiv ist, können keine Makros ablaufen.
Poste doch mla Deinen Code, und beschreibe etwas genauer, was passiert und was passieren soll...
Schönen Gruß,
Andi
AW: Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 09:30:12
Karsten
Hallo Andi,
wenn in B1 nicht T E R M I N E steht, sondern ein Suchwort, und ich Enter drücke wird u.s. Makro ausgelöst.

Private Sub Worksheet_Change(ByVal Target As Range)
Set n = Cells(1, 2).Find("T E R M I N E")
If n Is Nothing Then
Application.Run "finde_Inhalt_in_B"
Application.SendKeys "{F2}"
End If
End Sub


Wenn das Wort gefunden ist, mache ich einen Rechtsklick, in B1 wird wieder T E R M I N E eingetragen, und die aktive Zelle landet auf dem alten Punkt. Siehe unten. Aber, wieso komme ich erst aus dem F2-Modus heraus, wenn ich per Hand bestätige? Läßt sich da befehlsteschnisch etwas machen?


Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Dim rngOld As Range
Set rngOld = ActiveCell
Range("b1").Select
ActiveCell.FormulaR1C1 = "T E R M I N E"
rngOld.Select
Gruß
Karsten
Anzeige
AW: Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 09:39:57
D.Saster
Hallo,
was soll der Quatsch? Warum suchst du in einer Zelle?

Private Sub Worksheet_Change(ByVal Target As Range)
If cells(1,2)"T E R M I N E" then finde_inhalt_in_B
End Sub


Auf die Selecterei im 2. Code kannst du auch verzichten.


Private Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
Cancel=true
cells(1,2)="T E R M I N E"
End Sub


Gruß
Dierk

AW: Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 10:02:31
Karsten
Hallo Dierk,
danke, für das Umschreiben der Befehle. Allerdings ist mein Problem noch nicht gelößt.
Wenn ich mit immerwieder Enterdrücken über:
If Cells(1, 2) "T E R M I N E" Then finde_Inhalt_in_B
zum gewünschten Suchwort kommen will, geht das (wohlgemerkt mit meinen zur verfügungstehenden Kenntnissen) nur mit:
Application.SendKeys "{F2}"
Lasse ich das weg, wird doch nur die untendrunterliegende Zelle angesteuert. Was muß unter
rivate Sub Worksheet_BeforerightClick(ByVal Target As Range, Cancel As Boolean)
Cells(1, 2) = "T E R M I N E"
noch drunter, dass die Zelle den "Normalzustand" bekommt?
"Warum suchst du in einer Zelle?" .... den Code hat mir jemand geschrieben.
Gruß
Karsten
Anzeige
AW: Gibt es einen VBA-Befehl für Eingabe (Enter)?
03.04.2009 12:50:08
Jogy
Hi.
Mein Problem bei der Hilfe ist, dass ich überhaupt nicht verstehe, was Du denn eigentlich machen willst. Den Bearbeitungsmodus brauchst Du nur, wenn Du etwas eingeben willst, in einem Makro ist der vollkommen überflüssig.
Gruss, Jogy
Application.SendKeys "{Enter}" owT
03.04.2009 11:39:24
D.Saster
AW: Application.SendKeys "{Enter}" owT
03.04.2009 12:05:54
Karsten
Hallo D.Saster,
Danke, das war, was ich meine ... geht bloß nicht, weil Makro nicht mehr aufhört zu laufen.
Ich versuche mal mit Application.SendKeys "{escape}" was anzufangen. Obs was wird...
Gruß
Karsten
AW: Application.SendKeys "{Enter}" owT
03.04.2009 12:37:06
D.Saster
Hallo,

weil Makro nicht mehr aufhört zu laufen


war mir klar.
Gruß
Dierk

Anzeige

169 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
Anzeige
Kleines VBA Code Problem
maxx_1985

Hi Leute
Beim Ausfuehren dieses Codes dauert es eine Ewigkeit bis Excel fertig ist. Und es ruckelt ebenso ne Ewigkeit. Wie kann man das anders loesen? hat jemand ne idee?
danke
Sub Step2() 'delete zeros Dim i As Long For i = Cells(Rows.Count, 9).End(xlUp).Row To 1 Step -1 If Cells...
26.11.2008 20:42:00
Thread-ID: 1028150
8 Beiträge
Brainfuck Code umsetzen in Vba-Code
Reinhard

Hallo Wissende, Brainfuck Code sieht so aus: >++++++++++[-]++++++[-].>++[-].>+++[-]+++[-]+++[-].>++[-].>++++[-]++++ usw. Wobei nur diese acht Regeln gelten: > Inkrementiert den Zellzeiger, quasi Activecell.offset(0,1) http://de.wikipedia.org/wiki/Brainfuck _ In dieser Mapp...
25.12.2008 18:17:00
Thread-ID: 1035219
7 Beiträge
Kleines VBA Code Problem
maxx_1985

Hi
Warum loescht mir Excel hier nur die ersten zwei Zeilen? Hat jemand eine Idee?
Danke!
Sub step9() Dim i, lz As Long lz = Cells(Rows.Count, 6).End(xlUp).Row For i = 1 To lz If Cells(i, 6) = "" Then Exit For End If Next i Range("A2", Cells(i - 1, 43)).Select Selection.SpecialCell...
16.01.2009 19:35:01
Thread-ID: 1040733
3 Beiträge
VBA Code mit VBA in Tabelle kopieren - Fehler?!
Andreas

Hallo Herber Fans,
ich habe mir heute aus der Recherche eine Möglichkeit rausgesucht, einen Code über VBA in ein anderes VBA Worksheet zu kopieren. Das dies in VBA überhaupt geht ist ja schon genial. Es soll ein Code in das VBA Worksheet des activeworkbooks kopiert werden.
Der Code dafü...
11.02.2009 15:56:00
Thread-ID: 1049657
3 Beiträge
kleiner VBA Code zusammengewürfelt :-(
Drusilla

Hallo zusammen
Habe mir einen Code selber zusammengemixt aus verschiedenen Quellen. Funktioniert aber nicht, weil ich die ifs und nexts und das ganze Zeugs wohl nicht richtig gesetzt habe. Könnte da jemand kurz drüber schauen und sagen, was denn noch fehlt, bzw. an falscher Stelle steht? Al...
05.05.2009 11:23:16
Thread-ID: 1073022
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
4
12
5
2
7
6
2
2
7
4
2
4
3
6
4
7
1
9
3
2
11
2
5
13