Office: (Office 2010) Saragossa Nummern mit Name ergänzen

Hallo Hary und Co.
ihr habt euch Mühe gemacht und Zeit investiert, einem Deppen wie mir eine VBA Lösung zu erstellen, die ich nun zerschossen habe. Ich hoffe, ihr habt erbarmen mit einem alten Knauz und repariert mir die VBA Lösung.
Die Zahlen und das + in den Spalten A bis N sollten durch die Namen in Spalte D ersetzt werden.
Ich möchte, dass wenn das letzte Zeichen in der Spalte zB. A bis N
eine Zahl ist, dass in die folgende Spalte der Name aus Spalte O kopiert wird zB. 1 Martin.
wenn aber das letzte Zeichen ein + ist, sollte dies in der gleichen Spalte durch + und Name aus Spalte O ersetzt werden, zb. + Anna
Alle Zahlen oder Zeichen links davon sollen aber gelöscht werden, was aber nicht geschied.
Die VBA Makro sind in Modul1 und Modul 2.
Wäre schön, wenn mir jemand nochmals helfen würde.
Gruss Martin

 

Moin Martin
Du haettest nur die Spaltennummern anpassen muessen.
Code:

und
Code:

Code:

Beim loeschen natuerlich auch die richtige Spalte nehmen, zum ermitteln der letzten belegten Zeilennummer.
Edit: Pruefung eingebaut.
Code:

gruss hary

 

Danke Hary
eine kleine Änderung hätte ich noch gerne.
Wenn die letzte Stelle eine Zahl ist soll in der nächsten Spalte der Namen eingefügt werden. zB. 1 Johann und alle Zahlen sollen rechtsbündig stehen.
Ansonsten läuft alles Perfekt.
Danke für deine Geduld mit mir.
Gruss Martin

 

Moin
Macht es doch mit der Codezeile:
Code:

Reserve Daten

	A	B
5	1	Johann Stephan

Tools Tabelle Forum - Hajo's Excelseiten
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

gruss hary

 

Hallo Hary *winner
so ist es wie gewünscht.
Danke nochmals für deine Mühe
Gruss Martin

 

Hallo Hary
kannst du mir noch +Anna ändern zu + Anna,
(also ein Leerzeichen zwischen + und Anna).
Danke und eine schöne Woche wünscht
Martin

 

Moin
Ganz einfach, haettest du auch hinbekommen.
Aendere dieses:
Code:

in
Code:

gruss hary

 

Hallo Hary, *top
Danke nochmals für deine Mühe
Gruss Martin

 

Hallo Profi's
musste wegen Änderungen in der Excel Tabelle, mein Makro nochmals erweitern.
Ein Teil habe ich hingekriegt, jedoch sollten die Zahlen (1 und 1 -) auch noch rechtsbündigt stehen.
Wäre nett, wenn dies jemand berichtigen könnte.
Gruss Martin

 

Moin
Geht es nur um 1 und 1 -
dann ersetz diesen Codeteil:
Code:

durch
Code:

Passt es?
gruss hary

 

Hallo Hary,
habe deine Änderung eingefügt.
es bringt ein Kompilierungs Fehler "For ohne Next"
Was mache ich falsch?
Gruss Martin

Sub Namen()
Dim letzte As Long, i As Long
Application.ScreenUpdating = False
' Starte in Zeile 5 bis Zeile 22
For i = 5 To Cells(Rows.Count, 22).End(xlUp).Row
' Definition der letzten Stelle
letzte = Cells(i, 22).End(xlToLeft).Column
' Begin Zahlen durch Namen ersetzen
If IsNumeric(Cells(i, letzte)) Then
Cells(i, letzte + 1) = Cells(i, 22)
Cells(i, letzte).HorizontalAlignment = xlLeft
' Ist letzte Stelle "+" ist dann (+ leerzeichen Namen)
ElseIf Cells(i, letzte) = "+" Then
Cells(i, letzte) = Cells(i, letzte) & " " & Cells(i, 22)
Cells(i, letzte).HorizontalAlignment = xlLeft
' Ist letzte Stelle "-" ist dann (Zahl leerzeichen Namen)
' ElseIf Cells(i, letzte) = "-" Then
'Cells(i, letzte) = Cells(i, letzte) & " " & Cells(i, 22)
'Cells(i, letzte).HorizontalAlignment = xlRightxlLeft
' Ist letzte Stelle "V" ist dann (V leerzeichen Namen)
ElseIf Cells(i, letzte) = "V" Then
Cells(i, letzte) = Cells(i, letzte) & " " & Cells(i, 22)
Cells(i, letzte).HorizontalAlignment = xlLeft
' Ist letzte Stelle "M" ist dann (M leerzeichen Namen)
ElseIf Cells(i, letzte) = "M" Then
Cells(i, letzte) = Cells(i, letzte) & " " & Cells(i, 22)
Cells(i, letzte).HorizontalAlignment = xlLeft
' Ist letzte Stelle "b" ist dann (b leerzeichen Namen)
ElseIf Cells(i, letzte) = "b" Then
Cells(i, letzte) = Cells(i, letzte) & " " & Cells(i, 22)
Cells(i, letzte).HorizontalAlignment = xlLeft

If letzte > 1 Then
If Cells(i, letzte - 1) Like "1*" Then
Cells(i, letzte - 1).HorizontalAlignment = xlRight
Else
Range(Cells(i, 1), Cells(i, letzte - 1)).ClearContents
End If
End If
End If
End Sub

 

Moin Martin

Aha, was sagt dir dieser Fehler!? ;-))
Schau mal in deinem Bsp.-mappen Code:
Code:

Was solltest du nur ersetzen??
Und was fehlt im Code in Thread #26 ??
Findest du die Fehler?
gruss hary

 

Hallo Hary,
Ja es geht nur um 1 und 1-.
Den Fehler habe ich gefunden und das Next eingefügt.

Es sollte, wenn der letzte Eintrag eine Zahl zb. 1 oder 1- ist , so darstellen wie
Zeile 5 bis 17 dargestellt. Das macht es leider nicht, siehe Zeile 18 bis 44

Hoffe ich nerve dich nicht wegen meiner Unwissenheit.

Gruss Martin *confused.gif*

 

Moin Martin
dann versuch mal so.
Code:

Keine Bange, du nervst nicht.
gruss hary

 

Hallo Hary
*hands vielmal. Jetzt funktionierts perfekt.
Musste beim zweit letzten Range die 2 augf 1 setzten.
Herzlichen Dank für deine Hilfsbereitschaft.
Gruss Martin