Bestimmte Felder dürfen nicht ausgefüllt werden

Guten Morgen
Ich habe gleich mal zwei fragen. Die erste steht bereits im Titel. Ich denke das müsste mit VBA lösbar sein , nur wie ?
Also ich habe mir vorgestellt wenn:
A1 = 1 ( Betreff )
A2 = 2 ( Dauer )
A3 = 3 ( Priorität )
A4 = 4 ( Start )
Nun möchte ich bei B4 auch eine 4 einsetzten habe aber bei B1-3 die gleichen Werte drin wie bei A1-3. Das darf aber nicht möglich sein. Es soll dann irgend eine alertbox kommen die einem sagt das es nicht erlaubt sei. Umschrieben meine ich wenn bestimmte Felder schon mal gleich ausgefüllt sind darf es nicht möglich sein in ein bestimmtes Feld nochmals den gleichen wert einzugeben.
Dann meine zweite Frage. Ich möchte das es meine Tabelle automatisch an die anpasst die auf einem anderen Worksheet ist. Eigentlich kann ich dann ja einfach
=Worksheet!A1 machen, aber das sieht doof aus, da wenn ich das einfach nach unten ziehe die Felder die leer sind eine 0 bekommen. Zusätzlich werden die Inhalte nicht angepasst. Wenn ich eine neue Reihe einfüge dann setzt der Code in den Zellen nicht fort sondern lässt diese Reihe aus:
=Worksheet!A1
=Worksheet!B1
=Worksheet!D1
Wenn ich C neu eingefügt habe auf dem Worksheet? Wie umgehe ich das?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim bereich As Range Set bereich = Range("B1:B4") If Not Intersect(Target, bereich) Is Nothing Then For Each zelle In bereich If zelle <> zelle.Offset(0, -1) Then Exit Sub Next End If MsgBox ("Datensatz schon vorhanden !") Target.select 'zeigt die letzte geänderte Zelle an, durch die die Gleichheit erfüllt ist. End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim bereich As Range Set bereich = Range("B1:B4") If Not Intersect(Target, bereich) Is Nothing Then For Each zelle In bereich If zelle <> zelle.Offset(0, -1) Then Exit Sub Next Else Exit Sub End If MsgBox ("Datensatz schon vorhanden !") Target.Select End Sub

Hallo Thomas,
hab schon mal vorgearbeitet.
Probiermal, ob es paßt.


Private Sub Worksheet_Change(ByVal Target As Range)
Dim bereich, zelle As Range
Dim spalte, akt_zeile, zeilen As Integer
akt_zeile = Target.Row
spalte = Target.Column
zeilen = UsedRange.Rows.Count
If Cells(akt_zeile, spalte) = "" Then Exit Sub
Select Case spalte
Case 2
Set bereich = Range(Cells(1, spalte), Cells(zeilen, spalte))
bereich.Select
For Each zelle In bereich
If zelle = Target And zelle.Offset(0, 1) = Target.Offset(0, 1) And zelle.Offset(0, 5) = Target.Offset(0, 5) And zelle.Row <> akt_zeile Then
GoTo warnung
End If
Next
Case 3
Set bereich = Range(Cells(1, spalte), Cells(zeilen, spalte))
For Each zelle In bereich
If zelle = Target And zelle.Offset(0, -1) = Target.Offset(0, -1) And zelle.Offset(0, 4) = Target.Offset(0, 4) And zelle.Row <> akt_zeile Then
GoTo warnung
End If
Next
Case 7
Set bereich = Range(Cells(1, spalte), Cells(zeilen, spalte))
For Each zelle In bereich
If zelle = Target And zelle.Offset(0, -5) = Target.Offset(0, -5) And zelle.Offset(0, -4) = Target.Offset(0, -4) And zelle.Row <> akt_zeile Then
GoTo warnung
End If
Next
End Select
Exit Sub
warnung:
MsgBox ("Datensatz schon vorhanden !")
zelle.Select
End Sub

Gruß
Volker

Beliebteste Forumthreads (12 Monate)

Bestimmte Felder dürfen nicht ausgefüllt werden

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Bestimmte Felder dürfen nicht ausgefüllt werden

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread