Wort im Excel nach einer bestimmten Stellenzahl abhacken

[LordMordred]

Formel wird es nicht unbedingt sein, müsstest dir schnell was in VBA schreiben.

Edit:

---

Ok, a) zu langsam
b) auch noch falsch

Ich stell mich mal ne runde in die Ecke

---

[Sven]

VBA:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Characters.Count > 13 Then
    string_cell = Left(ActiveCell.Value, 13)
    ActiveCell.Value = string_cell
End If

Das aber nur als Denkansatz, es kürzt den Inhalt der aktiven Zelle auf 13 Zeichen wenn sich die Zellauswahl ändert.

End Sub

[Simsenetti]

du kannst deine schmach wieder beseitigen wenn du mir sagen kannst wie ich =VERKETTEN(TEIL(A1;1;8);TEIL(B1;1;3);"xy") und die formel von MyersGer verbinden kann.

oder kann mir vieleicht jemand anderes helfen?

edit. mein post sollte vors sven kommen

edit: mein ziel ist nämlich folgendes:

ich habe eine spalte mit nachnamen und eine mit vornamen.

nun möchte ich in einem dritten feld zuerst den nachnamen (aber maximal 8 stellen davon), und danach den vornamen (aber der darf nur so weit dargestellt werden das der endgültige, zusammengefasste name 13 stellen enthält). nach dem vornamen soll dann auch noch xy stehen.

[LordMordred]

Es ist glaub ich einfacher wenn du uns sagst was du machen willst

Dann könnte man sich das ganze betrachten

[Simsenetti]

mein ziel ist folgendes:

ich habe eine spalte mit nachnamen und eine mit vornamen.

nun möchte ich in einem dritten feld zuerst den nachnamen (aber maximal 8 stellen davon), und danach den vornamen (aber der darf nur so weit dargestellt werden das der endgültige, zusammengefasste name 13 stellen enthält). nach dem vornamen soll dann auch noch xy stehen.

beispiel

spalte 1 spalte 2 spalte 3

mueller renate muellerrenaxy
schneidewind markus schneidemarxy

[Sven]

Mach dir doch eine Userform und setze die jeweils längste Zeichenkette pro Feld fest

[Simsenetti]

wie moche ich das? ich bin auf diesem gebiet sehr unbeholfen

[Sven]

Schau dir einfach mal den VBA Editor an

Um aus der UserForm sicherzustellen, daß du immer an die erste freie Zeile schreibst:

ende = Worksheets("[Name des Sheets]").Cells(Rows.Count, [spalte]).End(xlUp).Row

Das gibt immer die erste freie Zelle (von unten) in einer Spalte zurück (Zeilennummer)