Microsoft Excel – die besten Beiträge

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

Hallo,

wir haben unterschiedliche Arbeitsplätze mit diversen Druckertreibern.
Dadurch sehen manche Excel-Tabellen bei jedem unterschiedlich aus, wodurch die Zeilen teilweise auf eine neue Seite verschoben werden.

Kann man das ggf. mit Excel-VBA sicherstellen, dass es gleich bleibt?

Danke im Voraus.

Hallo Gutefrage-Community !

Ich möchte meine - mehrfach am Tag zu messenden - Blutdruckwerte (diastolisch/systolisch) und den dazugehörigen Puls in einem EXCEL-Diagramm festhalten - mit Verbindungslinien, etc.

Kennt hier jemand eine derartige EXCEL-Software ?

Danke für eine baldmögliche Antwort -

Eine corona-freie Zeit wünscht:

schmanky. Berlin.

Hallo,

ich habe ein Problem:
Es ist erforderlich, dass ich alle pdf-Quellenangaben verlinke in Excel. Jedoch muss ich diese Datei dann verschicken und damit ist auch der Pfad weg!?
Es müsste doch irgendwie die möglichkeit geben, den Pfad nur auf den jeweiligen Ordner zu beziehen den ich dann gemeinsam mit der Excel_Datei auf einem anderen Computer öffnen kann?
Es wäre super, wenn mir hier jemand weiterhelfen könnte.
Ich hoffe es findet sich jemand, der/ die das weiß.
LG und Danke

Wenn ich in Wasser 25g oder 50g Hefe werfe. Ist dann die Startzelldichte doppelt so groß oder sind das und Masse der Zellen die man reintut unterschiedliche Dinge?

Hallo,

wie muss ich diesen Code hier umschreiben damit NICHT die Unterordner der Unterordner angezeigt werden, sondern nur die der 'ersten Stufe'.

Also angenommen auf dem Laufwerk C:\ sind die Ordner

A, B, C, D, E

und diese Unterordner von C:\ enthalten jeweils auch Unterordner Namens
aa, bb, cc, dd, ee,

Dann schreibt der bisherige Code

A - aa
bb
cc
dd
ee
B - aa
bb

und so weiter.
Ich brauche aber nur die Ordner A, B, C, D, E und nicht deren Unterordner.

Public Sub OrdnerListen_Start()

  Dim fso As Object
Dim strPfad As String

    strPfad = "C:\"  

With ActiveSheet   

    .UsedRange.ClearContents

    Set fso = CreateObject("Scripting.FileSystemObject")

    Call OrdnerListen(fso, strPfad, .Range("A1")) ' Pfad anpassen!

    Set fso = Nothing

   End With

   End Sub

Private Sub OrdnerListen(fso As Object, Ordnerangabe As String, rng As Range, Optional Zeile As Long, Optional Spalte As Long)

On Error Resume Next

  Dim o, uo

  Set o = fso.GetFolder(Ordnerangabe)   

  rng.Offset(Zeile, Spalte).Value = o.Name    
Zeile = Zeile + 1

  For Each o In o.SubFolders

    Call OrdnerListen(fso, o.Path, rng, Zeile, Spalte)

  Next

  Set o = Nothing
Set uo = Nothing

End Sub

Hi!

Folgende Herausforderung: Ich möchte immer sehen können, wie viel Umsatz wir an welchen Tag gemacht haben, ohne am Ende des Tages den aktuellen Wert irgendwo einzutippen.

Derzeit funktioniert es so (siehe Bild). In der rechten Tabelle wird laufen und automatisch die Zahlen der jeweiligen Leistungen für die jeweiligen Kunden aus anderen Tabellen übernommen. Das heißt, diese Zahlen ändern sich quasi alle paar Minuten und damit auch der derzeitige Gesamtumsatz. Um jetzt genau zu sehen, wie viel Geld wir pro Tag verdienen schreibe ich jeden Abend nach "Geschäftsschluss" den derzeitigen Gesamtumsatz rechts unter das Datum. Den Tagesumsatz rechnet es sich dann ganz leicht aus. Einfach Umsatz von heute minus Umsatz von gestern.

Hier nun meine Frage: Gibt es irgend eine Funktion, die das übernehmen kann? Da wir in Google Sheets arbeiten muss es eine Funktion sein und kann nicht mit VBA passieren. Im Endeffekt will nur, dass am "Ende des Tages" die aktuelle Zahl unter das Datum geschrieben wird und diese Zahl sich nicht mehr ändert (egal ob die Zahl größer wird oder sich der Tag ändert). Die "Überlegung" was die Funktion machen soll hab ich auch im Screenshot.

Vielen Dank schonmal im Vorraus!

da sollen Temp und V in Abh zur Zeit dargestellt werden. Wie packe ich beide Versuche in 1 Diagramm?

Und wie kann ich Die Temperaturen unabhängig davon darstellen mit eigener y-achse auf der rechten Seite?

Hallo, ich möchte gerne Felder farbig formatieren wenn dort ein bestimmter Buchstabe drin steht. Die Excel Datei hat zwei Blätter.

Blatt 1 = Übersicht
Blatt 2 = Karte

In Blatt 1 Übersicht B3 bis AF3 können 3 versch. Buchstaben auftauchen. Je nach Buchstabe soll sich ein Feld in Blatt 2 Karte B3 bis B33 färben. Das möchte ich gerne mit bedingter Formatierung lösen.

F = Grün, S = Rot, N = Blau

Ich bin für jede Hilfe Dankbar

Guten Abend

Ich will meine Exceltabelle als Rechner brauchen

Ich muss manchmal Flächen und manchmal Volumen berechnen

In Feld D2 ist die Stückzahl, in Feld E2 ist die Länge, in Feld F2 ist die Breite und G2 ist die Höhe.

Das resultierende Feld ist I2. jetzt ist es so, dass ich beim Flächenmass die höhe wenn möglich nicht angeben will. Aber das Programm soll selber erkennen, ob ich ein Flächenmass oder ein Volumen brauche.

Das Resultat der Fläche muss auf 2 Nachkommastellen abgerundet werden und das Volumenmass auf 3 Nachkommastellen abgerundet.

Ich hab schon viel recherchiert, aber es ist mir leider zu kompliziert.

Hallo zusammen,

folgende Bilder sollen mein Anliegen erklären.

Ich habe in Excel ein Diagramm erstellt. Die horizontale Achsenbeschriftung richtig ausgewählt.. wieso ändert er die nicht um?

Hi!

Folgende Herausforderung: Ich möchte immer sehen können, wie viel Umsatz wir an welchen Tag gemacht haben, ohne am Ende des Tages den aktuellen Wert irgendwo einzutippen.

Folgende Gegebenheiten: Ich habe schon ein Sheet für mich, das anhand eingegebener Daten meiner Mitarbeiter den Verdienst pro Kunden automatisch eintragen. Nun könnte ich theoretisch jeden Abend den aktuellen Verdienst kopieren und in eine Zelle einfügen und dann sagen "Verdienst bis Heute Abend - Verdienst bis Gestern Abend = Summe, was heute verdient wurde". Nun möchte ich mir aber den Schritt sparen, dass ich jeden Tag manuell den aktuellen Umsatz abtippe.

Gibt es irgendeine Formel, die am z.B. Tagesende eine Wert übernimmt und diesen Wert dann nach einer geiwssen Zeit nicht mehr ändert? Bei den ganzen Wenn Dann Funktionen mit Datum etc. trifft ja am nächsten Tag die Bedingung logischerweise nicht mehr ein und deswegen wird immer ein Fehler angezeigt

Ich möchte mit RANG(Zahl;Bezug;[Reihenfolge]) die Zahlen

3, 16, 6, 15, -10 aufsteigend ordnen 1,2,3,4,5 wobei die minus 10 die schlechteste Zahl darstellt. Also rangmässig Rang 5.

Mit der Formel RANG ist -10 gleich Rang 1 .
wie kann erreicht werden, dass die Minuszahlen die gewollte Rangreihe ausgibt?

Danke führ die Hilfe.
Gruss: Fredi Krebs

Hallo liebe Community,

ich habe mal wieder eine Excel Frage an die Spezialisten hier =).

Tabellenumfang derzeit ca 9.800 Zeilen

Ist es möglich, Zeilen (Spalte A-D) mithilfe einer Formel zu kopieren, wenn ein Wert in Spalte A-C unterschiedlich ist?

Zur Erläuterung:

Spalte A-C wiederholen sich des Öfteren, haben aber immer einen unterschiedlichen Wert irgendwo stehen. Wenn die Werte in A-C gleich sind, ist der Wert in D auch gleich und deswegen uninteressant.

Meine Überlegung:

Wenn ich nur die unterschiedlichen Werte in Spalte D nehmen würde und von dort aus die Zeile kopieren könnte wäre es denke ich leichter.

NACHTRAG zu Meine Überlegung:

Diese Idee ist leider hinfällig, da sich die Werte in D teilweise bei anderen Konstellationen zwischen A-C wiederholen.... Ich brauche demzufolge eine andere Möglichkeit als das "normale Filtern". Danke :)

Danke für eure Antworten :).

Hallo,

ich hätte ein Problem in Java und zwar bekomme ich es zwar hin die werte in einer Spalte einer CSV Datei in Integer umzuwandeln, doch das Problem liegt in der ersten Zeile der Spalte und zwar ist dieses ein Wort, die nächsten Daten in der Spalte sind dann Zahlen(Bsp.: Key,1,2,3,4,5), wenn ich diese dann als Integer ausgeben will bekomme ich den Fehler das das Wort der ersten Zeile kein Int wert sein kann, was auch logisch ist, deshalb wollte ich fragen wie ich es so machen könnte das nur ab der zweiten Zeile die Werte in Integer umgewandelt werden statt die ganze Spalte mit dem ersten Wort.

Hallo,

Ich muss für die Schule eine Tabelle auswendig lernen.

Kennt jemand eine Möglichkeit diese zu digitalisieren und online zu üben?

Lg

Ich habe in Excel einen Dynamischen Kalender erstellt nun möchte ich das die Feiertage angezeigt werden.

Hallo,

Mein nächster Laptop soll ein Chromebook werden.

Jetzt habe ich die letzten Jahre immer die Office Produkte von Microsoft benutzt, und wollte jetzt fragen ob ich bedenkenlos auf Google Docs, Sheets und Präsentationen wechseln kann.

Ich muss *offline* wohlgemerkt Dokumente erstellen und bearbeiten können. Und da ich bald viel mit Excel/ Docs arbeiten werde wollte ich fragen ob es da Unterschiede, zum Beispiel bei den Formeln gibt.

Kurz und knapp: Es muss einfach alles gleich laufen wie bei Office von Microsoft

Danke für die Antworten.

Hallo,

ich habe eine Multiseite mit 10 Seiten (ANPage1 - ANPage10). Beim öffnen der Multiseite wird bereits die richtige Anzahl an Pages ausgegeben (Anzahl geht aus Tabelle 2 A10 hervor.

Wenn ich nun über ein anderes Steuerelement (hinzufügen oder entfernen) auf dem Userform den Wert für A10 um +/- 1 ändere (je nach Steuerelement), soll auch entsprechend die Page .Pages("ANPage").Visible = True gesetzt werden.

Beispiel:
in A10 steht die Zahl "5". Es wird mit öffnen der Multiseite 5 Pages ausgegeben. Drücke ich nun auf den Button "hinzufügen", dann wird der Wert in A10 "6". entsprechend soll nun die ANPage6 auf Visible = True gesetzt werden.

Wenn ich nun auf den Butten "entferne" drücke, dann wird aus A10 die Zahl "5" und entsprechend soll die ANPage6 auf Visible = false gesetzt werden.

Ich weiß, es sind zwei verschiedene Befehle und wird wahrscheinlich eine Schleife? sein, jedoch habe ich da keine Ahnung, wie ich dies umsetze. Das drumherum im Befehl steht bereits.

Wahrscheinlich denke ich auch zu kompliziert.

Gruß

Wie kann ich eine Zelle formatieren dass aus „W92“ —> „W092“ wird?

Ich brauche die Zahl auf drei stellen, jedoch macht mir der Buchstabe davor Probleme beim formatieren.