Microsoft Excel – die neusten Beiträge

Verwandte Themen
fz234
08.07.2022, 21:07
Mit Bildern

VBA : wie erstelle ich Kombinationen mit einem if?

Moin!

Ich tue mich extrem schwer mit dem lernen, aber ich versuchs weiter.

Ich habe nun versucht etwas zu erstellen, das in excel wie die "wenn" funktion, funktioniert, aber ich bekomme es nicht hin.

Ich habe eine Lösung gefunden, wie ich kombinationen erstelle und möchte diese nun verfeinern.

Mir geht es darum das B und C kombiniert werden, aber nichts doppelt ist( aber nur wenn es spalten übergreifen ist!)

Wenn da jemand helfen kann und lust, auf eine umfangreiche erklärung hat, dann freut mich das, ansonsten versuche ich mir die erklärung selber bei zu bringen. :)

Sub Alle()                                             'Name


Dim xDRg1, xDRg2 As Range                                   'Namen der Tabelle als "fortlaufenden bereich"
Dim xRg  As Range                                           '
Dim xStr As String                                          ' String für das leerzeichen
Dim xFN1, xFN2 As Integer                        
Dim xSV1, xSV2 As String

Set xDRg1 = Range("B2:B11")                                 'Tabelle 1
Set xDRg2 = Range("C2:C11")                                 'Tabelle 2


xStr = " "                                                  'Trennzeichen

Set xRg = Range("L5")                                       'Zelle für die Ausgabe


' wenn zeichen 1&2 aus der ersten Zelle in "B"  "nicht gleich" Zeichen 1&2 oder 4&5( wegen dem leerzeichen)aus der ersten Zelle aus "C",
' oder wenn zeichen 4&5 aus der ersten Zelle in "B"  "nicht gleich" Zeichen 1&2 oder 4&5( wegen dem leerzeichen)aus der ersten Zelle aus "C" sind,
' dann soll: ( ansonsten überspringen)

For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    
For xFN2 = 1 To xDRg2.Count
    xSV2 = xDRg2.Item(xFN2).Text
      

    
    
    xRg.Value = xSV1 & xStr & xSV2
        Set xRg = xRg.Offset(1, 0)                'Schreiben in die Zelle

       Next                                            'Ende der For Schleife
Next                                                 'Ende der For Schleife

End Sub
Bild zum Beitrag
Computer, Microsoft Excel, VBA, Informatik
2 Antworten
Gipfelstuermer
07.07.2022, 12:15

Excel Bezug auf anderes Tabellenblatt durch Zelllink?

Hallo zusammen,

ich habe da folgende Frage, ich habe mir eine kleine Formel gebastelt, die mir die Summen innerhalb eines gewissen Datumsbereichs auf einem anderen Tabellenblatt einsammelt: Die Formel ist die folgende: 

=SUMMEWENNS('2019'!$G:$G;'2019'!$A:$A;">="&DATUM($A22;SPALTE()-1;1);'2019'!$A:$A;"<="&DATUM($A22;SPALTE()-1;28))

Die Formel tut zur Veranschaulichung folgendes auf Tabellenblatt 2019 schauen ob in Spalte A das Datum in dem Bereich liegt und bildet dann die Summe der Spalte G in den betroffenen Bereichen.

Damit ich mir die Formel einfach runter/zur Seite ziehen kann hab ich bei Monat und Jahr mit einem Direktbezug bzw. einfach mit dem Spaltenindex gearbeitet.

Damit ich das ganze aber noch voll automatisieren kann würde ich gerne ebenso das '2019'! durch einen Link auf die Zelle A22, die für das aktuelle Datum genutzt wird austauschen, ist das irgendwie möglich?

Ergänzend noch eine weitere Frage, der maximal Monatstag, in dem Fall im Februar 28 bzw. 29, kann ich den nicht auch irgendwie automatisch generieren?, denn schließlich variiert der von Monat zu Monat und ich müsste ihn in jeder Formel erneut eingeben und im Falle des Februars sogar noch drauf achten ob Schaltjahr oder nicht. Denn wenn ich einfach immer Jahr;Monat;31 eingebe, kommt murks raus, keine Ahnung was dann Excel rechnet, aber dann werden noch weitere Tage zu raten gezogen, die gar nicht im Februar liegen.

Ich bedanke mich schonmal für Eure Inspiration.

MfG Gipfelstürmer

Computer, Microsoft Excel, Microsoft Office, Tabellenkalkulation, Formeln Excel
1 Antwort

Meistgelesene Beiträge zum Thema Microsoft Excel
Mehr meistgelesene Fragen zu Microsoft Excel