Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

FormulaLocal Problem!!

Forumthread: FormulaLocal Problem!!

FormulaLocal Problem!!
21.11.2014 02:52:28
Les
Hallo forum :)
Hab in Zelle B23 ein wert, der sich je nach Artikel ändert!
Der Kode ganz unten sorgt für die Zellveränderung, sobald das wert der Zelle "koffer" ist. Bis dahin alles ok.
Nun wollte ich in eine von die geänderte Zellen ein Formel schreiben.
Es sollte so aussehen:
ThisWorkbook.Sheets("TB1").Range("O30").FormulaLocal = "=SVERWEIS((SVERWEIS(A28;A3: _
L22;2;FALSCH));'Mini Datenbank'!B:BP;64;0)"
Dies Formel funzt schon wo anders aber hier nicht!
Es fängt dann Minuten lang ein schreiben und löschen Aktion, als ob die untere Kode bis "else" sich in eine schleife befindet und in eine Sekunde 10 mal von vorne anfängt!
Hat jemand ein Idee wie ich die Formel problemlos in die Zelle schreiben lassen kann.
Danke

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim kuku As String
kuku = ThisWorkbook.Sheets("TB1").Range("B23").Value
If kuku  "koffer" Then
ThisWorkbook.Sheets("TB1").Range("M30:P30").MergeCells = False
ThisWorkbook.Sheets("TB1").Range("M30:N30").MergeCells = True
ThisWorkbook.Sheets("TB1").Range("M32:P32").MergeCells = False
ThisWorkbook.Sheets("TB1").Range("M32:N32").MergeCells = True
ThisWorkbook.Sheets("TB1").Range("O30:Q32").MergeCells = True
ThisWorkbook.Sheets("TB1").Range("O30").Font.Size = 45
ThisWorkbook.Sheets("TB1").Range("J28:Q68").Interior.ThemeColor = xlThemeColorDark1
ThisWorkbook.Sheets("TB1").Range("O30").FormulaLocal = "=SVERWEIS((SVERWEIS(A28;A3: _
L22;2;FALSCH));'Mini Datenbank'!B:BP;64;0)"
Else
ThisWorkbook.Sheets("Etiketler").Range("O30:Q32").MergeCells = False
End If
End Sub

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Event ausschalten
21.11.2014 07:56:51
hary
Moin
Bei jedem Eintrag wird der Code neu gestartet.
So 
Application.EnableEvents = False
'dein Code
Application.EnableEvents = True

kannst du das ausschalten.
gruss hhary

AW: Event ausschalten
21.11.2014 09:33:40
Les
Danke hary,
hat geklappt :)
Anzeige

Forumthreads zu verwandten Themen

Worksheet_Change Ereignis erweitern
Fritz_W

Hallo VBA-Experten,
in einem Tabellenmodul befindet sich nachstehender Code der das Makro1 startet, wenn sich in der Spalte A ein Wert ändert.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1, 1).Column = 1 And Target(1, 1).Row > 1 Then Makro1
In der gleichen...
22.03.2007 18:27:00
Thread-ID: 856814
6 Beiträge
On Worksheet Change - simulieren?!
Andreas

Hallo Herber Freunde,
ich hänge nun an einem Problem fest, welches mich schon so manches Mal beschäftigte. Ich habe auf einem Blatt im VBA Editor für das Event "On Worksheet Change" einige Codes hinterlegt. Wenn ich die Verknüpfung der Datei ändere, habe ich manchmal den Eindruck, daß dadu...
24.06.2008 11:20:00
Thread-ID: 988210
2 Beiträge
Fehler 13 bei Ausführen von Worksheet_Change
Andreas
Hallo werte Forummitglieder!

Als blutiger Anfänger in VBA habe ich mich mit einigen Web Tipps daran getraut, in VBA vordefinierte Filter für eine recht umfangreiche Liste zu erstellen. Um zwischen den diversen Filtereinstellungen auszuwählen, arbeite ich mit der Funktion "Datenüberprüfung",...
22.08.2025 17:43:28
Thread-ID: 2017639
5 Beiträge
Leere Zeilen, Intersect-Ereignis
Filikos
Hallo an die VBA-Spezialistinnen und Spezialisten
Nach stundenlangem Error and Trail bitte ich euch um Support. Grundsätzlich funktioniert mein Code. Eine ListObject-Tabelle fragt die Werte aus einer Pivot-Tabelle ab. Es gibt 4 verschiedene Datenschnitte, wobei der Wichtigste der "TagTyp" ist. J...
07.04.2022 18:36:53
Thread-ID: 1878798
8 Beiträge
Farben aktualisieren !!!
Maphi

Bitte nochmals um dringende Hilfe!
Habe vor geraumer Zeit eine Frage ins Forum gestellt, worauf ich auch eine Antwort bekommen habe. Da ich aber nicht mehr antworten konnte (Geburt meines Sohnes), würde ich gerne jetzt zu dieser Antwort Stellung nehmen (Schriftverkehr hab ich nochmals angeh...
08.06.2006 14:22:22
Thread-ID: 771306
2 Beiträge
Anzeige
<b>Wert aus Internetseite kopieren </b>
Stephan

Hallo liebe VBA Freunde
Ich importiere einen Datenwert der sich laufend ändert aus einer Webseite. Das funktioniert auch. Dieser Wert wird immer in Zelle 52 im Worksheet eingefügt. Ich habe ein Makro erstellt, wo dieser Wert bei Änderung in Tabelle2 kopiert wird und da gibt es ein Problem.<...
21.06.2015 22:29:28
Thread-ID: 1432258
3 Beiträge
Automatisch in Zeile scrollen, bei Wertänderung
Harald

Hallo zusammen,
In Spalte A habe ich Zellen, in denen Summen aus anderen Eingaben gebildet werden. Wenn ein bestimmter Wert in einer Zelle der Spalte A erreicht wird, sollen automatisch bestimmte Zeilen eingeblendet werden und dann automatisch zu diesen Zeilen gescrollt werden.
Wie beko...
19.03.2005 13:25:42
Thread-ID: 587652
2 Beiträge
Abhängige Auswahlfelder
Max

Hallo zusammen,
ich habe ein Excel-Sheet, mit dem ich in einer Zelle einen Auswahlwert anbieten möchte in Abhängigkeit von der Auswahl in einer anderen Zelle - also anhängige Kombinationsfelder.
Dies habe ich über Gültigkeit bzw. Indirekt() auch geschafft.
Eine Schwäche ist, dass si...
19.10.2017 22:04:45
Thread-ID: 1586865
4 Beiträge
Änderung einer VBA
baude

Hi,
´da ich leider keine Ahnung von VBA-Progammierung habe, ist ein kleines Problem mit einer bestehenden Programmierung entstanden.
Die VBA, die Ihr unten sehen könnt, bewirkt, das die aktelle Zeit und das Datum bei dem Eintrag in eine bestimmte Zelle automatisch in die Zelle daneben ein...
07.02.2003 16:51:34
Thread-ID: 215727
2 Beiträge
Protokollierung Ersteingabe
Ben

Guten Morgen Forum
Habe folgenden Code für die Protokollierung von Änderungen mit Datum/Zeit und User im Forum gefunden:
Private Sub Worksheet_Change(ByVal Target As Range) If ReadGlobalState = True Then Exit Sub If Target.Column > 15 Then Exit Sub If Target.Column = 1 Then Cells(Ta...
29.01.2007 10:51:02
Thread-ID: 841578
2 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum