Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel VBA, Zelleninhalt umdrehen

Excel VBA, Zelleninhalt umdrehen
12.08.2022 17:20:23
ErEl
Hallo Ihr VBA Expertinnen, Experten,
ich habe bur geringfügige VBA Kenntnisse möchte jedoch gerne folgende Aufgabe lösen, bin leider bisher nicht fündig geworden und drehe mich im Kreis, daher würde ich mich auf Euere Unterstützung sehr freuen. Ich möchte gern den Zelleninhalt von bestimmten Zellen, die mehrere Zeilenumbrüche enthält reversieren (umdrehen).
Der Text einer Zeile enthält immer das aktuelle Datum sowie eine Namensabkürzung, gefolgt von einem Doppelpunkt. Den Doppelpunkt ":" könnte man als delimiter verwenden (das habe ich auch gemacht).
Zum Verständnis soll folgendes Beispiel dienen.
VORHER:
03.02.2022, EE: 9876
15.03.2022, EE: XYZ
25.04.2022, EE: 1234
10.05.2022, EE: ABC
NACHHER:
10.05.2022, EE: ABC
25.04.2022, EE: 1234
15.03.2022, EE: XYZ
03.02.2022, EE: 9876
Ich habe auch versucht die Aufgabe durch Hilfszellen zu lösen. Meine Idee war dabei,
- den Zelleninhalt gemäß der "SPLIT Funktion" auf mehrere Zellen zu verteilen,
- danach in umgekehrte Reihenfolge in eine andere Zelle zu schreiben.
-> jedoch wird die Zelle dabei immer überschrieben, das darf jedoch nicht passieren
-> die Texte müsste man alle eben in umgekehrte Reihenfolge wiedergeben (ich konnte sie quasi nicht verketten)
- zum Schluss den Inhalt der Hilfszellen wider löschen
Ich lade mal meine Datei hoch, inder Hoffnung das jmd. mir schnell helfen könnte.
Schonmal vielen Dank im Voraus.
MfG, erel

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel VBA, Zelleninhalt umdrehen
12.08.2022 20:11:36
Daniel
Hi
probier mal diese Funktion:

Function Umdrehen(txt As String, Optional Trz As String = vbLf) As String
Dim T1, T2
Dim i As Long
T1 = Split(txt, Trz)
ReDim T2(-UBound(T1) To 0)
For i = 0 To UBound(T1)
T2(-i) = T1(i)
Next
Umdrehen = Join(T2, Trz)
End Function
code in ein allgemeines Modul einfügen und beispielsweise als Funktion in B2 einsetzen: =Umdrehen(A2)
oder in einem eigenen Makro verwenden.
Gruß Daniel
Anzeige
AW: Excel VBA, Zelleninhalt umdrehen
14.08.2022 17:01:51
erel
Hallo Daniel,
vielen herzlichen Dank für das schnelle Feedback. Im Grundegenommen funktioneirt Dein Code super als Funktion (=Umdrehen(Ax).
Jedoch hat das in meinem Fall einen Nachteil, man kann keinen weiteren Text mehr in die jeweilige Zelle schreiben. In meinem Fall handelt es sich um ein lebendes Dokument, um eine offene Punkte Liste. Daher würde ich mich sehr freuen, wenn ich den Code als fertige Makro haben könnte, ich habe es nicht hinbekommen.
VG, Erel
AW: Excel VBA, Zelleninhalt umdrehen
15.08.2022 15:31:18
Daniel
das ist ein fertiges Makro, das du beliebig einsetzen kannst.
für ein vollständiges Makro müsstest du auch vollständige Daten liefern, inklusiver vollständiger genauer Beschreibung, was das Makro machen soll.
wir sind keine hellseher
wenn der Zellinhalt aus mehreren Teilen besteht von dem nur ein Teil umgedreht werden soll, dann kannst du ja die Funktion ein eine größere Formel einbetten:

=Teil1 & Umdrehen(Teil 2) & Teil3
dann wird nur der Teil2 umgedreht und Teil1 und Teil2 bleibt so wie er ist.
oder du passt dir die Funktion entsprechend an.

Function Umdrehen(txt As String, Optional Trz As String = vbLf) As String
Dim T1, T2
Dim i As Long
T1 = Split(txt, Trz)
i = UBound(T1)
ReDim T2(-i To 0)
T2(0) = T1(i)
T2(-i) = T1(0)
For i = 1 To UBound(T1) - 1
T2(-i) = T1(i)
Next
Umdrehen = Join(T2, Trz)
End Function
du kannst dir die Funktion auch umbauen, wenn du beispielsweise möchtest, dass die erste und letzte Zeile bleiben, dann geht das auch so:
Anzeige
AW: Excel VBA, Zelleninhalt umdrehen
12.08.2022 17:30:41
onur
1) Und wo ist jetzt die Datei?
2) Ich würde, statt die Symptome zu bekämpfen, die Ursache des Übels beseitigen: Warum musst du denn mehrere Datensätze in eine einzige Zeile quetschen? Für sowas ist Excel nicht erstellt worden.
AW: Excel VBA, Zelleninhalt umdrehen
14.08.2022 17:10:49
erel
Hallo Onur,
vielen Dank für Dein schnelles Feedback. Da ich neu in diesem Formum bin, konnte ich die Datei nicht auf Anhieb uploaden, daher konnte ich sie erst im zweiten Schritt uploaden, sie befindet sich unter Antwort. In meinem Fall handelt es sich um ein lebendes Dokument, um eine offene Punkte Liste. Daher ist es durchaus üblich, dass man in eine Zelle mehrere Zeilen Text schreibt. Z.B. wöchentlich den Status zu einem bestimmten Punkt eintragen.
Übrigens, Daniel konnte die Datei auch finden :-)
VG, Erel
Anzeige

303 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3