Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1512to1516
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
1512to1516
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aus C1-C5 muss C1, C2, C3, C4, C5.

aus C1-C5 muss C1, C2, C3, C4, C5.
08.09.2016 12:04:46
Hannes
Hallo ihr Lieben,
ich habe folgendes Problem:
Bezeichner für eine Zuordnung werden vom Kunden ab und an mit einen Bindestrich getrennt. Wir brauchen die Trennung aber einzeln aufgeschlüsselt mit Komma für eine Auswertung.
Hier ein Beispiel:
Kunde schickt uns die Bezeichner C1-C5
wir brauchen an dieser stelle C1, C2, C3, C4, C5.
Das Klingt ersteinmal trivial, stellt mich aber vor große Probleme.
Bezeichner sind immer wie folgt aufgebaut: Buchstabe + Zahl.
Die Zahl kann hier jedoch auch gerne mal vierstellig werden.
Hier wäre es eventuell sinnvoll den String ansich zu zerlegen in Bindestrich, Buchstabe, Zahl links vom Strich und Zahl rechts vom Strich. Undsich so die neuen Bezeichner zusammenzubasteln.
Vielleicht habt ihr ja eine Idee. Ich würde mich sehr freuen wenn wir eine Lösung finden. LG Hannes

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aus C1-C5 muss C1, C2, C3, C4, C5.
08.09.2016 12:43:11
Marsl
Hmm, vielleicht zu einfach, aber.... Du könntest das eventuell mit einer verschachtelten wenn Funktion machen. Müsstest halt alle Eventualitäten damit abfangen bsp.:
=WENN(F6="C1-C5";"C1, C2, C3, C4, C5"; WENN(F6="C2-C5";"C2, C3, C4, C5";F6))
mit dem else F6 würdest Du Abfangen, dass die Funktion falls der Kunde die Angaben richtig gemacht hat übernimmt er eben die Bezeichner wie geschrieben.
Reicht Dir das schon? :-/
AW: aus C1-C5 muss C1, C2, C3, C4, C5.
08.09.2016 13:09:18
Rudi
Hallo,
für die ausgewählten Zellen: 
Sub aaaa()
Dim r As Range, tmp, iNummer As Long
Dim lErste As Long, lZweite As Long
Dim sIndex As String, sAusgabe As String
For Each r In Selection
sAusgabe = ""
tmp = Split(r, "-")
If UBound(tmp) Then
sIndex = Left(Trim(tmp(0)), 1)
lErste = Mid(Trim(tmp(0)), 2) * 1
lZweite = Mid(Trim(tmp(1)), 2)
For iNummer = lErste To lZweite
sAusgabe = sAusgabe & ", " & sIndex & inimmer
Next
sAusgabe = Mid(sAusgabe, 3)
r = sAusgabe
End If
Next
End Sub

Gruß
Rudi
Anzeige
AW: aus C1-C5 muss C1, C2, C3, C4, C5.
08.09.2016 14:11:50
Hannes
Hallo ihr zwei. So einfach ist es wie gesagt nicht zu lösen.
Da die Buichstaben das ganze Alphabet beinhalten können und die Zahklen bis in die virstelligen bereiche gehen. Z.B. P4-P30, R901-R912, usw...
Rudi dein Ansatz isut vielversprechend! Allerdings funkitoniert er nicht wie gewollt.
Man müsste eventeull beim Trennen von Buchstabe und Zahl die länge der Zahl prüfen.
AW: aus C1-C5 muss C1, C2, C3, C4, C5.
08.09.2016 15:30:01
Hannes
https://www.herber.de/forum/archiv/1176to1180/1177805_Zahl_im_String_finden_VBA.html
#
Hier ist eventuell ein Ansatz. Allerding kann ich ihn nicht so ganz auf mein Problem adoptieren.
Erste Zahl suchen bis zum Bidnestrich.
Zweite Zahl suchen nach Bindestrich.
Buchstaben erkennen.
Neue Positionen generieren aus Differenz der zwei erkannten Zahlen.
Anzeige
Mit folgender Fml lassen sich bis zu 4839 Werte …
09.09.2016 03:06:37
Luc:-?
…enthaltende Code-Intervalle wie gewünscht aufschlüsseln, Hannes;
Bedingung, die IntervallAngaben müssen die Form $#~$# oder $#~# haben, wobei $ für einen in der Angabe stets gleichen Buchstaben aus dem Intervall A-Z (groß/klein egal), ~ für ein/e beliebige/s TrennZeichen/Kombination (weder Buchstaben noch Ziffern!) und # für beliebige Anfangs- und EndZahlen (aus ggf unterschiedlich vielen Ziffern) steht. Dabei ist es egal, ob diese im Intervall ab- oder aufsteigen:
{=VJoin(ADRESSE(ZEILE(INDIREKT(MIN(VSplit(MaskOn(A1;"num");;1))&":"&MAX(VSplit(MaskOn(A1;"num");;1))) );
SPALTE(INDIREKT(LINKS(A1)&":"&LINKS(A1)));4);", ")}
Hierbei handelt es sich um eine singulare (1zellige) MatrixFml, die auch UDFs enthält. Diese habe ich bereits wiederholt verlinkt, zuletzt in diesem Beitrag.
Bei durchgehend 4stelligen Zahlen kam ich im Test auf bis zu 4681, bei Werten von 1- bis 4stellig auf die im Betreff angegebene Anzahl von Einzel-Codes.
Feedback nicht unerwünscht! Gruß, Luc :-?
Besser informiert mit …
Anzeige
AW: Mit folgender Fml lassen sich bis zu 4839 Werte …
09.09.2016 14:02:40
Hannes
Das sieht sehr vielversprechend aus Luc:-?, :)
ich würde sagen volltreffer!
$#~$# liegt bei mir vor:
$=ein gleicher Buchstabe
#=eine Zahl (ggf. mehrere Ziffern)
~= hier eine Bindestrich -
Ich versuche deinen Code anzuwenden und gebe nächste Woche nochmal Feedback.
Danke!!
Ergänzender Nachtrag hierzu
10.09.2016 17:45:51
Luc:-?
Hallo, Hannes;
im Grunde kann die MatrixFml unter den genannten Bedingungen noch etwas kürzer ausfallen:
{=VJoin(ADRESSE(ZEILE(INDIREKT(MIN(VSplit(MaskOn(A1;"num");;1))&":"&MAX(VSplit(MaskOn(A1;"num");;1))) );
SPALTE(INDIREKT(LINKS(A1;2)));4);", ")}
Außerdem könnte man auch einen Namen definieren und die Fml in seinen Bezug schreiben. Dabei sollte die Zelle des Ergebnisses ausgewählt sein, in die man danach nur =definierterName schreiben muss. Die MatrixFmlForm ist dann hierbei nicht erforderlich, weil benannte Fmln mit der ganzen Matrix (auch der ZwischenErgebnisse!) arbeiten. Nur bei einigen sehr komplexen Fmln u/o mit mehreren Ergebnissen muss Xl dann auch in der ZellFml per MatrixFml „mitgeteilt“ wdn, dass alle Zwischen­Ergebnisse bei der Berechnung verwendet u/o alle Ergebnisse ausgegeben wdn sollen. Das ist bei nur einem Ergebnis (wie hier) idR nicht erforderlich.
Falls aber auch Intervalle der Form §#~# (§ → 1 beliebiges nicht-numerisches Zeichen, # → beliebige Anzahl [ab 1] von Ziffern, ~ → beliebige Anzahl [ab 1] von nicht-numerischen Zeichen)¹ verarbeitet wdn sollen, schlage ich folgendes System benannter Kon­stanten und Fmln vor:
Benannte Konstanten (für internen Gebrauch):
IvallWechselZnX ="ÄÅÆÐËÏÖ،ܟÞ$ß# " [#=NummerSymbol, danach LeerZeichen]
IvallWechselZn ="AAADEIOOOUYTSSNL"
Benannte Fmln für internen Gebrauch:
IvallWznIndex =WENNFEHLER(FINDEN(LINKS(A1);IvallWechselZnX);WENNFEHLER(-SUCHEN(LINKS(A1);IvallWechselZnX);0))
IvallBasis =WENN(IvallWznIndex;WECHSELN(GROSS(A1);TEIL(IvallWechselZnX;ABS(IvallWznIndex);1);TEIL(IvallWechselZn;ABS(IvallWznIndex);1));A1)
Benannte Fmln für wahlweises Ergebnis:
IvallErgListe =VJoin(ADRESSE(ZEILE(INDIREKT(MIN(VSplit(MaskOn(IvallBasis;"num");;1))&":"&MAX(VSplit(MaskOn(IvallBasis;"num");;1))));SPALTE(INDIREKT(LINKS(IvallBasis;2)));4);", ")
IvallErgListeX =WENN(IvallWznIndex;WECHSELN(IvallErgListe;TEIL(IvallWechselZn;ABS(IvallWznIndex);1);TEIL(IvallWechselZnX;ABS(IvallWznIndex);1));IvallErgListe)
IvallErgListeGk =WENN(ODER(UND(IvallWznIndex=0;CODE(LINKS(IvallBasis))>96);IvallWznIndex IvallErgListeGkX =WENN(ODER(UND(IvallWznIndex=0;CODE(LINKS(IvallBasis))>96);IvallWznIndex Die letzteren 4 Namen können dann je nach Bedarf in(/als) der(/die) ZellFml verwendet wdn, wobei der …
1. nur §=A-Z a-z verarbeiten kann und stets §=A-Z zurückgibt (Groß-/Kleinschreibung ist also egal);
2. zusätzlich alle Zeichen berücksichtigt, die in der (ergänzbaren) TextKonstante IvallWechselZnX aufgeführt wurden, sofern sie einen Partner in der TextKonstanten IvallWechselZn besitzen (gleiche Reihenfolge bei beiden erforderlich!), wobei reguläre Buchstaben, die sowohl GB- als auch KB-Varianten haben, nur als GB aufgeführt wdn müssen;
3. auch zwischen Groß- und Kleinschreibung unterscheidet (KB bleibt also KB);
4. sowohl die Spezifik des 2. als auch die des 3. berücksichtigt.
¹ Hinweis: MaskOn ist es egal, wieviele nicht-numerische Zeichen vor der 1.Zahl, zwischen den beiden Zahlen oder nach der letzten Zahl stehen. Sie wdn eliminiert bzw durch ein einzelnes LeerZeichen ersetzt, sodass nur die beiden Zahlen, die die Intervall­Grenzen bezeichnen, übrig bleiben. Das 1. (zwingend nicht-numerische) Zeichen der ursprüngl IntervallAngabe ist dann für den KennBuchstaben vor allen Codes des Ergebnis-ListenTextes verantwortlich.
SchöWE, Luc :-?
Anzeige

303 Forumthreads zu ähnlichen Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Messagebox nach 1-2 Sec automatisch schließen
hajo

Hallo zusammen,
gibt es eine Möglichkeit eine MSGBox oder ähnliches aufzurufen, ein paar Sekunden anzeigen zu lassen und automatisch zu schließen, so dass das Makro weiterläuft?
Vielen Dank für Eure Hilfe
25.11.2008 12:07:21
Thread-ID: 1027660
3 Beiträge
Anzeige
Fehler beim Öffnen und Schließen
kleinerfinger

Hallo und einen schönen guten Morgen !
Ich habe folgendes Problem:
Jedes mal wenn ich Excel starte bekomme ich folgende Fehlermeldung:
Kompilierungs-Fehler in verborgenen Modul: AutoExecNew
und beim Schließen:
Kompilierungs-Fehler in verborgenen Modul: DistMon
Wie bekomm...
25.05.2009 08:15:25
Thread-ID: 1077075
16 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
3. Februarwoche (15.2.2010)
Heinz

Hallo Leute
Ich bräuchte bitte für einen Ferienkalender immer den Beginn der 3. Februarwoche (15.2.2010)
In A39 steht 1.2.2010
Hätte dazu bitte jemand eine Formel.
Gruß Heinz
04.08.2009 17:18:03
Thread-ID: 1093590
5 Beiträge
=VERWEIS(2;1/(D22:D33<>""); D22:D33)
Claudia

Hallo zusammen,
mittels dieser Formel
=VERWEIS(2;1/(D22:D33""); D22:D33)
suche ich mir die erste belegte Zelle im Bereich D22:D33. Jetzt muss ich aber die zweie belegte
Zelle von unten finden.
zum beispiel statt D25 soll D24 angezeigt werden.
Geht das auch mittels einer...
10.08.2009 15:52:18
Thread-ID: 1094771
6 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
8
6
6
2
3
15
7
1
4
5
5
2
4
11
4
2
10
4
3
2
44
2
1
6
12