Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
23.04.2024 08:20:37
VBA: Blatt als pdf per Mail. Blatt mit anderen pdfs vereinen
23.04.2024 08:04:28
4-fach verschachtelte WENN-Funktion
22.04.2024 22:36:13
Marko automatisch ausführen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1196to1200
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
1196to1200
1196to1200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Kombinationen aus zwei Spalten ermitteln

alle Kombinationen aus zwei Spalten ermitteln
Jockel
Hallo,
ich habe eine Tabelle mit zwei Spalten:
A_____________B______________
Beleg_________Code__________
125___________60____________
125___________40____________
122___________30____________
122___________30____________
usw.
Ich möchte nun per Makro ermitteln, welcher verschiedenen Kombinationen es gibt. Also jede Kombination, die es zwischen Spalte A und B gibt , soll EINMAL in einer neuen Tabelle gelistet werden.
In meinem Beispiel dürfte zB der DS 122 / 30 nur einmal in der neuen Tabelle erscheinen. Er kommt hier zweimal vor .
Kann man das per Makro machen ?
Danke
Jockel

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: alle Kombinationen aus zwei Spalten ermitteln
25.01.2011 09:28:18
Eugen
Hallo Jockel
Public Sub combinat()
Dim i As Long
Dim x As Long
Dim szKomb As String, bFound As Boolean
For i = 1 To 10000
If Sheets(1).Cells(i, 1).Value = "" Then Exit For
szKomb = Trim(Str(Sheets(1).Cells(i, 1).Value)) + "/" + _
Trim(Str(Sheets(1).Cells(i, 2).Value))
bFound = False
For x = 1 To 10000
If Sheets(2).Cells(x, 1).Value = "" Then
bFound = False
Exit For
End If
If Sheets(2).Cells(x, 1).Value = szKomb Then
bFound = True
Exit For
End If
Next x
If Not bFound Then
Sheets(2).Cells(x, 1).Value = szKomb
End If
Next i
End Sub
Gruss
Eugen
Anzeige
AW: alle Kombinationen aus zwei Spalten ermitteln
25.01.2011 19:42:07
Jockel
Hi,
dake für das Beispiel, habe es mal getestet, kommt aber immer eine Fehlermeldung ("Typen unverträglich")
hmm, kann da bitte noch mal drüber schauen ?
Danke
Jockel
Ergebnis passt nicht
26.01.2011 06:49:06
Marc
Moin!
Zum überprüfen: geh in den debugger (Debug-Modus) und halte in der gelb markierten Zeile die Maus auf die Werte. Wahrscheinlich steht ein string nicht als string oder so ähnlich.
Bei mir läuft, der Code, ich hab aber auf die Spaltenüberschriften verzichtet.
Außerdem kommt bei mir ein falsches Ergebnis, viel zu wenig kombinationen!
Gruß, Marc
Public Sub combinat()
Dim i As Long
Dim x As Long
Dim szKomb As String, bFound As Boolean
letzte_Zeile_A = Cells(Rows.Count, "A").End(xlUp).Row
letzte_Zeile_B = Cells(Rows.Count, "B").End(xlUp).Row
t = 1
'Achtung, Werte beginnen erst in Zeile 2!
For i = 2 To letzte_Zeile_A
For x = 2 To letzte_Zeile_B
szKomb = Trim(Str(Sheets(1).Cells(i, 1).Value)) + "/" + _
Trim(Str(Sheets(1).Cells(x, 2).Value))
Set gefunden = Range("D:D").Find(szKomb, lookat:=xlWhole)
If gefunden Is Nothing Then
Cells(t, "D").Value = szKomb
t = t + 1
End If
Next x
Next i
End Sub

Anzeige

309 Forumthreads zu ähnlichen Themen

Spalten aus über 400 excel files auslesen
marky

Hallo Excel Freaks !
Habe folgendes Problem.
Ich möchter über ein makro auf einen Ordner Zugreifen indem sich über 400 excel files befinden. Die excel files beinhalten nur ein Sheet wobei dieses den Namen des files hat (Also nicht Tabelle 1 oder Sheet 1 oder so).
Ich möchte dass das...
03.09.2008 21:44:41
Thread-ID: 1007240
5 Beiträge
Anzeige
Werte aus 2 Spalten vergleichen??
stefan

Hallo,
ich habe in 2 Spalten Werte. Wie kann ich prüfen, ob die werte in der einen spalte enthalten sind. WEnn sie enthalten sind, soll in einer 3.spalte ein text ausgegeben werden.
wie mach ich das am besten?
danke euch?
13.03.2009 16:57:19
Thread-ID: 1059944
4 Beiträge
Array Splitten Transponse Ausgabe in 2 Spalten
chris

Hallo VBA experten,
ich habe eine frage und bitte um eure Hilfe.
Ich komme alleine nicht weiter:(
Ich habe eine Tabelle1. In Spalte 1 Stehen z.b Werte untereinander.
27>27
17>17
6>6
17>1
usw...
diese möchte ich gerne in ein Array übernehmen und da...
23.04.2009 10:44:32
Thread-ID: 1070604
10 Beiträge
Anzeige
Spalten zählen und ausblenden
Sophie

Hallo liebe Forum-Leser!
Ich versuche in Excel sowas ähnliches wie MS Project darzustellen (weil das so gewünscht wird, fragt aber nicht warum).
Durch Datumseingabe (für Anfang und Ende des Projekts) will ich nur den Zeitstrahl (in Kalendeswochen) darstellen, so dass man die einzelne Sc...
15.06.2009 19:17:19
Thread-ID: 1081675
9 Beiträge
kombinationen aus spalten bilden
gh

hallo zusammen,
gibt es bei excel eine möglichkeit aus spalte 1 und 2 oder 1, 2 und 3 kombinationen zu bilden?
vielen dank im voraus!
lg
25.09.2009 12:52:27
Thread-ID: 1105553
11 Beiträge
Datum aus 2 spalten filtern
Gregor

Hallo
Ich habe in Spalte M ein Datum "Ausführung Beginn" und in Spalte N ein Datum "Ausführung Ende". Wie kann ich für einen bestimmten Zeitraum alle Daten zwischen Ausrührung Beginn und Ausführung Ende filtern. Zb. alle Arbeiten die in der Zeit vom 1.11.10 und 31.11.10 ausgeführt werden bz...
18.11.2010 20:16:31
Thread-ID: 1187609
3 Beiträge
+/- Ausgabe aufgrund Folge von 2 Spalteneinträge
2

Hallo Excelianer,
habt Ihr eine Idee, wie ich die +/- Einträge automatisiert auf Basis der 2 Regelen darstellen kann.
Die Spalten F,G,H, sind lediglich Hilfsspalten.
Ich scheitere immer daran, wenn ich auf einen vorherigen Block schauen muss. In Regel 1 muss ich ja im selben Bereic...
13.05.2011 16:01:26
Thread-ID: 1213743
2 Beiträge
Bedingte Formatierung - Differenz aus 2 Spalten
Grenouille

Hallo!
Ich suche nach einer Möglichkeit, mit bedingter Formatierung direkt sichtbar zu machen, ob eine Differenz zwischen 2 Spalten negativ wird.
Ich habe 2 Spalten:
HABEN und SOLL
und hätte gerne, dass die Spalte HABEN rot markiert wird, wenn die Zahl, die darin steht kleiner i...
25.11.2011 10:17:46
Thread-ID: 1239376
4 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
4
5
3
9
6
8
10
2
1
3
14
7
6
3
10
6
7
4
6
4
3
4
1
19
2