Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellinhalt miteinander verketten
#11
Hallo,
vielen Dank für deine Bemühungen, funktioniert aber leider nicht :(
LG
Antworten Top
#12
Hi,

helfen kann ich dir fachlich nicht. Jedoch ein allgemeiner Hinweis: "funktioniert nicht", "geht nicht" oder ähnliche Aussagen sind zur Fehlersuche/-eingrenzung nicht hilfreich. Du solltest schon beschreiben, was für Fehlermeldung kommt, wo eventuell etwas markiert ist usw. Dann können die Helfer bei Bedarf nachbessern.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#13
Hallo,

danke für den Hinweis Willwissen.
Ich habe die Datei mit dem letzthin vorgeschlagenen Code angefügt.
Meiner Meinung nach arbeitet er dahingehend falsch, als das einfach alle Tochterpositionen (XX.XX.XX.XX.A - XX.XX.XX.XX.B usw.) an den Muttertext (XX.XX.XX.XX)
angehängt werden.

LG


Angehängte Dateien
.xlsm   _Richtpreisverzeichnis - Kopie1.xlsm (Größe: 1,44 MB / Downloads: 2)
Antworten Top
#14
Code:
Sub M_snb()
   sn = Tabelle1.Cells(1).CurrentRegion.Resize(, 5)
   
   For j = 1 To UBound(sn)
     If Len(sn(j, 1)) = 11 Then
        sn(j, 3) = sn(j, 2)
        sn(j, 5) = sn(j, 4)
        c00 = sn(j, 3)
        c01 = sn(j, 5)
    ElseIf Len(sn(j, 1)) > 11 Then
        sn(j, 3) = c00 & " " & sn(j, 2)
        sn(j, 5) = c01 & " " & sn(j, 4)
    End If

   Tabelle1.Cells(1).CurrentRegion.Resize(, 5) = sn
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#15
Hallo,

Vielen Dank für die Hilfe

Leider bekomme ich beim Ausführen des Codes folgende Fehlermeldung

"Fehler beim Kompilieren
For ohe Next"

habe die Datei mit dem eingefügten Code angefügt

Danke


Angehängte Dateien
.xlsm   _Richtpreisverzeichnis - Kopie2.xlsm (Größe: 1,35 MB / Downloads: 6)
Antworten Top
#16
Hallöchen,

ich vermute, dort fehlt das Next Smile

...
End If
Next
Tabelle1.Cells(1).CurrentRegion.Resize(, 5) = sn
End Sub
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#17
Hallo,

vielen Dank an alle für die Mithilfe. Der Code funktioniert jetzt bei 8-stelligem Kodex (XX.XX.XX.XX - XX.XX.XX.XX.A - XX.XX.XX.XX.B - usw)
einwandfrei. Perfekt wäre noch wenn er auch zwei- (XX), vier- (XX.XX) und sechsstellige (XX.XX.XX) Kodexe zusamennfassen würde.
Aber ich so bin ich auch zufrieden :)

Danke nochmals
LG
Franz
Antworten Top
#18
Code:
Sub M_snb()
   sn = Tabelle1.Cells(1).CurrentRegion.Resize(, 5)
   
   For j = 1 To UBound(sn)
     If InStr("_2_5_8_11_", Len(sn(j, 1))) Then
        sn(j, 3) = sn(j, 2)
        sn(j, 5) = sn(j, 4)
        c00 = sn(j, 1)
        c01 = sn(j, 3)
        c02 = sn(j, 5)
        y = Len(sn(j, 1))
    ElseIf Len(sn(j, 1)) > y And Left(sn(j, 1), y) = c00 Then
        sn(j, 3) = c01 & " " & sn(j, 2)
        sn(j, 5) = c02 & " " & sn(j, 4)
    End If
   Next

   Tabelle1.Cells(1).CurrentRegion.Resize(, 5) = sn
End Sub
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top
#19
Perfekt...genau wie ich es wollte
Vielleicht kann ich das irgendwann auch mal :)

Vielen Dank und LG
Antworten Top
#20
Ohne Zweifel  :21:
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste