online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon little-key vom 29.09.2022, 15:12 Options

Lösung

Excel: Texte in Spaltenzusammenführen

Habe wieder eine Frage, die ich zwar gelöst bekommen würde, aber nur sehr umständlich.

Es geht sicher auch ganz einfach??

Wenn in Spalte A ein Text/Zahl drin steht, dann soll der Text/Zahl aus Spalte E in Spalte A mit Slash dazwischen angehangen werden.

Z. B.
A= 13-123
E= 15

dann A= 13-123/15

Danke wieder im Voraus.
Mario


Antwort schreiben

Antwort 1 von finger59 vom 29.09.2022, 17:52 Options

Hi Mario,

auch wenn es noch nicht Deine gewünschte Lösung ist, da sich das nur durch ein Makro bewerkstelligen läßt, da Du ja den vorhandenen Wert in Zelle A um den Eintrag von Spalte E ergänzt haben möchtest.

Alternativ per Formel und einer Hilfsspalte....
b1 =A1 & "\" & E1

Dann könntest Du später die B-Spalte kopieren und über Spalte A mit Inhalte einfügen Werte überschreiben.

Vielleicht ist das ja auch Dein aktueller Lösungsweg, aber da der hier nicht bekannt ist, wollte ich Dir diese Möglichkeit auch an die Hand geben.

In diesem Sinne... have a nice Day... Gruß Helmut

Antwort 2 von little-key vom 29.09.2022, 18:01 Options

Danke Helmut, dass mit der Hilfsspalte ist mir bekannt.
Ich dachte per VBA geht das irgendwie zu vermeiden.

Antwort 3 von coros vom 29.09.2022, 20:31 OptionsLösung

Lösung
Hallo Mario,

wenn ich Dich richtig verstanden habe, dann müsste nachfolgendes Makro das machen, was Du Dir vorgestellt hast. Das Makro kombiniert Dir die Werte in Spalte A mit dem Wert aus Spalte E mit einem Slash dazwischen wenn in der abgefragten Zeile etwas in Spalte A steht.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Spalte_A_und_E_zusammenfassen()
Dim intRow  As Integer
For intRow = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
    If ActiveSheet.Cells(intRow, 1) <> "" Then
        ActiveSheet.Cells(intRow, 1) = _
            ActiveSheet.Cells(intRow, 1) & "/" & ActiveSheet.Cells(intRow, 5)
    End If
Next intRow
End Sub

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 4 von little-key vom 30.09.2022, 16:01 Options

Hey Oliver,

bestens. Irgendwann in 20 Jahren habe ich vielleicht die gleichen Kenntnisse und vertrete Dich dann...

Aber zum gleiche Projekt noch ein für mich unlösbares Problem:

In Spalte D steht : U:\Projekte\Websites\_ZooZemke\Cart\EXO360020.jpg

Nun möchte ich im Verzeichnis U:\GROSSER\BILDER\ nach diesem Dateinamen suchen lassen, findet er die Datei, soll diese in das Verzeichnis U:\Projekte\Websites\_ZooZemke\Cart\ kopiert/überschrieben werden, findet er diese nicht, soll immer die Datei noimage.jpg aus dem genannten Verzeichnis kopiert werden.

Und das Zeile für Zeile, also gesamte Spalte D.

Das ist mir eine ganze Nummer zu hoch...

Danke wiedermals. Mario

Antwort 5 von little-key vom 01.10.2022, 01:07 Options

Ich mache hierzu einen neuen Thread auf, da meine Anfrage nivht ganz korrekt ist.

Danke nochmals

Ähnliche Themen

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026