Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beliebige Zelle ändern Makro funktioniert nicht m

Beliebige Zelle ändern Makro funktioniert nicht m
06.03.2018 15:07:33
Zoe401
Hallo,
hab ein seltsames Problem. Bis jetzt ging alle gut mit meinem Makro.
Habe mein Datei zum Glück immer wieder unter Revisionen abgespeichert. Das wenn ich was verhau, nicht alles weg ist.
Jetzt ist sowas eingetreten.
Das Makro (Ich drücke auf meinen Command Button und es werden Daten aus Tabelle1 in Tabelle2 kopiert und formatiert) funktioniert einwandfrei. Bis ich irgendeine beliebige Zelle in Tabellen1 ändere, auch außerhalb meines eigentlichen Arbeitsbereiches, und dann geht das Makro nicht mehr bzw. macht halt einfach nichts.
Wie habe ich das denn hinbekommen? Bin ich besonders blöd?
Hab ich irgendwas eingestellt?
Bitte helft mir...

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

Betreff
Datum
Anwender
Anzeige
Hilfe für unsichtbaren Code? Wie denn? (owT)
06.03.2018 15:14:49
EtoPHG

AW: Hilfe für unsichtbaren Code? Wie denn? (owT)
06.03.2018 15:16:31
Zoe401
Das war ja die Frage! Vielleicht kennt das Problem ja jemand. Und ich habe nur irgendwo ein Häkchen gesetzt, was weiss ich!
Private Sub CommandButton1_Click()
'Zugversuch
If CheckBox14.Value = True Then
If ComboBox1.Value = "Prüfprotokoll" Then
Sheets("Startseite").Range("W1").Copy
Sheets("Zugversuch").Range("A1").PasteSpecial xlPasteAll
Sheets("Startseite").Range("W2").Copy
Sheets("Zugversuch").Range("A2").PasteSpecial xlPasteAll
ElseIf ComboBox1.Value = "Abnahme-Prüfzeugnis EN 10204 - 3.1" Then
Sheets("Startseite").Range("X1").Copy
Sheets("Zugversuch").Range("A1").PasteSpecial xlPasteAll
Sheets("Startseite").Range("X2").Copy
Sheets("Zugversuch").Range("A2").PasteSpecial xlPasteAll
ElseIf ComboBox1.Value = "Abnahme-Prüfzeugnis EN 10204 - 3.2" Then
Sheets("Startseite").Range("Y1").Copy
Sheets("Zugversuch").Range("A1").PasteSpecial xlPasteAll
Sheets("Startseite").Range("Y2").Copy
Sheets("Zugversuch").Range("A2").PasteSpecial xlPasteAll
End If
Sheets("Startseite").Range("B4").Copy Destination:=Sheets("Zugversuch").Range("A3")
Sheets("Startseite").Range("C4").Copy Destination:=Sheets("Zugversuch").Range("C3")
Sheets("Startseite").Range("F4").Copy Destination:=Sheets("Zugversuch").Range("E3")
Sheets("Startseite").Range("G4").Copy Destination:=Sheets("Zugversuch").Range("F3")
If CheckBox1.Value = True Then
Sheets("Startseite").Range("B5").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C5").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
End If
If CheckBox2.Value = True Then
Sheets("Startseite").Range("B6").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C6").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
End If
If CheckBox3.Value = True Then
Sheets("Startseite").Range("B7").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C7").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
End If
Sheets("Startseite").Range("B8").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C8").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
Sheets("Startseite").Range("B9").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C9").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
Sheets("Startseite").Range("B10").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C10").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
Sheets("Startseite").Range("B11").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C11").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets(" _
Zugversuch").Cells(12, 1).End(xlUp).Row)
If CheckBox4.Value = True Then
Sheets("Startseite").Range("B12").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets( _
"Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C12").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets( _
"Zugversuch").Cells(12, 1).End(xlUp).Row)
End If
If CheckBox5.Value = True Then
Sheets("Startseite").Range("B13").Copy Destination:=Sheets("Zugversuch").Range("A" & Sheets( _
"Zugversuch").Cells(12, 1).End(xlUp).Row + 1)
Sheets("Startseite").Range("C13").Copy Destination:=Sheets("Zugversuch").Range("C" & Sheets( _
"Zugversuch").Cells(12, 1).End(xlUp).Row)
End If
If CheckBox6.Value = True Then
Sheets("Startseite").Range("F5").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G5").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
If CheckBox7.Value = True Then
Sheets("Startseite").Range("F6").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G6").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
If CheckBox8.Value = True Then
Sheets("Startseite").Range("F7").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G7").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
If CheckBox9.Value = True Then
Sheets("Startseite").Range("F8").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G8").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
If CheckBox10.Value = True Then
Sheets("Startseite").Range("F9").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G9").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
If CheckBox11.Value = True Then
Sheets("Startseite").Range("F10").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets( _
"Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G10").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets( _
"Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
Sheets("Startseite").Range("F11").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G11").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
Sheets("Startseite").Range("F12").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G12").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets(" _
Zugversuch").Cells(12, 5).End(xlUp).Row)
If CheckBox12.Value = True Then
Sheets("Startseite").Range("F13").Copy Destination:=Sheets("Zugversuch").Range("E" & Sheets( _
"Zugversuch").Cells(12, 5).End(xlUp).Row + 1)
Sheets("Startseite").Range("G13").Copy Destination:=Sheets("Zugversuch").Range("F" & Sheets( _
"Zugversuch").Cells(12, 5).End(xlUp).Row)
End If
With Sheets("Zugversuch").Range("A3:G12").Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Sheets("Zugversuch").Range("A2:G12")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlNone
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
.Borders(xlInsideVertical).LineStyle = xlNone
.Borders(xlInsideHorizontal).LineStyle = xlNone
End With
End If
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(5, 3)  "" Then
CheckBox1.Value = True
End If
If Cells(5, 3) = "" Then
CheckBox1.Value = False
End If
If Cells(6, 3)  "" Then
CheckBox2.Value = True
End If
If Cells(6, 3) = "" Then
CheckBox2.Value = False
End If
If Cells(7, 3)  "" Then
CheckBox3.Value = True
End If
If Cells(7, 3) = "" Then
CheckBox3.Value = False
End If
If Cells(12, 3)  "" Then
CheckBox4.Value = True
End If
If Cells(12, 3) = "" Then
CheckBox4.Value = False
End If
If Cells(13, 3)  "" Then
CheckBox5.Value = True
End If
If Cells(13, 3) = "" Then
CheckBox5.Value = False
End If
If Cells(5, 7)  "" Then
CheckBox6.Value = True
End If
If Cells(5, 7) = "" Then
CheckBox6.Value = False
End If
If Cells(6, 7)  "" Then
CheckBox7.Value = True
End If
If Cells(6, 7) = "" Then
CheckBox7.Value = False
End If
If Cells(7, 7)  "" Then
CheckBox8.Value = True
End If
If Cells(7, 7) = "" Then
CheckBox8.Value = False
End If
If Cells(8, 7)  "" Then
CheckBox9.Value = True
End If
If Cells(8, 7) = "" Then
CheckBox9.Value = False
End If
If Cells(9, 7)  "" Then
CheckBox10.Value = True
End If
If Cells(9, 7) = "" Then
CheckBox10.Value = False
End If
If Cells(10, 7)  "" Then
CheckBox11.Value = True
End If
If Cells(10, 7) = "" Then
CheckBox11.Value = False
End If
If Cells(13, 7)  "" Then
CheckBox12.Value = True
End If
If Cells(13, 7) = "" Then
CheckBox12.Value = False
End If
If Cells(17, 7) = "" Then
CheckBox13.Value = False
End If
End Sub

Anzeige
AW: Beliebige Zelle ändern Makro funktioniert nicht m
06.03.2018 15:16:42
UweD
Hallo
Vermutung:
Irgendwo mal ein Application.EnableEvents=false ausgeführt
und nicht wieder auf True gesetzt
versuch mal (einmalig)

Sub onon()
Application.EnableEvents = True
End Sub

klappt es danach wieder?
LG UweD
Danke, geht wieder!
06.03.2018 15:23:11
Zoe401
Jetzt geht es wieder. Ich hab keine Ahnung wieso! Hab nichts geändert?
Aber Danke trotzdem.
Verschone uns mit solchen Aussagen! (owT)
06.03.2018 15:39:56
EtoPHG

319 Forumthreads zu ähnlichen Themen

Format(etwas, "sonstwas") wird nicht erkannt
Mike

Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...
20.08.2008 11:13:00
Thread-ID: 1003138
16 Beiträge
Anzeige
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Wochentag Formatierung mit TTT wird nicht gezählt
Rolf

Hallo Fachleute,
ich habe einen Dienstplan in Excel bei dem die Monate auf je einem Tabellenblatt stehen.
Also wie ein Kalender. In einem anderen Tabellenblatt werden verschiedene Auswertungen mittels Funktionen oder einfacher Formeln erstellt.
So z.B: sollen bestimmte Dienste di...
14.12.2008 17:15:00
Thread-ID: 1032800
11 Beiträge
Anzeige
Zelleninhalt wird bei Wenn-Abfrage nicht erkannt
CheHerbers

Hey,
ich habe eine Wenn-Abfrage, die prüfen soll, ob A1kleinerA2.
In A1 und A2 stehen jeweils Datum mit Uhrzeit.
A1 = 17.02.2009 10:42:35
A2 = 17.02.2009 10:43:57
A1 fülle ich über ein Makro.
Code:
Sheets("Daten").Range("A1") = ComboBox1.Value & " " &...
18.02.2009 10:35:00
Thread-ID: 1051714
4 Beiträge
Datum in Textbox in eine Zahl umwandeln
TCO99

Hallo zusammen,
ich habe folgendes Problem.
In einer Spalte einer Tabelle befinden sich Datumsangaben. Ich filtere diese Liste nach einem Datum. Dieses Datum wird vor der Filterung in eine Textbox eingegeben. Als richtiges Datum fuktioniert die Filterung aber nicht mehr. Da habe ich ei...
26.02.2009 23:31:12
Thread-ID: 1054555
15 Beiträge
Datum in Zahl umwandeln
Johannes

Hallo!
Habe eine Frage zu Excel:
Ich möchte über eine WENN-Funktion das Datum aus G2 als Zahl in dem entsprechenden Feld (AJ - AP) haben.
Z.B. für "Freitag, 2. Januar 2009" soll in der Spalte AN eine 1 stehen.

Über Hilfe wäre ich SEHR dankbar.
Liebe Grüße
Johannes
04.03.2009 12:20:18
Thread-ID: 1056301
7 Beiträge
Information von Zelle wird nicht erkannt
Zelle

https://www.herber.de/bbs/user/60476.xls
Hey Leute
eigentlich habe ich hier ein gutes program aber in Ausgang gibt es ein problem ich denke es ist ganz klein.
jedoch für mich risig da ich es nicht lösen kann, siehe beispiel.
vielleicht kann mir jemand helfen, bin aber kein prof...
19.03.2009 18:25:55
Thread-ID: 1061948
9 Beiträge
VLookup wird nicht erkannt
Werner

VBA-Level: befriedigend
Hallo Freunde,
bei folgender CodeZeile bekomme ich immer eine Fehlermeldung (es soll der Wert in Spalte 5 des
Worksheets "BeispielSheet" ermittelt werden, wenn in Spalte A dessen Wert numerisch "1900"
betraegt.) Excel teilt mit, dass es "VLookUp" nicht ke...
02.04.2009 09:22:02
Thread-ID: 1066196
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ComboBox CheckBox

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
15
7
2
10
3
3
14
6
8
4
3
1
7
16
3
2
2
7
2
1
5
5
2
19
6