Verwandte Themen

QQwertz123
11.11.2020, 11:49
VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

PC, Computer, Microsoft Excel, programmieren, VBA, VBA Programmierung, Range, VBA Excel
2 Antworten
fx8350
08.09.2020, 19:35
Mehrere MsgBox-Abfragen hintereinander möglich?

Hallo, da hier doch so viele Könner unterwegs sind: Ich hänge schon wieder fest.

Ich habe zwei msg-Boxen vbYesNoCancel. Wenn die erste Box mit Ja bestätigt wird, wird eine Prozedur gestartet.
Wenn ich den Button Abbrechen klicke, soll die zuletzt geöffnete Userform neu geladen und die Sub beendet werden.

Wenn ich den Nein Button klicke öffnet sich die nächste msg Box vbYesNoCancel.
Wenn nun Ja geklickt wird, wird wieder eine Prozedur gestartet, beim Abbrechen wieder die Userform neu geladen und die Sub beendet.
Und bei Nein wird eine weitere Prozedur gestartet.

Eigentlich dürfte es ja nicht schwer sein, aber bei mir hängt es. Die Userform wird neu geladen aber die nächste msg Box öffnet nur und dann passiert nichts, wenn ich dort einen Button klicke.

So sieht es nun aus (und vielen Dank im Voraus):

Public Sub InspectionCriterion()
    Dim msg As String, msg2 As String, msg3 As String
    msg = MsgBox("Ist das Merkmal ein Gewinde?", vbYesNoCancel + vbQuestion, "")
    


    If msg = vbYes Then
    UserFormThread.Show
    ElseIf msg = vbNo Then
    msg2 = MsgBox("Ist das Merkmal zu messen?", vbYesNoCancel + vbQuestion, "")
    ElseIf msg = vbCancel Then
    Call InspectionFeatures
    Exit Sub
    


    If msg2 = vbYes Then
    UserFormDimension.Show
    ElseIf msg2 = vbNo Then UserFormText.Show
    Else
    Exit Sub
    End If
    End If
    
    
End Su
Computer, Microsoft Excel, VBA Excel
1 Antwort
Drakkari
04.08.2020, 07:30
Mit Bildern
Pivot-Tabelle Formatierung löschen aber die Daten in der Tabelle beibehalten?

Hallo Liebe Freunde der Sonne,

ich hab ein kleines Excel Problem und verzweifle grad dran, weil ich anstatt meine Arbeit durchzuführen stundenlang mit Excel Formatierung mich rumplagen darf.

Folgendes Szenario:

Ich darf die Inventur all unserer Netzwerkkomponenten durchführen. Leider hat der Typ der die Excel Tabellen erstellt hat, alles voller Formatierungen zugekleistert. Von Spalte fixieren, über Zeilen ein-/ausblenden, doch am aller schlausten.. Er hat alles in eine Pivot Tabelle gepackt. Somit ist es mir nicht möglich die Spalten im Nachhinein zu versetzen / anders anzuordnen.

Ich hab 32 Listen, und keine Liste gleicht von den Spalten her der anderen. Also hab ich jetzt 1 Tag damit verbracht die Unterschiede zu ermitteln. Nun möchte ich die Tabellen anpassen, damit alle am Ende im gleichen Format sind. Dann kann ich damit beginnen, die Datensätze (Zeilen) wo alles OK ist rauszulöschen, sodass mir nurnoch die Zeilen übrig bleiben wo noch was an der Doku angepasst werden muss. Diese darf ich dann noch in Clearing Listen einteilen, nach Schema "müssen wir anpassen", "muss ne andere Abteilung anpassen wo wir keine Rechte haben" etc.

Nur dass ich wegen dieser Pivot-Tabellen Formatierung die Spalten nicht anpassen kann. Ich möchte z.b. Konkret, vor Spalte A eine weitere Spalte einfügen. Und Spalte K in die neue Spalte A einfügen. Das klappt zwar, damit ist die neue Spalte A aber nicht teil der Pivot Tabelle. Zwischen Spalte A u. B eine neue Spalte einfügen, A nach B rüberziehen u. K in A rein geht auch nicht. Krieg dann immer fehlermeldung das es nicht unterstützt wird.

Am liebsten würde ich daher einfach die Pivot Tabellen Formatierung ganz löschen, weils außer der Übersichtlichkeit überhaupt kein Nutzen hat. Und dazu gibts andere Wege, dafür brauch ich keine Pivot Tabelle die dann nur Probleme verursacht.

Also lrks, wie kann man die Pivot Tabelle ausschalten, ohne die Werte in der Tabelle zu löschen?

Bild zum Beitrag
Microsoft Excel
2 Antworten

Meistgelesene Beiträge zum Thema Microsoft Excel

Mehr meistgelesene Fragen zu Microsoft Excel