Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1104to1108
1104to1108
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Noch einmal offen (Tino) Array Variable Splitten)

Forumthread: Noch einmal offen (Tino) Array Variable Splitten)

Noch einmal offen (Tino) Array Variable Splitten)
chris
Hallo VBA Profis,
ich wollte eigentlich warten aber ich brauche schnell eine Lösung sonst kann ich´mit meinem Tool nicht weiter machen :(
Ich hoffe Ihr könnt mir helfen.
gestern habe ich eine Super Lösung für mein Problem von Tino bekommen.
Aber leider kann ich es nicht umbauen wie ich es brauche:(
Weil Tino den Bereich auf einem zellbereich nimmt zum Beispiel A1 bis A33
Aber ich die Kürzel und Namen schon in einem String habe.
bekomme es leider nicht alleine hin und würde mich sehr über Hilfe freuen.
Unten mit dem Link sieht mann meine letzte frage dazu.
Würde mich noch einmal sehr freuen wenn sich jemand die zeit für mich nimmt.
Vielen dank dafür im voraus!
gruß Chris
https://www.herber.de/forum/messages/1107725.html
Anzeige
AW:Zusatz
07.10.2009 08:43:33
chris
Noch einwas habe ich vergessen.
In tinos Exceldatei stehen die namen so:
"Christian" "Nachname" "AKürzel"
"Michael" "Nachname" "FKürzel"
aber in meinem Array(String) stehen die Namen einfach nebeneinander ohne die " "
Also etwa so:
"Christian Nachname AKürzel Michael Nachname FKürzel"
Zwischen den einzelnen Namen und kürzel steht ein chr(10) etwa so:
"Christian Nachname AKürzel chr(10) Michael Nachname FKürzel"
Vielen dank noch einmal !
Anzeige
String-Spezialsortierung
07.10.2009 09:37:22
Erich
Hi Chris,
kannst du das hier verwenden? 

Sub SortiereString2()
Dim Bereich As Range
Dim meAr, tempAr(), TextAr
Dim A As Long, AA As Long
Dim arrW, strQ As String
'                                   hier wird Beispiel-String strQ erstellt
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
arrW = Application.Transpose(Bereich.Value2)
strQ = Join(arrW, Chr(10))
'                                   ab hier wird strQ umsortiert
meAr = Split(strQ, Chr(10))
ReDim tempAr(0 To UBound(meAr), 1 To 1)
For A = LBound(meAr) To UBound(meAr)
If InStr(meAr(A), " ") > 0 Then
TextAr = Split(meAr(A), " ")
For AA = LBound(TextAr) To UBound(TextAr)
If AA + 1 > UBound(tempAr, 2) Then _
ReDim Preserve tempAr(0 To UBound(tempAr), 1 To AA + 1)
tempAr(A, AA + 1) = TextAr(AA)
Next AA
End If
Next A
prcQuickSort LBound(tempAr), UBound(tempAr), 3, True, tempAr
For A = 0 To UBound(tempAr)
meAr(A) = Empty
For AA = 1 To UBound(tempAr, 2)
meAr(A) = meAr(A) & tempAr(A, AA) & " "
Next AA
If Right$(meAr(A), 1) = " " Then meAr(A) = Left$(meAr(A), Len(meAr(A)) - 1)
Next A
strQ = Join(meAr, Chr(10))          ' strQ ist sortiert
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: String-Spezialsortierung
07.10.2009 10:18:45
chris
Hallo Erich,
ich Glaube nicht.
Weil du ja auch den String aus meheren zellen ausliest.
Aber ich habe in ja schon durch eine Schleife in einen String eingelesen.
und das nicht aus einem bereich A1 bis z.b A10 sondern aus meheren zellen die nicht nebeneinander stehen.
Dann habe ich den String den ich splitten möchte und dann sortieren.
Verstehst du mich ? Wenn nein vielleicht wird es im alten beitrag klarer.
Aber ansonsten passt es vielen Dank wenn du mir noch dabei helfen könntest wäre klasse!
gruß Chris
Anzeige
AW: String-Spezialsortierung
07.10.2009 11:31:00
Erich
Hi Chris,
doch, ich habe dich wohl richtig verstanden.
Wo der String herkommt, spielt doch keine Rolle.
In meinem Beispiel habe ich ihn (mit den 3 Codezeilen nach den Deklarationen) aus Daten einer Tabelle erzeugt.
Diese 3 Zeilen lässt du einfach weg. strQ wird bei dir anders belegt - wie genau, weiß ich ja nicht.
Dafür hatte ich auch die beiden Kommentare in den Code geschrieben.
Wenn du damit nicht klar kommst, solltest du besser deinen Code zeigen, damit wir den Sort einpassen können.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: String-Spezialsortierung
07.10.2009 14:34:58
chris
Hallo Erich,
danke noch mal für dein beispiel.
ich habe es jetzt einmal versucht zu erklären was ich leider ohne Hilfe nicht hin bekomme:(
Ich habe in deinen Code eingefügt wie du ´Die strq erstellst mit der das sortieren klappt.
Und wie ich die Strq erstelle mit der dasnicht klappt.
Könntest du mir sagen wie ich das umbauen muss das es auch mit meine Strq klappt ?
Wäre echt super Erich.
Danke
Option Explicit
Sub SortiereString2()
Dim Bereich As Range
Dim meAr, tempAr(), TextAr
Dim A As Long, AA As Long
Dim arrW, strQ As String
' hier wird deine Beispiel-String strQ erstellt  --- mit der es klappt das ganze sortieren
Set Bereich = Range("A1", Cells(Rows.Count, 1).End(xlUp))
arrW = Application.Transpose(Bereich.Value2)
strQ = Join(arrW, Chr(10))
'hier wird meine strq erstellt  --- hier wird meine strq erstellt mit der das Leider nicht  _
klappt (
For xx = 23 To 33
If MyWorkbook_test_User.Worksheets("daten_").Cells(ZeileDb, xx)  "" Then
strQ = strQ & Chr(10) & MyWorkbook_test_User.Worksheets("daten_").Cells(Zeile_Db, _
xx)
Else
End If
Next
'                                   ab hier wird strQ umsortiert
meAr = Split(strQ, Chr(10))
ReDim tempAr(0 To UBound(meAr), 1 To 1)
For A = LBound(meAr) To UBound(meAr)
If InStr(meAr(A), " ") > 0 Then
TextAr = Split(meAr(A), " ")
For AA = LBound(TextAr) To UBound(TextAr)
If AA + 1 > UBound(tempAr, 2) Then _
ReDim Preserve tempAr(0 To UBound(tempAr), 1 To AA + 1)
tempAr(A, AA + 1) = TextAr(AA)
Next AA
End If
Next A
prcQuickSort LBound(tempAr), UBound(tempAr), 3, True, tempAr
For A = 0 To UBound(tempAr)
meAr(A) = Empty
For AA = 1 To UBound(tempAr, 2)
meAr(A) = meAr(A) & tempAr(A, AA) & " "
Next AA
If Right$(meAr(A), 1) = " " Then meAr(A) = Left$(meAr(A), Len(meAr(A)) - 1)
Next A
strQ = Join(meAr, Chr(10))          ' strQ ist sortiert
Cells(1, 5) = strQ
End Sub

Anzeige
AW: String-Spezialsortierung
07.10.2009 16:07:42
Erich
Hi Chris,
ein klein wenig hab ich dein Einlesen noch umgestrickt, dann klappt es mit den Testdaten,
die in der Mappe stehen. 

Sub SortiereString2()
Dim meAr, tempAr(), TextAr
Dim A As Long, AA As Long
Dim arrW, strQ As String
Dim ZeileDb As Long, xx As Long
'  hier wird meine strq erstellt --- mit der das Leider DOCH klappt
ZeileDb = 11
'With MyWorkbook_test_User.Worksheets("daten_")
With ThisWorkbook.Worksheets(1)                 ' für Test: Daten in dieser Mappe
For xx = 23 To 33
If .Cells(ZeileDb, xx)  "" Then
If strQ  "" Then strQ = strQ & Chr(10)
strQ = strQ & .Cells(ZeileDb, xx)
End If
Next
End With
'                                   ab hier wird strQ umsortiert
meAr = Split(strQ, Chr(10))
ReDim tempAr(0 To UBound(meAr), 1 To 1)
For A = LBound(meAr) To UBound(meAr)
If InStr(meAr(A), " ") > 0 Then
TextAr = Split(meAr(A), " ")
For AA = LBound(TextAr) To UBound(TextAr)
If AA + 1 > UBound(tempAr, 2) Then _
ReDim Preserve tempAr(0 To UBound(tempAr), 1 To AA + 1)
tempAr(A, AA + 1) = TextAr(AA)
Next AA
End If
Next A
prcQuickSort LBound(tempAr), UBound(tempAr), 3, True, tempAr
For A = 0 To UBound(tempAr)
meAr(A) = Empty
For AA = 1 To UBound(tempAr, 2)
meAr(A) = meAr(A) & tempAr(A, AA) & " "
Next AA
If Right$(meAr(A), 1) = " " Then meAr(A) = Left$(meAr(A), Len(meAr(A)) - 1)
Next A
strQ = Join(meAr, Chr(10))          ' strQ ist sortiert
Cells(1, 5) = strQ                  ' Ausgabe
End Sub
Ob es dann auch in deiner Mappe funzt, hängt auch von den dortigen Daten ab.
Probier mal: https://www.herber.de/bbs/user/64930.xls
Kleine Tücken: ZeileDb hieß mal so, mal Zeile_Db. MyWorkbook_test_User ist unbekannt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: String-Spezialsortierung
08.10.2009 07:16:28
chris
weiß gar nicht was ich sagen soll.genau so wollte ich es !!
Vielen Vielen Dank an Dich Erich !
Nach mehrern Ansätzen genau richtig !
Auch An Tino herzlichen danke !!!!!!!! Auch dein Code klappt perfekt !!
Danke an euch !
AW: AW:Zusatz
07.10.2009 09:43:48
Martin
Hallo,
wie ist der Zeilenumbruch in Deinem String definiert? - Durch ein Chr(13)? - Oder sind alle Zeilen ohne Trennungszeichen in Deinen String eingelesen? Also so:
"Christian" "Nachname" "AKürzel" "Michael" "Nachname" "FKürzel" "Thomas.....
Viele Grüße
Martin
Anzeige
AW: AW:Zusatz
07.10.2009 10:11:37
chris
durch chr(10) ist der zeilenumbruch definiert.
danke erst einmal.
vielleicht so...
07.10.2009 15:32:05
Tino
Hallo,
hier die Lösung, habe ich auch in den anderen Beitrag geschrieben, nur den Code in Modul2 ersetzen.
Sub SortiereString()
Dim Bereich As Range
Dim meAr, tempAr(), TextAr
Dim A As Long, AA As Long
Dim strMeinText As String

strMeinText = "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Christian Nachname AKürzel" & Chr(10) & _
              "Michael Nachname FKürzel" & Chr(10) & _
              "Thomas Nachname BKürzel"

meAr = Split(strMeinText, Chr(10))

Redim Preserve tempAr(Ubound(meAr), 0)

For A = 0 To Ubound(meAr)
    If InStr(meAr(A), " ") > 0 Then
        TextAr = Split(meAr(A), " ")
        For AA = Lbound(TextAr) To Ubound(TextAr)
            If AA > Ubound(tempAr, 2) Then Redim Preserve tempAr(Ubound(tempAr), AA)
            tempAr(A, AA) = TextAr(AA)
        Next AA
    End If
Next A

prcQuickSort Lbound(tempAr), Ubound(tempAr), 2, True, tempAr

strMeinText = ""

For A = 0 To Ubound(tempAr)
   
    For AA = 0 To Ubound(tempAr, 2)
     strMeinText = strMeinText & tempAr(A, AA)
     If AA < Ubound(tempAr, 2) Then strMeinText = strMeinText & " "
    Next AA
    If A < Ubound(tempAr) Then strMeinText = strMeinText & Chr(13)
Next A

 MsgBox strMeinText
End Sub
Gruß Tino
Anzeige
mach aus *.gif noch *.jpg im Code oT.
07.10.2009 21:27:21
Tino
Kommentar war hier falsch. sorry oT.
08.10.2009 14:47:24
Tino
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
Anzeige
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
Variable Liste in VBA
Diana

Liebes Forum,
ich habe ein Problem. Ich lese mit einem VBA-Makro Messwerte aus. Diese Messwerte werden über einen Namen auf einem anderen Rechner angesprochen. Derzeit gebe ich diese Namen (Adressen) direkt in das Makro ein.
strSQL = "SELECT k055z02_0.Zeit, k055z02_0.A00100001, ..., .....
14.08.2009 14:59:47
Thread-ID: 1096000
4 Beiträge
Variable in Dateiöffnungsdialog integrieren
Robert

Hallo und Mahlzeit!
Meine Versuche schlugen leider fehl, deshalb die Frage und Bitte zugleich:
Ist es möglich, die Variable, in Zeile '0' als Auswahlkriterium in Zeile '4' so zu integrieren, daß nur die Dateien zur Auswahl erscheinen, die auch die Variable enthalten? Wenn ja, wie?
0...
04.09.2009 13:04:27
Thread-ID: 1100612
3 Beiträge
makro - datei mit variabler Datum öffnen
meixner

Hallo zusammen,
brauche ein Makro, daß eine Datei automatisch öffnet, deren Datum sich quartalsweise ändert!
Datei = "I:\99\8801\FM\IA files \Fondsbestand_20090907"
Datei heißt im Dez. aber Fondsbestand_20091207. Kann ich das Datum irgendwie variabel anlegen?
mit Datei = "I:\99\...
03.10.2009 21:02:11
Thread-ID: 1107038
2 Beiträge
Anzeige
Summe mit Variable in VBA
chrissey

Hallo Leut,
hab folgende Zeile in VBA die mir in der Zelle (LeZe, 10) eine Summe bilden soll:
'Worksheets("Auswertung").Cells(LeZe, 10).Formula = "=SUM(R[-5]C:R[-1]C)"
jetzt möchte ich aber die Länge der Summe durch eine Variable ersetzen,
also
-5 durch eine Variable z.B.: -...
08.10.2009 11:16:57
Thread-ID: 1108126
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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