Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Cursorposition in VBA verwenden

Cursorposition in VBA verwenden
18.05.2006 14:49:09
Buttelmann,
Hallo zusammen,
ich muss per Makro an eine Stelle in der aktiven ein Sonderzeichen einfügen.
Wie ich ein Arbeitsblatt, eine Zelle, Zeile oder Zellbereich wähle weiß ich... allerdings finde ich nirgendwo Informationen darüber ob ich die Position des Cursors in der aktiven Zelle benutzen kann.
Es geht darum eine Zelle, in der bereits Text steht, per Doppelklick auszuwählen, in der Bearbeitungsleiste die entsprechende Stelle im Text zu wählen und dann dort per Knopfdruck ein Sonderzeichen einzufügen.
Mittlerweile denke ich allerdings dass das technisch gar nicht machbar ist, da es auch nicht jedes Mal die zB 5. Stelle ist, sondern wirklich davon abhängig sein muss wo ich den Cursor platziere.
Kann mir jemand meine Vermutung bestätigen und/oder hat einen Vorschlag wie ich das anders lösen kann?
Vielen Dank schon mal!
LG Britta

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Cursorposition in VBA verwenden
18.05.2006 15:19:22
HG
Hallo,
wenn Du die Zelle kennst, dann kennst Du auch den Text in der Zelle. Die Stelle an der Du einfügen willst, kannst Du dann bestimmt mit Textfunktionen wie Left Right MID oder ähnliche Funktionen errechnen.
Versuche also die Position im Text auf diese Weise zu errechnen.
AW: Cursorposition in VBA verwenden
19.05.2006 07:32:17
Britta
Hallo,
vielen Dank für die Antwort, leider muss die Stelle in der Zelle total flexibel sein, da es nicht immer die gleiche Zelle und auch nicht immer die gleiche Stelle im Text ist. Deswegen passen auch Left, Right oder MID nicht.
AW: Cursorposition in VBA verwenden
18.05.2006 15:37:33
Andi
Hi,
sobald Du im Eingabe-Modus einer Zelle bist, können keine Makros mehr ausgeführt werden. Einzige Möglichkeit wäre, das Sonderzeichen in die Zwischenablage zu kopieren, bevor in den Eingabe-Modus gewchselt wird. Per Makro ginge das so (Code ins Modul der Tabelle):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As DataObject
Set i = New DataObject
i.settext "©"
i.putinclipboard
End Sub

Der Anwender muss dann nur in die Zelle doppelklicken, den Cursor positionieren und kann dann mit Strg+V das Sonderzeichen einfügen.
Damit das ganze funkioniert, muss im VB-Editor unter Extras, Verweise ein Häkchen bei 'Microsoft Forms 2.0 Object Library' gesetzt sein.
Schwachpunkt bei der Lösung ist allerdings, dass nach einem Doppelklick nichts anderes mehr über Copy & paste eingefügt werden kann.
Schönen Gruß,
Andi
Anzeige
AW: Cursorposition in VBA verwenden
19.05.2006 07:35:34
Britta
Hallo,
vielen Dank für die Info mit dem Eingabe Modus. Mit der Abhängigkeit vom Doppelklick ist wirklich nicht so sauber, besonders da ich verschiedene Sonderzeichen einfügen muss.
Aber ich werde es wohl auf jeden Fall irgendwie über die Zwischenablage probieren müssen, ansonsten haben se halt Pech gehabt ;-)
vielen Dank für den Ratschlag
Gruß Britta

299 Forumthreads zu ähnlichen Themen

@ Tino - brauche Hilfe bei einer deiner Formeln
oblivion

Hallo, ich habe eine Frage an dich. Du hast mir die Formel erstellt in A16.
Ich habe die Datei mal hochgeladen und in Blatt "Beispiel" Spalte A etwas hereingeschrieben.
Danke für deine Hilfe.
Gruß Oblivion
https://www.herber.de/bbs/user/54685.zip
17.08.2008 21:06:00
Thread-ID: 1002466
4 Beiträge
Anzeige
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Formel in VBA
steffen

Hallo Leuts,
ich bekomme meine Formel, die in ein Tabellenblatt eingetragen werden soll, einfach nich hin:
ActiveSheet.Range("A4").Formula = "=Büromaterial!R?x?C?"
Wie stelle ich es jetzt an, dass R mit einer Zählvariablen x verbunden wird, sozusagen als Zähler, der bei jedem Durch...
17.09.2008 11:35:00
Thread-ID: 1010306
4 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Formel in VBA
balta

Hallo,
habe ein Problem mit meinem Code
Sub Testi() Dim lngZeile As Long For lngZeile = 2 To 100 Worksheets("Daten").Cells(lngZeile, 6).Formula = "=WENN($M2" & Chr(34) & ";ANZAHL2($M$ _ 2:$M2);"")" Next lngZeile End Sub
das Code soll Indexzahl ausgeben, also wenn Zelle M...
28.09.2008 00:15:02
Thread-ID: 1012872
5 Beiträge
Formel in VBA
steffen

Hallo,
ich komme mal wieder nicht mit meiner Formel in VBA zurecht.
Activesheet.Range("A4").Formula = "=INDIRECT(""Tabelle1!B"" &" & x + 1 & ")"; Formel gehört zu einem anderen Tabellenblatt
Das Problem besteht im Namen "Tabelle1". Da dieser Blattname steht's anders laut...
06.10.2008 11:46:00
Thread-ID: 1014389
9 Beiträge
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
Formel einfügen VBA
sonja

Hallo,
ich habe wieder einmal eine Frage und hoffe Ihr könnt mir wie immer weiterhelfen.
Folgende Formel wird per VBA in Spalte F2 eingefügt.
ThisWorkbook.Sheets("Tabelle1").Range("F2").FormulaR1C1 = "=IF(RC1,YEAR(TODAY())-RC[-1],"""")"
Nun möchte ich das diese Formel automatisc...
05.11.2008 11:31:01
Thread-ID: 1021811
5 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
3
5
4
3
2
8
4
8
12
4
2
1
6
1
5
8
4
4
6
24
9
6
5
3
14