Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich eingrenzen

Bereich eingrenzen
12.12.2008 11:39:00
Dieter.G
Hallo Excelspezis,
folgendes Makro bewirkt, daß in jeder Spalte ein bestimmter Text, oder eine Zahl nur so oft eingegeben werden kann wie von mir vorgegeben wurde. In folgenden Bespiel kann die Zahl 4 in jeder Splate nur dreimal vergeben werden.
Problem: Wie kann ich den "Zeilenbereich" eingrenzen?
Das Makro soll nur in einen von mir mit "Bereichsnamen" z.B. D6:AH32 definierten Bereich funktionieren. Die Zahl 4 darf also im eingegrenzen Bereich nur dreimal vergeben werden. Außerhalb dieses Bereiches beliebig oft!
Bereichsname ist wichtig, da Zeilen eingefügt bzw. gelöscht werden.
Danke im Voraus
Gruß Dieter

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountIf(Columns(Target.Column), LCase("4")) > 3 Then
MsgBox "Der Zahl   >>   " & Target.Value & "


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

Betreff
Datum
Anwender
Anzeige
AW: Bereich eingrenzen
12.12.2008 13:09:02
chris
Hallo Dieter,
versuchs mal hiermit.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:B5")) Is Nothing Then
'MsgBox ("Auserhalb des vorgegebenen bereichs")
Else
'MsgBox ("innerhalb des bereichs")
'MsgBox WorksheetFunction.CountIf(Range("A1:B5"), LCase("4"))
If WorksheetFunction.CountIf(Range("A1:B5"), LCase("4")) > 3 Then
MsgBox "Der Zahl   >>   " & Target.Value & "


gruß Chris

AW: Bereich eingrenzen
12.12.2008 16:51:46
Dieter.G
Hallo Chris,
danke für Deine Hilfe, aber ich habe das anders gemeint.
Ich möchte in einem bestimmten Bereich z.B. D6:AH32 pro Spalte nur die vorgegeben Anzahl eingeben können!
Unser Bespiel: D6:AH32
Spalte D maximal 3 mal,
Spalte C maximal 3 mal,
Spalte E maximal 3 mal, usw. bis Spalte AH.
Mit Deinem Beispiel kann ich aber im gesamten Bereich z.B. D6:AH32 die "4" aus useren Beispiel nur dreimal vergeben.
Gruß Dieter
Anzeige
AW: Bereich eingrenzen
12.12.2008 17:07:00
Dieter.G
Hallo Wenderhold,
danke auch für Deine Mühe, aber leider weiß ich beim besten Willen nicht wie oder wo ich Deinen Vorschlag in mein change event einbauen soll!?
Vielleicht kannst Du das für mich übernehmen?
Gruß Dieter
AW: Bereich eingrenzen
13.12.2008 18:24:00
robert
hi,
tabellenblatt-reiter mit rechter maustaste, code einfügen
gruß
robert
AW: Bereich eingrenzen
14.12.2008 02:05:19
Dieter.G
Hallo Robert,
das ist mir schon klar, ich meinte eigentlich, das Makro von Wenderhold mit meinen Makro verknüpfen!
Gruß Dieter
Anzeige
AW: Bereich eingrenzen
14.12.2008 08:39:20
Gerd
Guten Morgen Dieter!
Sub Zum_Einschalten_bei_Testfehler()
Application.EnableEvents = True
End Sub 



Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target.Cells(1), Range("D6:AH32")) Is Nothing Then
If WorksheetFunction.CountIf(Intersect(Range("D6:AH32"), Columns(Target.Column)), 4) > 3 Then
MsgBox "Die Zahl   >>   " & Target.Value & "   



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then
If Not Application.Intersect(Range(Target.Address(False, False, xlA1)), Range(Range("D6:AH32"). _
Address(False, False, xlA1))) Is Nothing Then
Application.CutCopyMode = False 'kopiermodus abschalten
Application.EnableEvents = False
Target.Cells(1).Select 'mehrfachmarkierung aufheben
Application.EnableEvents = True
End If
End If
End Sub


Gruß Gerd

Anzeige
AW: Bereich eingrenzen
14.12.2008 10:37:33
Dieter.G
Hallo Gerd,
so hab ich mir das vorgestellt!
Danke für Deine Hilfe
Gruß Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige