Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
von Tabelle 1 zu 2 kopieren dabei nach Priorität sortiern
zurück: Textbox Währungsformat auch mit negativem Betrag weiter: Zelle mit variablen Koordinaten kopieren (Range + Cell) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
granatapfel_hl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 08:41
Rufname:

von Tabelle 1 zu 2 kopieren dabei nach Priorität sortiern - von Tabelle 1 zu 2 kopieren dabei nach Priorität sortiern

Nach oben
       Version: Office 2010

Moin,

ich habe folgendes Problem:

In Worksheets("Daten") habe ich in den Zellen n-Begriffe, die alle mit einem Komma voneinander getrennt sind. Diese sollen nun durch ein Makro in ein anderes Worksheet übertragen werden und dabei stehen nun aber 5 Zellen (in einer Spalte) zur Verfügung. Diese sollen mit den Begriffen gefüllt werden. Dabei soll nach Möglichkeit in den ersten vier Zellen nach Priortät bestimmte Begriffe stehen und die fünfte Zelle ist dann eine Sammelzelle. Allerdings kann es auch sein, das lediglich ein Begriff zur kopieren ist und dieser keine Priorität besitzt, jedoch dann an erster Stelle von den fünf Zellen stehen soll.

Hierfür habe ich leider gar keinen gescheiten Ansatz um ein Makro zu schreiben. Abgedeckt werden soll eine Range von 100 Datensätzen (100 Zeilen in Worksheet Daten).

Ich hoffe ich konnte mich verständlich ausdrücken und bin gespannt ob jemand eine Lösung für mein Problem hat.

Vielen Dank und beste Grüße
granatapfel_hl
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 09:59
Rufname:
Wohnort: hamburg

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

hallo,
hier ein Bsp, wie man 100 Zeilen in Spalte A, Tabelle Daten abklappert und die einzelnen Zellinhalte am Komma trennt.
Bleibt die Frage, wie die Priorisierung aussehen soll...


Gruß
stefan


Code:
Sub prio()
Dim zeile, n, data
For zeile = 1 To 1
data = Split(Sheets("Daten").Range("A" & zeile), ",")
 For n = 1 To UBound(data)

 'Priorisierung?

 Next
Sheets(2).Range("E" & i) = Join(data, ",")
Next
End Sub
Gast



Verfasst am:
30. Apr 2014, 10:35
Rufname:

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

Hi Stefan,

Danke erstmal für deine Antwort.

Ich habe in einer Spalte mehrere Begrifflichkeiten stehen, die mittels Komma voneinander abegegrenzt sind. Ihnen voran geht immer eine eckige Klammer mit einem Länderkürzel. Die Priorisierung soll nach den Länderkürzeln angewandt werden. So ist zum Beispiel [US] Prio 1, [DE] Prio2, und in die 5te Zelle die noch frei ist sollen alle weiteren Begriffe aus der Zelle geschrieben werden, für den Fall, dass es mehr als 5 Einträge in der Ausgangszelle gibt.

Gruß
granatapfel_hl
Gast



Verfasst am:
30. Apr 2014, 12:34
Rufname:

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

hi,
teste mal dies.

Gruß
stefan


Code:
Sub prio()
Dim zeile, n, data, rest
For zeile = 1 To 3
data = Split(Sheets("Daten").Range("A" & zeile), ",")
 For n = 0 To UBound(data)
  If InStr(data(n), "[US]") Then 'Prio1
   Sheets(2).Range("A" & zeile) = data(n)
   data(n) = ""
  End If
  If InStr(data(n), "[DE]") Then 'Prio2
   Sheets(2).Range("B" & zeile) = data(n)
   data(n) = ""
  End If

 'usw für die Prios 3-4

Next
For n = 0 To UBound(data)
 If data(n) <> "" Then rest = rest & "," & data(n)
Next
Sheets(2).Range("E" & zeile) = Mid(rest, 2)
rest = ""
Next
End Sub
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 12:37
Rufname:
Wohnort: hamburg

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

