Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1876to1880
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
1876to1880
1876to1880
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Routine bei Worksheet_Activate

Routine bei Worksheet_Activate
27.03.2022 18:19:29
AL
Hallo zusammen,
ich brächte Hilfe bei folgender Problemstellung:
Wenn das Tabellenblatt "Tabelle2" aktiviert wird, dann sollen zwei Routinen eintreten:
1. Wenn im Bereich C7:C13 #NV sind, dann sollen in den entsprechenden Zellen des Bereichs E7:E13 FALSCH eingesetzt werden.
2. Suche um Bereich C7:C13 die letzte Zelle mit JA und trage in die entsprechende Zelle des Bereichs E7:E13 WAHR ein.
Für das erste Problem habe ich eine (eher wenig elegante) Lösung gefunden (siehe Beispielmappe). Ich brächte Hilfe bei der zweiten Lösung.
Danke schon mal vorab.
Schönen Sonntag noch.
AL
https://www.herber.de/bbs/user/152080.xlsm

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Routine bei Worksheet_Activate
27.03.2022 18:56:34
AlterDresdner
Hallo,
ein Vorschlag

Private Sub Worksheet_Activate()
Dim zeile As Long, zmerk As Long
With Tabelle2
For zeile = 7 To 13
If IsError(.Cells(zeile, 3)) Then
.Cells(zeile, 5) = False
ElseIf .Cells(zeile, 3) = "JA" Then
zmerk = zeile
End If
Next zeile
If zmerk > 0 Then .Cells(zmerk, 5) = True 'mindestens ein JA gefunden
.Range("H9").Select
End With
End Sub
Gruß der ALteDresdner
AW: Routine bei Worksheet_Activate
27.03.2022 18:57:41
AlterDresdner
Hallo,
ein Vorschlag:

Private Sub Worksheet_Activate()
Dim zeile As Long, zmerk As Long
With Tabelle2
For zeile = 7 To 13
If IsError(.Cells(zeile, 3)) Then
.Cells(zeile, 5) = False
ElseIf .Cells(zeile, 3) = "JA" Then
zmerk = zeile
End If
Next zeile
If zmerk > 0 Then .Cells(zmerk, 5) = True 'mindestens ein JA gefunden
.Range("H9").Select
End With
End Sub
Gruß der ALteDresdner
Anzeige
AW: Routine bei Worksheet_Activate
27.03.2022 19:18:11
ralf_b 

Private Sub Worksheet_Activate()
Dim rng As Range, rngBereich As Range
With Tabelle2
Set rngBereich = .Range("C7:c13")
'zu 1.
For Each rng In rngBereich
If IsError(rng) Then rng.Offset(, 2).Value = False
Next
'zu 2.
Set rng = rngBereich.Find("JA", LookIn:=xlValues, Lookat:=xlWhole, Searchdirection:=xlPrevious)
If Not rng Is Nothing Then
rngBereich.Offset(, 2).Value = False
rng.Offset(, 2).Value = True
End If
End With
'CODE:
'Suche den letzten Eintrag im Bereich C7:C13 der
'das Wort JA enthaelt und trage in die entsprechende
'Zelle im Bereich E7:E13 WAHR ein.
'Alle anderen Zellen in E7:E13 sollen FALSCH enthalten.
End Sub

Anzeige
AW: Routine bei Worksheet_Activate
27.03.2022 19:46:18
GerdL
Moin

Private Sub Worksheet_Activate()
Dim C As Range
With WorksheetFunction
For Each C In Range("C7:C13")
If .IsNA(C) Then C.Offset(0, 2) = False
If C.Text = "JA" Then
If .CountIf(Range("C7:C13"), "JA") = .CountIf(Range(Range("C7"), C), "JA") Then C.Offset(0, 2) = True
End If
Next C
End With
End Sub
Gruß Gerd
@ GerdL
27.03.2022 19:58:24
ralf_b
die Anforderung für Punkt 2 lese ich so, das alle Werte auf Falsch gesetzt werden sollen, außer das letzte JA. Somit auch ein evtl. vorhandenes früheres JA.
Die Anforderungen scheinen sich nicht miteinander zu vertragen.
Wie siehst du das?
Anzeige
AW: @ GerdL
27.03.2022 20:28:24
GerdL
Nicht so. Aber jenseits vom Text u. Bespiel ist die Auffassung des Fragestellers entscheidend.
AW: @ GerdL
27.03.2022 20:58:02
AL
Guten Abend zusammen,
ja richtig, alle Werte bis auf das letzte Ja sollen auf Falsch gesetzt werden.
Danke euch für die Hilfe.
AL
AW: Wie entsteht der Fehlerwert #NV an der Stelle?
27.03.2022 19:39:44
JoWE

132 Forumthreads zu ähnlichen Themen

ActiveSheet.Cells(ActiveCell.row, 243).Activate ??
Mathias

Hallo,
folgende Zeile führt bei mir dazu, dass die aktive Zelle außerhalb des Bildschirms liegt:
ActiveSheet.Cells(ActiveCell.row, 243).Activate
Verwende ich dagegen:
ActiveSheet.Cells(ActiveCell.row, 242).Activate
dann scrollt die Tabelle nach rechts bis Spalte 242 und die...
08.10.2008 20:14:00
Thread-ID: 1015161
18 Beiträge
Anzeige
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
HEIMAT-Workbook eines VBA-Makros ermitteln?
Johann

Hallo,
ich habs irgendwo einmal gelesen, aber mit den Schlüsselworten +Workbook +Makro +ursprung findet man immer zu viele Treffer, aber nie die richtigen.....
Meine Frage:
Ich habe ein VBA-Makro, welches generell mit dem Activeworkbook arbeitet. Das ist irgendeine Excel-Datei in d...
01.04.2009 12:37:23
Thread-ID: 1065958
2 Beiträge
Anzeige
Worksh_Activate per manuell od VBA unterscheidbar?
Jörg

Hi Leute
eins der Blätter in meiner Datei zeigt beim manuellen Aktivieren eine MsgBox "nix verändern..." usw, damit man daran erinnert wird, nicht versehentlich was reinzukritteln.
Dummerweise wird im Verlauf einer anderen Prozedur dies Blatt auch zwischendurch aktiviert - prompt kommt...
23.05.2009 14:03:32
Thread-ID: 1076847
5 Beiträge
2 VBA Befehle in einem Worksheet
Reinhardt

Liebe Excelgemeinde,
ich habe ein (hoffentlich) einfaches Problem:
Ich habe eine VBA Code, der mir bestimmte Werte anzeigt, Name: Gültigkeitsliste / Filterdropdown
sitzt in "Q5".
Nun soll im selben Tabellenblatt ein zweiter Filter reingesetzt werden (Zelle "S5"), der zusätzlic...
19.08.2009 11:50:28
Thread-ID: 1097047
12 Beiträge
Druckbereich formatieren für alle Sheets VBA
Florian

Hi,
hab ein kleines Problem mit dem Druckbereich, finde irgendwie keine Losung:
Ziel ist es, ein komplettes Workbook (mehrere Sheets, jedes Sheet hat gleiche Struktur, aber unterschiedliche Anzahl Zeilen) auszudrucken (Datei wird neu per Makro erzeugt, Druckbereich muss also auch per Ma...
23.12.2009 11:11:47
Thread-ID: 1125701
5 Beiträge
VBA - xlSheetHidden-Blätter bearbeiten
Dogbert

Hallo!
Ich habe immer wieder folgendes Problem: Ich muss aus einer Arbeitsmappe, die versteckte Arbeitsblätter enthält, die versteckten Blätter rauslöschen.
Nun suche ich ein Makro, das mir dieses erledigt, es soll so aussehen (jetzt mal ganz umgangssprachlich formuliert):
n = Anz....
05.11.2010 11:44:42
Thread-ID: 1185339
3 Beiträge
VBA Sheets anlegen - Fehler
chris

Hallo VBA Experten,
ich habe eine frage.Ich habe eine Datei angehängt.
Warum kann ich das Makro nicht 2 mal ausführen ?
Das ganze ist jetzt ein Test gewesen.Ich möchte gerne in der Datei mehere Tabellenblätter anlegen.
Deshalb das Makro 2 mal Ausführen.Es kommt aber beim 2 klic...
14.12.2010 15:19:23
Thread-ID: 1191415
4 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
17
4
7
1
1
4
11
4
2
3
2
8
4
3
6
2
2
12
7
3
5
4
2
6
4