Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.01.2025 15:09:23
Probleme beim Speichern eines Tabellenbalttes mit SaveAs
15.01.2025 13:43:54
Daten in zwei Registern miteinander vergleichen
15.01.2025 13:23:32
Einzelne Buchstaben einer Zelle per VBA einfärben
15.01.2025 11:46:48
Hyperlink in Userform aktualisiern
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

vor Ausführung einer UDF Zwischenspeicher "retten"

Kategorie
Benutzerdefinierte Funktion
Tags
#benutzerdefinierte funktionen #vba-codes #zwischenspeicher
Relevante Fragen
Anzeige
vor Ausführung einer UDF Zwischenspeicher "retten"
25.06.2008 15:26:00
Peter
Guten Tag
Ich habe folgendes Problem:
Ich kopiere in einer Tabelle eine UDF in eine andere Zelle. Diese wird berechnet und gleichzeitig wir die Zwischenspeicher gelöscht.
Ist es möglich, dass vor Ausführung der eigentlichen Funktion zuerst der Zwischenspeicher einer Variable übergeben wird und am Ende die Variable wieder dem Zwischenspeicher zugewiesen wird? Wie müsste das geschehen`
Danke für eine Antwort.
Gruss, Peter

Public Function abc(defA As Variant, Periode As String, Positiv As Boolean) As Variant
Dim Zwischenspeicher as ?
Zwischenspeicher = ?
? = Zwischenspeicher
End Function


Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vor Ausführung einer UDF Zwischenspeicher "retten"
26.06.2008 00:46:09
Tino
Hallo,
hier mal ein kleines Beispiel um in die Zwischenablage zu schreiben und auch wieder zu lesen.
'erordert Verweis: Microsoft Forms 2.0 Object Library!!!!

Sub TestZW()
Dim MyData As New DataObject
Dim MeTXT$
'Info: ZW = Zwischenablage
With MyData
.Clear 'lösche ZW
'schreibe in ZW
.SetText Range("A1")
MyData.PutInClipboard
'Lese von ZW
.GetFromClipboard
MeTXT = .GetText(1)
End With
End Sub


Gruß Tino

http://www.VBA-Excel.de


Anzeige
AW: vor Ausführung einer UDF Zwischenspeicher "retten"
26.06.2008 09:14:31
Peter
Hallo Tino
Vielen Dank für deine Antwort. Mir ist noch nicht ganz klar, wie ich deinen Code in meine Funktion integrieren kann. Kannst du mir da weiterhelfen?
Ich habe eine vereinfachte Beispielmappe hochgeladen. Ich möchte gerne den Bereich B3:C3 nach B5:C5 und dann nach B7:C7 und dann nach B9:C9 kopieren. Je nach Umgebung (via Citrix oder lokal) wird mir der Zwischenspeicher nach dem Kopieren der Formeln gelöscht (Citrix) resp. nicht gelöscht (zu dieser "Ungleichbehandlung" starte ich einen separten Eintrag um nicht zwei Probleme im gleichen Thread zu schleppen).
Oder muss ich deinen Code in in den untenstehenden Ereigniscode ( </p><pre>Private Sub Workbook_SheetChange )integrieren, weil ja dieser letztendlich das Zwischenergebnis löscht?
Vielen Dank, Peter
https://www.herber.de/bbs/user/53365.xls
Option Explicit
Dim bUndo As Boolean
</p><pre>Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.Calculate
If Sh.Name <> ActiveSheet.Name Then
With Application
.EnableEvents = False
If Not bUndo Then .Undo
.EnableEvents = True
End With
bUndo = True
Exit Sub
End If
bUndo = False
End Sub</pre><p>

Anzeige
AW: vor Ausführung einer UDF Zwischenspeicher "retten"
26.06.2008 10:14:00
Tino
Hallo,
irgendwie verstehe ich es nicht, habe eben sembliche Varianten durchgetestet.
Bereich B3:C3 kopiert und glaube 20mal irgendwo bzw. auch in Deine benannten Bereiche eingefügt.
Kannst Du mir kurz nochmal schildern, wann diese Office Zwischenablage bei welcher Aktion gelöscht wird und dies aber nicht machen soll oder darf.
Weil die Win Zwischenablage nicht gerade komfortabel ist und zum Bsp. Zellformatierungen nicht
übernehmen kann, würde ich erst mal nach einer Alternative suchen.
Gruß Tino

www.VBA-Excel.de


Anzeige
AW: vor Ausführung einer UDF Zwischenspeicher "retten"
26.06.2008 10:41:00
Peter
Hallo Tino
Auf meiner lokalen Maschine funktioniert das Kopieren wunderbar. Wenn die Datei auf dem Server gespeichert ist geht die Zwischenablage verloren, wenn der Code Private Sub Workbook_SheetChange nicht deaktiviert ist. Dieses Problem habe ich in einem neuen Beitrag beschrieben:
https://www.herber.de/forum/messages/988888.html
Leider habe ich keine Ahnung, weshalb die gleiche Datei in diesen unterschiedlichen Umgebungen so unterschiedliche Ergebnisse gibt.
Gruss, Peter

Anzeige
AW: vor Ausführung einer UDF Zwischenspeicher "retten"
26.06.2008 11:21:25
Tino
Hallo,
also habe nochmal etwas getestet, der Office Zwischenspeicher wird zum Beispiel durch doppelklick in eine Zelle geleert.
Aber dies hat nichts mit Deinem SheetChange Ereignis zu tun, also daran kann es nicht liegen!
Diesen doppelklick kann man aber abfangen, zum Bsp. wenn der doppelklick außerhalb von der Spalte B bis D ausgeführt wird, so wird dieser unterbunden.
Als Code ins Tabellenblatt:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sbereich As Range
If Intersect(Target, Range("B:D")) Is Nothing Then
Cancel = True
End If
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Häufigkeitslücken
Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...
11.08.2008 10:29:00
Thread-ID: 1000742
2 Beiträge
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Anzeige
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzeige
"Workbook"-Zugriff auf AddIn
Stefan

Hallo,
wie kann man auf eine Arbeitsmappe, z.B. auf Worksheets der Mappe zugreifen, wenn diese als AddIn gespeichert und geöffnet wird (egal ob installiert oder nicht) ?
Wo finde ich die geöffnete AddIn-Mappe, nicht in in der Workbooks-Auflistung, und wenn das AddIn nicht installiert is...
12.08.2008 21:23:00
Thread-ID: 1001316
6 Beiträge
mit VBA, VBA & Button's löschen
Remo

Hy Leute,
Ich möchte mit einem Button alle Button's und VBA löschen...
Geht das?
13.08.2008 08:16:00
Thread-ID: 1001365
6 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige