Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
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
Registriert seit: 12.04.2014
Version(en): Office 365
Hallo Alexandra
Mit VBA könnte es vielleicht machbar sein.
https://msdn.microsoft.com/de-de/library...40297.aspx
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hallo shift-dell,
danke für deine Antwort, allerdings will ich in diesem Fall kein VBA verwenden!
Geht es auch ohne?
Danke
VG
Alexandra
Registriert seit: 12.04.2014
Version(en): Office 365
(20.10.2016, 13:31)cysu11 schrieb: Geht es auch ohne?
Nö.
Wir sehen uns!
... Detlef
Meine Beiträge können Ironie oder Sarkasmus enthalten.
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
Hi Shift-Dell,
OK, DANKE!
VG
Alexandra
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
Hallo,
ich wollte gerade loslegen, als ich zurückgepfiffen wurde :05:
Zitat:danke für deine Antwort, allerdings will ich in diesem Fall kein VBA verwenden!
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
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
Registriert seit: 11.04.2014
Version(en): '97 bis 2016; 365
20.10.2016, 16:17
(Dieser Beitrag wurde zuletzt bearbeitet: 20.10.2016, 16:18 von 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:
Zitat:Sub Meldung()
MsgBox "ACHTUNG, maximale Textlänge von" & Chr(10) & _
Cells(2, 29) & " Zeichen überschritten!"
End Sub
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!
Grüße aus Norderstedt, Peter
Registriert seit: 27.04.2014
Version(en): Privat: Office Home & Business 2019 / Arbeit: MS365
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
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
