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
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen Wert zuweisen

Zellen Wert zuweisen
11.01.2016 17:23:16
Olli
Hallo Zusammen
Benötige eine kleine Unterstützung mit folgendem Makro:
Möchte gerne bei einer Änderung der Zelle über 

Private Sub Worksheet_Change(ByVal Target As Range) zwei weitere Zellen die Zahl 0 zuordnen ( _
siehe unten)
Bekomme immer wieder einen Laufzeitfehler "Nicht genügend Speicherplatz"
Wenn ich das Makro in einem Modul reinkopiere und ausführe klappt es?
Sub Wert_übergeben
If ActiveSheet.Range("A6") = "Test" Then
ActiveSheet.Range("C22,C23").Value = "0"
ActiveSheet.Range("C15").Value = ""
End If
End Sub
Kann mir einer sagen, wo da der Fehler ist?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen Wert zuweisen
11.01.2016 17:31:48
Sepp
Hallo Olli,
ist doch logisch, Excel kommt dadurch in eine Endlosschleife, weil die Änderung einer Zelle die nächste Änderung auslöst.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Goto Errorhandler
Application.EnableEvents = False
If Target.Address(0, 0) = "A6" Then
If Target = "Test" Then
Range("C22,C23").Value = "0"
Range("C15").Value = ""
End If
End If
Errorhandler:
Application.EnableEvents = True
End Sub
Gruß Sepp

Anzeige
AW: Zellen Wert zuweisen
12.01.2016 12:04:36
Olli
Hallo Sepp
Danke für die schnelle Antwort!
Quellcode funktioniert!
Habe leider noch das Problem, das die Zelle A6 ein Dropdown enthält mit mehreren Wörtern wie Test1, Test2,Test3 usw...
Nach Anwahl der Wörter passiert leider nichts. Ziel ist das bei allen Wörtern mit Test am Anfang die Aktion durchgeführt wird.
Hatte hierzu in den Quellcode die left Funktion mit eingefügt, was aber leider nicht funktioniert.
siehe
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Errorhandler
Application.EnableEvents = False
If Target.Address(0, 0) = "A6" Then
If Target = Left("Test", 4) Then
Range("C22,C23").Value = "0"
Range("C15").Value = ""
End If
End If
Errorhandler:
Application.EnableEvents = True
End Sub

Anzeige
AW: Zellen Wert zuweisen
12.01.2016 12:52:52
Sepp
Hallo Olli,
If Target = Like "Test*" Then
Gruß Sepp

AW: Zellen Wert zuweisen
12.01.2016 13:25:58
Olli
Hallo Sepp
Bekomme bei dem Wort Like immer einen Kompilierungsfehler

AW: Zellen Wert zuweisen
12.01.2016 13:36:14
Sepp
Hallo Olli,
sorry, falsch eingetippt!
If Target Like "Test*" Then
Gruß Sepp

Anzeige
AW: Zellen Wert zuweisen
12.01.2016 13:52:00
Olli
Jepp funktioniert
Thanks a lot!!!!

266 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Einen bestimmten Namen definieren u. Wert zuweisen
Peter

Guten Abend
In meinem Code verwende ich in einem Code den Namen "Anzahl", dem in der Regel mittels "Namen definieren" eine Zahl zugewiesen wurde.
Es kann vorkommen, dass dies in einzelnen Workbooks nicht der Fall ist. In diesem Fall möchte ich diesen Namen kreieren und den Wert 100 zuwe...
27.10.2008 16:47:13
Thread-ID: 1019675
4 Beiträge
Zahlen rechtsbündig in einer Textbox
Helmut

Hallo,
ich habe einen Textstring mit Zahlen die ich rechstbündig anordnnen will.
Text= "Beisiel: " & Format (Zahl,"#,###")
Wie wird die Zahl im Formatbefehl z.B rechtsbündig bei max 6 Stellen ausgegeben?
Gruß
Helmut
04.11.2008 11:57:00
Thread-ID: 1021556
2 Beiträge
Anzeige
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Zeichenanzahl einer Textbox festlegen
Heinz

Hallo Leute
Habe eine Frage zum setzen einer Zeichenanzahl in einer Textbox.
Ich habe eine UF mit Textboxen, wo max.31 Zeichen enthalten sein dürfen.
Wie kann man diese bitte beschränken ?
Danke
Heinz
25.12.2008 21:05:00
Thread-ID: 1035243
5 Beiträge
Per Makro zu einer Zelle springen
TomTom

Hi,
ich habe ein Formular , auf dem sitzt eine textbox. Duch irgend ein Vorgang wird eine bestimmte Zelle ermittelt, zum Beispiel "AD250". In dieser Textbox würde dann bei mir drin stehen "$AD$250"
Kann ich nun per Makro zu dieser Zellen springen, sprich, dass diese dann im Sichtbaren b...
20.01.2009 07:59:00
Thread-ID: 1041709
3 Beiträge
Makro beim verlassen einer Zelle
Dirk

Hallo zusammen,
hier wahrscheinlich zum x.ten ma die Frage; Kann ich beim Verlassen einer Zelle mit Return im Arbeitsblatt en Makro ablaufen lassen?
Im Archiv habe ich leider nichts gefunden
04.02.2009 22:09:38
Thread-ID: 1047231
5 Beiträge
der variable einen Wert zuweisen
Frank

Moin moin,
bin ein bisschen aus der Übung..... ;0)
dim Zahl as integer
range("a1").select
ActiveCell.FormulaR1C1 = "=Rand()"
Zahl = Range("A1").Value
anschließend möchte ich mit der Zufallszahl in der Variable Zahl weitermachen.....
Aber in der Variable Zahl bleibt h...
24.02.2009 12:05:15
Thread-ID: 1053441
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
16
5
3
1
4
5
4
2
4
4
14
1
8
1
2
9
3
5
2
2
4
7
9
13
3