Hilfe bei Datenüberprüfung!

[cysu11]

Hallo liebe Excelgemeinde,


bräuchte mal wieder eure Hilfe! :)


Habe eine Datenüberprüfung eingerichtet in der Spalte A die die Textlänge prüft, damit diese nicht länger als der Wert der in AC2 steht eingegeben werden kann! Dies funktioniert auch super und auch die Fehlermeldung "Achtung, Textlänge überschritten" die ich erstellt habe kommt sehr schön! Nun zu meiner Frage, kann ich in dieser Fehlermeldung ein Zellbezug einbauen? Ungefähr so, "ACHTUNG, maximale Textlänge von "hier Wert in AC2" überschritten!

Würde mir sehr helfen!!!

Vielen lieben Dank im Voraus
LG
Alexandra

[shift-del]

Hallo Alexandra

Mit VBA könnte es vielleicht machbar sein.
https://msdn.microsoft.com/de-de/library...40297.aspx

[cysu11]

Hallo shift-dell,


danke für deine Antwort, allerdings will ich in diesem Fall kein VBA verwenden!
Geht es auch ohne?


Danke
VG
Alexandra

[shift-del]

Geht es auch ohne?

Nö.

[cysu11]

Hi Shift-Dell,


OK, DANKE!


VG
Alexandra

[Käpt'n Blaubär]

Hallo,

ich wollte gerade loslegen, als ich zurückgepfiffen wurde  :05:

danke für deine Antwort, allerdings will ich in diesem Fall kein VBA verwenden!

[cysu11]

Hallo Käpt'n Blaubär,


nachdem es ja ohne nicht geht, würd ich dein Hilfe gerne annehmen und es doch mit VBA probieren! :)


Vielen Dank im Voraus
LG
Alexandra

[Käpt'n Blaubär]

Hallo Alexandra,

es tut mir leid, daß das Ganze so lange gedauert hat, aber mein Leben wird derzeit leider stark fremdgesteuert.
Zusätzlich dauerte es ein Weilchen, bis ich begriffen habe, daß Du ja nur eine Änderung in der Meldung wünscht.

Deine Meldung sollte so funktionieren:

Sub Meldung()
MsgBox "ACHTUNG, maximale Textlänge von" & Chr(10) & _
Cells(2, 29) & " Zeichen überschritten!"
End Sub

[cysu11]

Hallo Käptn Blaubär,


Die Meldung kommt momentan ohne VBA aus der Datenüberprüfung, wie soll das mit dein Code funktionieren? 

Danke
Alexandra

[Kuwer]

Hallo Alexandra,

füge folgenden Code in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes ein:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim rngL As Range
 If Target.Column = 1 Then
   On Error Resume Next
   Application.EnableEvents = False
   If Not Application.Intersect(Target, Columns(1).SpecialCells(xlCellTypeAllValidation)) Is Nothing Then
     Set rngL = Cells(Target.Row, 48)  'Zelle in Spalte AC der selben Zeile
     With Target.Validation
       .Delete
       .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
             Operator:=xlLessEqual, Formula1:=CStr(rngL.Value)
       .IgnoreBlank = True
       .InCellDropdown = True
       .InputTitle = ""
       .ErrorTitle = ""
       .InputMessage = ""
       .ErrorMessage = "ACHTUNG, maximale Textlänge von " & rngL.Value & " überschritten!"
       .ShowInput = True
       .ShowError = True
     End With
   End If
   Application.EnableEvents = True
 End If
End Sub

Gruß Uwe