| |
| Die 10 hitzebeständigsten Materialien für den 3D-Druck, ein Fachartikel
|
Autor
|
Thema: Funktionen oder Makro??? (1185 mal gelesen)
|
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 12. Feb. 2015 15:32 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich muß eine SAP-Stüli nach Kundenwunsch "herrichten". Die im SAP abgespeicherte txt-Datei öffne ich im Excel und mit dem Textkonvertierungs-Assistent teile ich die Spalten ein. So weit so gut. Nun ist es so, dass ich gerne den Werkstoff in einer separaten Spalte (I) hätte. Nach dem konvertieren steht der Werkstoff in der Spalte Benennung (E). Wie kann ich den Werkstoff "packen"? Ich habe eine Spalte "Sachnummer" (F) und in der Zeile, wo auch der Werkstoff steht, ist in der Sachnummer "-S-" enthalten. Mann könnte dann doch sagen, schneide mir die Zelle aus, wo in der Zeile bei Sachnummer ein -S- enthalten ist und füge die Zelle in Spalte I ein. Der Werkstoff steht immer eine Zeile unter der dazugehörigen Bezeichnung. Ich weiss, kompliziert geschrieben, einfacher konnte ich es nicht. Ich hänge ein Bild an wo man sieht, die die Stüli nach dem konvertieren aussieht und noch ein Bild, wie ich es gerne hätte. DANKE mal Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 12. Feb. 2015 18:33 <-- editieren / zitieren --> Unities abgeben: Nur für röhmler
Hi Röhmler, Quick'n dirty:
Code: Sub umsortieren() Dim Zelle As Range For i = 1 To Cells(Rows.Count, 5).End(xlUp).Row If InStr(1, ActiveSheet.Cells(i, 6).Value, "S") > 0 Then ActiveSheet.Cells(i - 1, 9).Value = ActiveSheet.Cells(i, 5).Value ActiveSheet.Cells(i, 5).Value = "" End If Next i End Sub
HTH Tobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 12. Feb. 2015 18:48 <-- editieren / zitieren --> Unities abgeben: Nur für röhmler
|
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 13. Feb. 2015 07:55 <-- editieren / zitieren --> Unities abgeben:
|
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 13. Feb. 2015 11:35 <-- editieren / zitieren --> Unities abgeben:
Hi, jetzt versuche ich gerade noch, aus der Zelle mit dem Werkstoff und den Abmassen, die Anmaße in eine andere Zelle zu bekommen. ist leider nicht einfach, da dieser Text nicht immer an gleicher Stelle beginnt (siehe Beispiel) Ich möchte einen Teil aus der Zelle in die Zelle daneben ausschneiden und zwar genau ab dem Buchstaben R. Mit WENN und Finden komme ich einfach nicht weiter - habt Ihr eine Lösung? DANKE Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 13. Feb. 2015 12:25 <-- editieren / zitieren --> Unities abgeben:
Sooooooooooooooo, mit =LINKS(I3;FINDEN(" ";I3)) hab ich ketzt mal den Werkstoff in eine separate Spalte bekommen, aber die Abmaße krieg ich einfach nicht hin. Bin mal gespannt, ob über`s Wochenende eine/r Lust bzw ein Idee hat. Euch allen ein schönes Weekend - hier is jetzt Feierabend Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
MWN Mitglied Dipl.-Ing.
Beiträge: 492 Registriert: 14.02.2007
|
erstellt am: 13. Feb. 2015 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für röhmler
Such doch in dem String einfach nach dem ersten vorkommen von "R" und ab da an lässt du dir den rechten Teil vom String bis zum Ende zurück geben. Siehe Text-Funktionen von Excel. Fertig. Alternativ kannst du die Funktion im Makro mit einbauen. Wie man das erste vorkommen von "R" findet, steht in der If-Bedingung von meinem Makro. Und beim Rest hilft dir Onkel Google... Grüße und ein schickes WE Tobias ------------------ Besucht mich doch mal in meiner Tischlerei "...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder "...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Thomas Harmening Moderator Arbeiter ツ
Beiträge: 2897 Registriert: 06.07.2001 Das Innerste geäussert und aufs Äusserste verinnerlicht
|
erstellt am: 13. Feb. 2015 18:39 <-- editieren / zitieren --> Unities abgeben: Nur für röhmler
Zitat: Original erstellt von röhmler:
vielen Dank - Makro funktioniert bestens, Formel leider nicht!
hmm, was funktioniert an der Formel nicht? Die Formel funktioniert IMHO einwandfrei - Threadtitel -Funktionen oder Makro? Das eine Formel keine Zellen löschen kann, habe ich ja dazugeschrieben - siehe bsp mappe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 16. Feb. 2015 07:03 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen, danke für den Hinweis "Google". Dann brauch ich ja dieses Forum gar nicht wenn ich googeln soll - Danke für den Tip P.s ein Hinweis, mit welcher Funktion ich es schaffen kann wäre trotzdem nett gewesen, denn ich bin halt so blöd und kann mit der Excelbeschreibung die richtige Funktion nicht finden und bei google sind halt auch gerade die Beispiele drinnen, die ich nicht brauche! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
röhmler Mitglied Sachbearbeiter techn. Dokumentation
Beiträge: 421 Registriert: 17.02.2004 AutoCAD Mechanical 2014
|
erstellt am: 16. Feb. 2015 08:06 <-- editieren / zitieren --> Unities abgeben:
Guten Morgen nochmal, also Deiner Meinung nach hätte ich dass selber finden müssen als "Seltenst Formelanwender"??? =TEIL(E4;FINDEN(" ";E4)+1;FINDEN(" ";E4;FINDEN(" ";E4)+1+4)-FINDEN(" ";E4)) Keine Ahnung was +1 in einer Formelö bedeutet, genau so wie -FINDEN Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |