Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fehler in VBA-Code

Fehler in VBA-Code
08.04.2017 09:14:00
Sven
Hallo ihr lieben,
Ich bin am verzweifeln...
Dieses Makro:
Sub MyForm90003()
'
' MyForm90003 Makro
'
'
If Sheets("Home").Range("K11") = "1" Then
Sheets("WC").Activate
aktDatum = Application.Match(CLng(Date), Columns(22), 0)
Cells(aktDatum, 3) = "1"
Sheets("Home").Activate
Sheets("Home").Range("K11") = ""
Sheets("Home").Range("C4").Select
End If
End Sub
funktioniert in verbindung mit einer Schaltfläche einwandfrei.
Als direkten VBA-Code im Arbeitsblatt Home:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim clearCell As Boolean
If Sheets("Home").Range("K11") = "1" Then
Sheets("WC").Activate
aktDatum = Application.Match(CLng(Date), Columns(22), 0)
Cells(aktDatum, 3) = "1"
Sheets("Home").Activate
Sheets("Home").Range("K11") = ""
Sheets("Home").Range("C4").Select
End If
End Sub

bekomme ich in der Zeile Cells(aktDatum, 3) = "1" aber eine Fehlermeldung.
Hätte jemand eine Idee wo der Fehler sein könnte?
LG Sven

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in VBA-Code
08.04.2017 09:18:32
Rainer
Hallo Sven,
ohne deine Datei sehen zu können wird es schwierig.
Ich spekuliere mal und sage, dass deine Variable "aktDatum" nicht vom richtigen Typ ist oder einfach "0" weil deine Quelle leer ist.
Gruß,
Rainer
AW: Fehler in VBA-Code
08.04.2017 09:28:41
hary
Moin
Da fehlt die Zuweisung des Sheets("WC") bei Columns(22) und Cells
so sollte es klappen 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aktDatum As Variant
If Sheets("Home").Range("K11") = 1 Then
With Sheets("WC")
aktDatum = Application.Match(CLng(Date), .Columns(22), 0)
If IsNumeric(aktDatum) Then
.Cells(aktDatum, 3) = 1
Sheets("Home").Range("K11") = ""
End If
End With
End If
End Sub

gruss hary
Anzeige
AW:korrektur
08.04.2017 09:31:08
hary
Moin
Sheets("Home"). kann im Code auch weg, da dieses ja das Blatt mit dem Code ist.
gruss hary
AW: AW:korrektur
08.04.2017 09:40:25
Sven
Perfekt Harry,
Vielen lieben Dank.
Gruß Sven
AW:Nachtrag
08.04.2017 09:58:55
hary
Moin
Dir ist aber bewusst dass der Code bei jeder Aenderung im Blatt startet?
Eigenlich ueberwacht man eine Zelle bzw. Bereich damit dies nicht passiert.
gruss hary
AW: AW:Nachtrag
08.04.2017 10:37:20
Sven
Ok...
und wie macht man das?
AW: AW:Nachtrag
08.04.2017 10:46:50
hary
Moin
Welche Zelle(n) soll ueberwacht werden? K11
Wie kommt die 1 in die Zelle haendisch/Formel?
Change wirkt nur bei haendischer Aenderung! 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim aktDatum As Variant
If Target.Count > 1 Then Exit Sub '--wenn Ausahl groesser eine Zelle Code beenden
If Not Intersect(Target, Range("K11")) Is Nothing Then '--wirkt nur bei Aenderung in K11
If Target = 1 Then
With Sheets("WC")
aktDatum = Application.Match(CLng(Date), .Columns(22), 0)
If IsNumeric(aktDatum) Then
.Cells(aktDatum, 3) = 1
Sheets("Home").Range("K11") = ""
End If
End With
End If
End If
End Sub

gruss hary
Anzeige

305 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
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Array-Formel in VBA-Code umwandeln?
Robert

Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ic...
26.10.2008 10:56:28
Thread-ID: 1019326
13 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 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
7
4
3
12
5
2
1
2
7
6
2
5
3
2
2
4
2
4
4
7
4
4