Office: F2 und Enter Taste per VBA

Hallo Forum,

folgendes: ich habe mit Hilfe der Formeln VERKETTEN mir einen Bezug auf eine Zelle in einer externen Datei zusammengestellt (wg. variabler Dateinamen). Excel zeigt also z.B. ='G:\Verzeichnis\[Datei4711.xls]Tabelle1'!A1 in der Zelle an.

Nun kopiere ich diese Zelle und füge sie in eine andere Zelle als Wert ein. Excel zeigt dann aber leider nur diesen Bezug an und rechnet bzw. verknüpft nicht. Damit dieses geschieht, drücke ich nun F2 (Zelle bearbeiten) und anschließend ENTER und dann klappt es!

Meine Frage nun: wie kann ich in VBA das, also die Taste F2 und ENTER drücken in einer Zelle, simulieren? Hat jemand einen Code für mich?

Irgendwo hatte ich schon einmal etwas dazu gelesen, finde es jedoch nicht mehr.

Vielen Dank für Eure Hilfe.

Schönen Gruß
Woody

:)

 

Moin, Woody,

irgendwie verstehe ich die Frage nicht, aber das soll ja vorkommen...

Folgende Situation:

A B 1 #BEZUG!   2     3 ='C:\Temp\   4 [Dateiname.xls]Tabelle1'!$A C:\TEMP\[Dateiname.xls]Tabelle1 5 ='C:\Temp\[Dateiname.xls]Tabelle1'!$A C:\TEMP\[Dateiname.xls]Tabelle1 6 [Dateiname.xls]Tabelle1'!$A   7 ='C:\Temp\[Dateiname.xls]Tabelle1'!$A Woody 4711 [/quote] Formeln der Tabelle A1 : ='G:\Verzeichnis\[Datei4711.xls]Tabelle1'!A1 B4 : =[Dateiname.xls]Tabelle1!$A A5 : =VERKETTEN(A3;A4) B5 : =[Dateiname.xls]Tabelle1!$A A7 : =VERKETTEN(A3;A6) B7 : =[Dateiname.xls]Tabelle1!$A Formeln der Tabelle A1 : =ZELLE("Dateiname"; A1) Excel Tabellen einfach im Web darstellen [/quote] Code eingefügt mit dem MOF Code Converter   OfficeUser, 10. April 2003 #2 OFFICEUSER OfficeUser Neuer User Hi jinx, danke für deine Antwort. Ich verdeutliche meine Frage besser noch einmal: Ich habe im Verzeichnis c:\test\ die Quelldatei ABC4711.xls erstellt mit dem Wert 500 in Zelle A1. Nun möchte ich in der Übersicht.xls Datei diesen Wert in Zelle B3 angezeigt bekommen. Also so sieht das aus: Nun kopieren ich Zelle D3 als Wert in B3: Wie man sieht steht die Formel drin, aber Excel rechnet / verknüpft nicht. Also markiere ich B3, drücke F2 (ändere aber nichts) und drücke sogleich ENTER und voilá: Excel hat den Wert sich gezogen! Klappt gut von Hand aber, bei vielen Dateien und erst recht bei vielen Zellen, wird es anstrengend immer F2 und ENTER zu drücken (so mancher denkt gar man spiele am PC). Also: kann ich die Eingabe von F2 und ENTER automatisieren. Dein Makro auf die Zelle angewandt, funktionierte so nicht. Ach ja: WICHTIG: die Formel muss erhalten bleiben, d.h. eine Zahlenwertekopie kann ich am Ende des Makros nicht gebrauchen! Geht das? Ich weiß, das finale Makro wird schon etwas größer sein (und ich werde auch selber versuchen es zu schreiben), aber der Kerncode den benötige ich erst überhaupt einmal. Am Ende möchte ich am liebsten einen individuell markierten Bereich per Makro bearbeiten lassen. Schönen Gruß und ich hoffe man versteht jetzt mein Problem. Woody PS: genrell ist mir klar, das sich nicht jedem der Sinn gleich erschließt. Es wäre aber eine schöne Art sich auf diese Weise hundertfach variable Verküpfungen auf externe Dateien zu erstellen ohne von Hand z.B. immer die Dateinummer ändern zu müssen.   OfficeUser, 10. April 2003 #3 JINX jinx F2 und Enter Taste per VBA Moin, Woody, ich steh auf dem Schlauch, denn das von mir präsentierte Makro macht doch das, was Du möchtest - nur dass die Ausgangszelle dafür A7 war und in A8 geschrieben wurde. IMHO muss bei Dir der Auslöser auf D3 gesetzt werden und das Offset(0, -2) lauten ...   jinx, 10. April 2003 #4 USER User Man könnte in der VERKETTEN Formel auch den Dateiverweis mittels der Formel INDIREKT erstellen, was ein F2 und ENTER erübrigt. Das hat aber den entscheidenen Nachteil, das die entsprechenden Quelldateien geöffnet sein müssen. Das kann ich im Moment aber nicht gebrauchen. Woody   User, 10. April 2003 #5 USER User Hi jiinx, ich check das noch einmal. ich melde mich. Woody   User, 10. April 2003 #6 USER User Hi jinx, sorry, das ich nochmal schreiben muss, aber ich stehe jetzt auch auf dem Schlauch. Ich habe jetzt mal deinen Code in ein Makro zur Bearbeitung der Spalte B eingefasst: PHP:          Sub ZellenAktivieren() ''  Variablendeklaration Dim iCounter, i, N As Integer '   Bildschirmaktualisierung ausschalten 'Application.ScreenUpdating = False   'z.Zt deaktiviert '   Letzte nichtleere Zelle in Spalte B feststellen N = Cells(Cells.Rows.Count, 2).End(xlUp).Row '   Schleife über alle Zeilen For i = 1 To N 'ActiveCell = ActiveCell.Value   '<--- Woody Testzeile ActiveCell.offset(0, 1).Value = ActiveCell.Value   '<--- Vorschlag jinx iCounter = iCounter + 1 Next i '   Signal Beep '   Fertigmeldung MsgBox "Fertig - es wurden " & iCounter & " Zellen bearbeitet.", vbInformation End Sub   User, 10. April 2003 #7 OFFICEUSER OfficeUser Neuer User F2 und Enter Taste per VBA Moin, Woody, Du solltest noch einmal für die Variablendefinitionen in das Codebook sehen... Nun habe ich immer die eine unliebsame Datei genommen, daher ist es nicht so abwechslungsreich: Tabelle2   A B C 1 #BEZUG!   ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 2     ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 3 ='C:\Temp\   ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 4 [Dateiname.xls]Tabelle1'!$A   ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 5 ='C:\Temp\[Dateiname.xls]Tabelle1'!$A   ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 6 [Dateiname.xls]Tabelle1'!$A   ='C:\Temp\[Dateiname.xls]Tabelle1'!$A 7 ='C:\Temp\[Dateiname.xls]Tabelle1'!$A   ='C&;#58;\Temp\[Dateiname.xls]Tabelle1'!$A 8 [Dateiname.xls]Tabelle1'!$A     9 [Dateiname.xls]Tabelle1'!$A     10 [Dateiname.xls]Tabelle1'!$A     11 [Dateiname.xls]Tabelle1'!$A     12 [Dateiname.xls]Tabelle1'!$A     13 [Dateiname.xls]Tabelle1'!$A     14 [Dateiname.xls]Tabelle1'!$A     [/quote] Formeln der Tabelle A1 : ='G:\Verzeichnis\[Datei4711.xls]Tabelle1'!A1 C1 : =VERKETTEN($A;$A8) C2 : =VERKETTEN($A;$A9) C3 : =VERKETTEN($A;$A10) C4 : =VERKETTEN($A;$A11) A5 : =VERKETTEN(A3;A4) C5 : =VERKETTEN($A;$A12) C6 : =VERKETTEN($A;$A13) A7 : =VERKETTEN(A3;A6) C7 : =VERKETTEN($A;$A14) Tabelle3 Formeln der Tabelle A1 : ='G:\Verzeichnis\[Datei4711.xls]Tabelle1'!A1 B1 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C1 : =VERKETTEN($A;$A8) B2 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C2 : =VERKETTEN($A;$A9) B3 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C3 : =VERKETTEN($A;$A10) B4 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C4 : =VERKETTEN($A;$A11) A5 : =VERKETTEN(A3;A4) B5 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C5 : =VERKETTEN($A;$A12) B6 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C6 : =VERKETTEN($A;$A13) A7 : =VERKETTEN(A3;A6) B7 : ='C:\TEMP\[Dateiname.xls]Tabelle1'!$A C7 : =VERKETTEN($A;$A14) Excel Tabellen einfach im Web darstellen [/quote] Code eingefügt mit dem MOF Code Converter   OfficeUser, 10. April 2003 #8 USER User Super jinx, jetzt verstehe ich erst deine Vorgehensweise. Wozu die Sache schwieriger machen als sie ist. Manchmal ist die Lösung einfacher als man denkt. Jetzt muss ich dem Makro "nur" noch beibringen, das es mich nach einem selbst zu makierenden Bereich (die erstellten Formeln) abfragt und dann abfragt wohin er (z.B. oberste linke Zelle) die Routine anwenden soll. Ansonsten wird die Verwendung des Makros zu inflexibel. Ich probier mal mein Glück, ansonsten muss ich wohl ein neues Thema hier im Forum eröffnen. *wink.gif* Danke noch einmal und schönen Gruß *five Woody   User, 10. April 2003 #9 JINX jinx Moin, Woody, dann sieh Dir doch z.B. Suchen und Ersetzen an - da wird der Bereich per Inputbox abgefragt. Und das kann man auch mit zwei Bereiche nacheinander machen...   jinx, 10. April 2003 #10 USER User Klasse jinx, *top vielen Dank für den Tipp. Ich konnte es auch gleich umsetzten. Gruß Woody Für alle die es interessiert hier meine Umsetzung dank der Vorlage: Code:   User, 10. April 2003 #11 USER User Hallo zusammen, ein ähnlicher Thread wie dieser, habe ich im Forum schon mal wieder gesehen die letzten Wochen. Nun habe ich mit Hilfe von jinx und diesem Fundort hier dieses kleine Makro erstellt, welches die gleiche Aufgabe ganz prima erfüllt: Code:   User, 26. November 2003 #12 USER User F2 und Enter Taste per VBA ******************************************************* thomas.Sc schrieb per Persönlicher Nachricht: Hallo Woddy, Du hattest am 10.04.03 das Problem geschildert mit F2 und Enter Taste per VBA. Kannst Du mir evt. eine Lauffähige Variante in Excel zukommen lassen? Ich habe es vergeblich versucht, bekomme es aber leider nicht hin. Gruss thomas.sc ******************************************************* Hallo thomas, bitte keine persönliche Nachrichten. Probleme sollen im Forum besprochen werden. Vielleicht hat mal jemand anderes auch Dein Problem und der würde dann keine Lösung hier finden - ich erweitere daher hier diesen alten Thread. Also, ich habe eben das Makro oben noch einmal ausprobiert und es funktioniert auch in meinen neuen Excel XP. Es funktionierte allerdings nicht bei geöffneten VB Editor(!) - kommt Deine Frage daher? Ob das schon unter Excel 97 so war - kann ich nicht mehr überprüfen. Ich weiß aber nun schon von einer Handvoll User hier, die es erfolgreich einsetzten. Wenn es doch noch Probleme gibt, bitte noch einmal melden mit genauer Beschreibung.   User, 21. Oktober 2004 #13 THOMAS.SC thomas.Sc Hallo Woody, sorry fuer die PrivatMail, ich habe es jetzt auch hingebracht, mein Problem waren die Dateinamen, ich hatte die Dateinamen verwechselt. Gruss, und schonen Sonntag noch Thomas   thomas.Sc, 23. Oktober 2004 #14 (Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.) Ignorierte Inhalte anzeigen Thema: F2 und Enter Taste per VBA Die Seite wird geladen... F2 und Enter Taste per VBA - Similar Threads - Enter Taste VBA VBA - Springen in nächste ungeschützte Zelle ohne TAB/Enter in Microsoft Excel Hilfe VBA - Springen in nächste ungeschützte Zelle ohne TAB/Enter: Hallo. Ich habe folgendes vor: Auf meinem mit Blattschutz geschütztem Arbeitsblatt habe ich geschützte und ungeschützte Zellen in unterschiedlicher Anordnung. Befüllt werden die ungeschützten... Die Aktion von F2 und Enter als Makro ohne Sendkeys in Microsoft Excel Hilfe Die Aktion von F2 und Enter als Makro ohne Sendkeys: Hallo Community, ich habe das Problem, dass in Zeitpunkte mit Datum und Zeit inkl. Millisekunden habe und mit einer anderen Datenquelle vergleichen muss. Durch das Aufbereiten der Daten... Makro durch die Taste Eingabe/Return/Enter starten in Microsoft Excel Hilfe Makro durch die Taste Eingabe/Return/Enter starten: Hallo zusammen, ich habe eine Suchfunktion programmiert und möchte dieser gerne weiter vereinfachen. Bisher sieht es folgendermaßen aus: Textbox --> Button (aber einfach nur eine Form wo ein... mit Enter Userform schließen in Microsoft Excel Hilfe mit Enter Userform schließen: Guten Morgen *Smilie Ich habe eine Frage bezüglich vba. Ich habe eine Userform mit zwei TextBoxen und drei Buttons (Übernehmen, Leeren und Schließen) erstellt. Mit Enter komm ich von einer... Textbox: Bei ENTER-Taste nächste Zeile mit "- " beginnen in Microsoft Excel Hilfe Textbox: Bei ENTER-Taste nächste Zeile mit "- " beginnen: Hallo ich habe ein kleines Problem mit folgendem Code einer Textbox: Code: Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn... bei enter-taste ereignis (im Formular) in Microsoft Access Hilfe bei enter-taste ereignis (im Formular): *confused.gif* *confused.gif* *confused.gif* *confused.gif* *confused.gif* *confused.gif* Hallo, ich brauch dringend Hilfe, ich such schon den ganzen tag nach der Lösung für folgendes... excel reagiert nicht auf enter-taste in Microsoft Excel Hilfe excel reagiert nicht auf enter-taste: hallo, sehr wahrscheinlich ein nicht nennenswertes problem, aber ich kann bei excel (2002) auf XP die entertaste nicht benutzen, das gilt für beide tasten, mit denen man normalerweise in die... Benutzername oder E-Mail-Adresse: Besitzt du schon ein Benutzerkonto? Nein, erstelle jetzt ein Benutzerkonto. Ja, mein Passwort ist: Hast du dein Passwort vergessen? Angemeldet bleiben Anmelden oder registrieren Suche Nur die Titel durchsuchen Erstellt von: Trenne Benutzernamen durch Kommata. Neuer als: Nur dieses Thema durchsuchen Nur dieses Forum durchsuchen Die Ergebnisse als Themen anzeigen Nützliche Suchen Themen mit aktuellen Beiträgen Mehr Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten. Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Akzeptieren Weitere Informationen... Information ausblenden