ah,
Zitat:
For zeile = 1 To 3


muss heissen

Code:
For zeile = 1 To 100
granatapfel_hl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 13:43
Rufname:

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

Vielen Dank, das war genau das, was ich gesucht habe bwz gebraucht habe ;)

Schöne Feiertage!
granatapfel_hl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 13:47
Rufname:

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

Zu früh gefreut,

es kann auch sein, dass öfters ein Eintrag it US oder einer anderen Prio auftritt, es wird allerdings dann nur ein Eintrag in die neue Zelle geschrieben.
Wie muss ich den Code modifizieren, damit dann alle mit US in die Spalte geschrieben werden?

MfG
granatapfel_hl
stefan onken
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 14:34
Rufname:
Wohnort: hamburg

AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier - AW: von Tabelle 1 zu 2 kopieren dabei nach Priorität sortier

Nach oben
       Version: Office 2010

hi,
dann sollte es so gehen

Code:

Sub prio()
Dim zeile, n, data, rest
With Sheets(2)
For zeile = 1 To 3
data = Split(Sheets("Daten").Range("A" & zeile), ",")
 For n = 0 To UBound(data)
  If InStr(data(n), "[US]") Then 'Prio1
   .Range("A" & zeile) = .Range("A" & zeile) & IIf(.Range("A" & zeile) = "", "", ",") & data(n)
   data(n) = ""
  End If
  If InStr(data(n), "[DE]") Then 'Prio2
   .Range("B" & zeile) = .Range("B" & zeile) & IIf(.Range("B" & zeile) = "", "", ",") & data(n)
   data(n) = ""
  End If

 'usw für die Prios 3-4

Next
For n = 0 To UBound(data)
 If data(n) <> "" Then rest = rest & "," & data(n)
Next
.Range("E" & zeile) = Mid(rest, 2)
rest = ""
Next
End With

End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Autoausfüllen bzw. Kopieren von Zellen mit Formeln 3 UnitedBlue 1585 23. Feb 2005, 18:08
The BOO-M-AN Autoausfüllen bzw. Kopieren von Zellen mit Formeln
Keine neuen Beiträge Excel Formeln: Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K 1 diaphone 3407 28. Jan 2005, 09:53
SapceBird Automatisch Tabelle sortieren, Filtern, Teilergebnis ? E2K
Keine neuen Beiträge Excel Formeln: Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie? 4 excessor 1698 24. Jan 2005, 22:52
A.Knecht Dateinamen für zu öffnende Tabelle in Zelle vorgeben, wie?
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Verknüpfung Access Tabelle 1 DB_User 1788 17. Jan 2005, 11:54
ZeroCool Verknüpfung Access Tabelle
Keine neuen Beiträge Excel Formeln: Tabelle untereinander anordnen 2 Fser 2084 09. Dez 2004, 22:57
Reinhard Tabelle untereinander anordnen
Keine neuen Beiträge Excel Formeln: Kopieren von Namen in andere Mappe 0 Patrick0705 1279 26. Nov 2004, 16:51
Patrick0705 Kopieren von Namen in andere Mappe
Keine neuen Beiträge Excel Formeln: Tabelle 'automatisch' bereinigen 4 ExcelFan 2188 16. Nov 2004, 11:11
fridgenep Tabelle 'automatisch' bereinigen
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
Keine neuen Beiträge Excel Formeln: zusammengesetzten Hyperlink kopieren 4 Seppo110 570 07. Sep 2004, 12:22
Seppo110 zusammengesetzten Hyperlink kopieren
Keine neuen Beiträge Excel Formeln: Gleiche Einträge in Tabelle nummerich aufzählen 1 sauer 483 02. Sep 2004, 09:11
ae Gleiche Einträge in Tabelle nummerich aufzählen
Keine neuen Beiträge Excel Formeln: aus Tabelle auslesen und vergleichen 1 wiedenmann 2805 12. Aug 2004, 13:42
Arnim aus Tabelle auslesen und vergleichen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps