Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Array Sortieren IF String Bedinnung

VBA Array Sortieren IF String Bedinnung
06.07.2022 12:15:20
Alexander
Hallo Leute,
ich habe vor langer Zeit mal was gemacht um ein Array zu sortieren, funktioniert auch, nun wollte ich noch eine Bedingung dazu machen, dass er nur Werte die mit "-" anfangen mit sortieren soll, allerdings bin ich zu lange raus aus den Sachen und bekomme es nicht mehr hin.
Das " And Ar(Left(Wert1, 1)) = "-" habe ich hinzugefügt zu dem Zweck, aber das funktioniert nicht, nun sortiert er gar nichts mehr.
Vielleicht kann mir mal jemand geschwind helfen, danke!

For Wert1 = 1 To UBound(Ar)
For Wert2 = Wert1 + 1 To UBound(Ar)
If Ar(Wert1)
Gruß

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 12:22:24
Oberschlumpf
Hi Alexander
kannst du uns bitte per Upload eine Bsp-Datei zeigen, die folgendes enthält:
- in Spalte A Bsp-Daten = unsortiert
- in Spalte B Bsp-Daten = so sortiert, wie du es haben möchtest
Ich versteh schon nicht, wo in der Gesamtspalte die Bsp-Zeilen, die mit "-" anfangen, stehen sollen?
Ciao
Thorsten
AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 12:58:29
Alexander
Hallo Thorsten,
das ist a wenig komplizierter da das in einem 5000 Zeilen Code mit drinnen ist.
Im Endeffekt stehen alle Werte in einer Zelle untereinander und per Eingabemaske füge ich punkte hinzu, die ich dann eben bevor die Werte wieder in die gleiche Zelle geschrieben werden nach Datum sortiere und die erste Zeile wird dabei ausgelassen, das ist dann die Überschrift.
In A1 Steht dann z.B
Überschrift
-20.5.22 : A
-20.5.22: B
-20.5.22: C
Per Eingabemaske füge ich dann z.B "-21.5.22: D" hinzu, das wird dann Absteigend sortiert und zurück in die Zelle geschrieben, da steht dann eben:
Überschrift
-21.5.22: D
-20.5.22 : A
-20.5.22: B
-20.5.22: C
Es handelt sich aber wirklich um nur eine einzelne Zelle!
Der Teil sieht dann so aus:

Dim Ar() As String
Dim A As String
Dim Wert1 As Integer
Dim Wert2 As Integer
Dim Temp As String
Dim Ausgabe As String
Dim zeLLe As Range
Dim umbrPos As Long
Dim I As Integer
Dim Text As String
A = Range(ActiveCell.Address).Value
Ar = Split(A, Chr(10))
'"And Ar(Wert2)  "*"
'Text = "-*"
For Wert1 = 1 To UBound(Ar)
For Wert2 = Wert1 + 1 To UBound(Ar)
If Ar(Wert1)  0 Then
zeLLe.Characters(1, umbrPos).Font.Bold = True
End If
Next
Application.ScreenUpdating = False
Range("C19", "J115").RowHeight = 50
Application.ScreenUpdating = True
' I = InStr(1, Cells(zeile, 2), " ") - 1
' Cells(zeile, 2).Characters(1, I).Font.Bold = True
form_exit = vbOK
Unload Me
End Sub

Anzeige
AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 13:14:14
peterk
Hallo
Wenn schon:
Left (Ar(Wert1),1) = "-"
Peter
AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 13:29:30
Daniel
Hi
wenn du nach dem Datumwert zwischen - und : sortieren willst, solltest du nicht Ar(Wert1) und Ar(Wert2) vergleichen, sondern:

CDate(Mid(left(Ar(Wert1), Instr(Ar, ":") - 1), 2))
die Umwandlung in ein Datum für den Vergleich solltest du sowieso machen, da du ansonsten Text hast und bei Texten ist "11" kleiner als "2", ebenso willst du ja sicherlich die korrekte Reihenfolge, wenn die Datumwerte Monatsübergreifend sind
Gruß Daniel
AW: VBA Array Sortieren IF String Bedinnung
06.07.2022 13:55:29
Firmus
Hi Alex,
aufgefallen: 

 If Ar(Wert1)
Ich meine, dass
IF .... AND Left(Wert1, 2)) = "-" Then wird nie zutreffen, da LEFT(Wert1,2) zwei Zeichen anwendet, aber nur mit "-" (einem Zeichen) verglichen wird.
Gruß,
Firmus
Anzeige

326 Forumthreads zu ähnlichen Themen

String in Zeilen suchen
Herbert

Hallo liebe Gemeinde
Ich habe mir vor längerer Zeit von Euch helfen lassen, um in der Spalte A rückwärts nach Text zu suchen.
In Spalte A kam bisher der jeweilige Name einer Abteilung (den suche ich) und laufende Nummern vor, klappt prima mit folgendem Code:
Sub a_String() iRow =...
28.10.2008 14:20:00
Thread-ID: 1019944
7 Beiträge
Anzeige
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
VBA-Code in einem String erzeugen und dann ausführ
Dirk

Hallo!
Gibt es eine Möglichkeit, VBA-Code auszuführen, der in einer String-Variablen vorliegt, die zuvor dynamisch erzeugt wurde? Sprich: Ich möchte VBA-Code dynamisch erzeugen und anschließend ausführen. Geht das irgendwie?
Ich hoffe, das ist so verständlich.
Vielen Dank,
Dirk<...
20.01.2009 20:08:36
Thread-ID: 1041981
4 Beiträge
Anzeige
Wert suchen, eintragen, weitersuchen (VBA)
Nico

Moin
Nachdem ich Gestern mein Problem mit einem Sverweis über mehrere Zellen lösen wollte (Danke nochmal an Josef Ehrensberger) habe ich heute feststellen dürfen, dass es zwar funktioniert - aber die Verzögerung auf Grund der Masse an Daten doch zu hoch ist.
Hier also mein Problem zieml...
26.02.2009 09:19:15
Thread-ID: 1054225
11 Beiträge
VBA Wert suchen, Wert einfügen
andreas

Hallo zusammen,
wie muss ich den Code schreiben, suche nach Zeilen in denen die Zelle "B" nicht leer ist.
In der Zeile in der die Zelle "B" nicht leer ist soll dann in Zelle "P" der Wert "1" eingetragen werden.
Danke für die Hilfe
Andreas
09.03.2009 08:27:39
Thread-ID: 1057988
8 Beiträge
suchen kopieren einfügen vba
Bea

Hallo zusammen
Ich hab folgendes Problem.
in der angehängten Beispielmappe möchte ich, das die in Arbeitsblatt "Nummern" hinterlegten Anfänge von Telefonnummern in Arbeitsblatt "evnachweis" gesucht die jeweiligen Zeilen kopiert und dann in Arbeitsblatt in dem Fall "Februar" (am besten...
10.03.2009 11:55:49
Thread-ID: 1058557
9 Beiträge
bedingte Formatierung suchen u. ersetzen durch VBA
Peter

Guten Tag
Ich habe in einer Tabelle an verchiedenen Orten immer die gleiche bedingte Formatierung (Bedingung ist eine Formel). Nun möchte ich diese überall durch eine andere bedingte Formatierung ersetzen.
Ist dies möglich, mit Hilfe von VBA? Wenn ja, wie?
Danke für eine Antwort.
19.03.2009 06:55:03
Thread-ID: 1061661
8 Beiträge
In Spalte nach Wert suchen VBA
andreas


Hallo zusammen,
ich habe hier eine Tabelle, da will ich nach jeder Änderung in der Tabelle in Spalte "F" nach Wert "Spritzgießen" suchen und bei den gefundenen Zeilen die Zellen "B-N" rot einfärben und mit Rahmen versehen.
Komme aber wegen Mangels VBA-Erfahrung nicht klar damit.
03.04.2009 13:05:41
Thread-ID: 1066652
5 Beiträge
Anzeige

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
6
1
1
3
2
10
7
8
7
4
5
4
6
2
2
13
3
9
3
4
2
3
3
1
2