Excel VBA - Alle Datenüberprüfungen ändern?

Hallo an alle,

ich habe eine Excel mit mehreren Blättern und ein und derselben Datenüberprüfung (Dem selben Dropdownmenü für jedes Blatt). Nun musste ich die Liste um 2 Begriffe erweitern.

Das heißt, dass die Datenüberprüfung nichtmehr (als einfaches Beispiel) C3:C5 anzeigen soll, sondern C3:C7.

Gibt es einen entsprechenden VBA Befehl um alle Datenüberprüfungen auf einen Schlag umzuändern?

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

13.09.2022, 14:18

Zeichne doch das Ändern eines Eintrags mit dem Makrorekorder auf und passe dann das generierte Script so an, dass du alle gewünschten Tabellenblätter durchläufst.

Excler2022

Fragesteller

13.09.2022, 14:40

Ich habe es eben mehrmals versucht. Leider kenne ich mich nicht ausreichend mit VBA aus um das zu bearbeiten. Meine Kenntnisse reichen ausschließlich für die Bearbeitung bereits vorhandener Formeln.. :/

Suboptimierer

13.09.2022, 14:42

@Excler2022

Bau eine Schleife um den Code

For Each Blatt in Worksheets
  ...
Next

Excler2022

Fragesteller

13.09.2022, 14:54

@Suboptimierer

Das Problem hierbei ist, dass ich den Namen jedes Datenblattes manuell eintragen müsste. Zukünftig werden neue Datenblätter hinzukommen. Gibt es da eine Lösung beider die Excel einfach automatisch ALLE Datenblätter durchgeht?

Suboptimierer

13.09.2022, 15:12

@Excler2022

Du musst die Namen nicht eingeben.

Innerhalb der obigen Schleife kannst du mit Blatt arbeiten. Das ist das Tabellenblatt, welches du aktuell im Schleifendurchlauf bearbeitest.

Alternativ kannst du auch mit Indizes arbeiten:

For i = 1 To Worksheets.Count
  Worksheets(i).<Aktion>
Next

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

14.09.2022, 18:29

Generell geht dies.
ABER ich empfehle deine Datenprüfung so umzugestalten,
dass NIE mehr etwas geändert werden muss.
Dies geht komplett OHNE VBA.
Suche: "Dynamischer LookUp" in meinen Antworten.

Moin.
mich hab Probleme bei ner Formel in VBA. Für die Formel muss von 3 werten jeweils der höchste und der niedrigste ausgelesen werden und mit diesem muss dann weitergerechnet werden. Ich habe das bisher über die normalen Formeln gemacht und wollte es nun mit vba machen das es schneller geht. Hab aber kein Plan wie ich das programmiere das der min und Max wert ausgelesen wird.

meine formel war diese:

„ =((MAX(C5:C7))-(MIN(C5:C7)))/(SUMME(C5:C7)/3)*100“

ich würds gerne machen das ich eingebe:

=Funktion(Wert1;Wert2;Wert3)

ist das umsetzbar ?

Gruß !

...zur Frage

Excel VBA, Combobox ergänzen?

Hallo, ich würde gerne Excel VBA über ein Textfeld eine Combobox erweitern. Also das was ich in ein Textfeld eingebe soll in der Combobox übernommen werden. Wie realisiere ich das?

...zur Frage

Hintergrundfarbe übertragen?

Ich habe eine Excel mit zwei Blättern (Para & Testseite).
Ich habe auf der Para Seite definiert, welcher Status welche Farbe bekommen soll.

Nun möchte ich dass Wenn auf der Testseite in Spalte "N" der Status "TOPIC" ausgewählt wurde, die komplette Zeile automatisch die Farbe annimmt, welche in Blatt "Para" ist.

So ungefähr.
Ich hoffe man versteht was ich meine.

Mir ist egal ob es über bedingte Formatierung, Makros oder VBA ist. Aber bräuchte eine genaue Erklärung dazu

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Excel VBA Zwei Bereiche zu einer 2-seitigen pdf exportieren?

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

...zur Frage

Kann Excel passende Werte bei der Datenüberprüfung anzeigen?

Hallo, ich habe in Excel in einer Spalte eine bestimmte Anzahl möglicher Wörter, die in die Zellen dieser Spalte geschrieben werden dürfen. Diese Wörter stehen in einer anderen Tabelle.
Über "Daten -> Datentools -> Datenüberprüfung" habe ich unter Gültigkeitskriterien: "Zulassen: Liste" ausgewählt und habe dann als Quelle den Bereich, in dem die erlaubten Begriffe stehen, eingegeben.

Mein Problem ist jetzt: Wenn ich in Spalte K einen Begriff eintragen will, muss ich den Pfeil neben der Zelle drücken und den Begriff mit den Pfeiltasten aus der Liste raussuchen.
Das ist sehr umständlich, ich würde gerne einen Teil des Namens eingeben, und mir sollen dann die passenden Optionen angezeigt werden.

Ein Beispiel: Erlaubte Wörter sind unter anderem "Michael Meier", "Frank Meier", "Firma Meier", "Meier GmBH", "Meier KG". Wenn ich in Spalte K "Meier" eingebe, sollen mir all diese als Auswahl angezeigt werden.

Ist das irgendwie möglich oder gibt es bessere Optionen, mein Vorhaben umzusetzen? In einer Liste mit 300 Namen ist es doof da durchzusuchen, wenn man den Beginn der Zelle nicht genau weiß.
Wenn ich "Frank" eingeben, schlägt er mir zwar "Frank Meier" vor, da bringt mir dann aber auch die Auto Vervollständigung nichts.

Gruß, Tom

...zur Frage

Dropdown Formeln fest hinterlegen?

Ich habe eine riesige Exceldatei, welche ich momentan übersetze.

Nun bin ich auf das Problem gestoßen: das Dropdowns nicht so leicht zu übersetzen sind, wie der Rest der Datei.

Aufbau der Excel: Ich habe ein Feld in dem ich zwischen Deutsch und Englisch auswählen kann und dann übersetzt sich die ganze Excel in die jeweilige Sprache.
Zusätzlich hab ich viele Dropdowns bei denen Formeln hinterlegt sind.

Das übersetzen habe ich geschafft indem ich in die Datenüberprüfung in der Liste eine Dropdownfunktion hinterlegt habe.

Wenn ich nun auf Englisch switche dann werden mir die Englischen Begriffe im Dropdown angezeigt!

Nun sind aber hinter "ET" und "ZT" Formeln hinterlegt. Also ändern sich andere Zellen / Berechnungen, je nach dem ob ET oder ZT ausgewählt ist.

Wenn es jetzt auf Englisch eingestellt ist und ich "single deep" auswähle werden keine Berechnungen mehr durchgeführt. --> Logisch, da in meinen Formeln steht: "WENN "ET" dann...."
PROBLEM: Es sind sooooo viele Formeln, dass es ein riesen Aufwand wäre überall "WENN "ET" oder "single deep" dann..." hinzuschreiben.

Gibt es eine Möglichkeit, dass Excel von alleine von single deep zu ET schließen kann und ich nicht jede einzelne Formel in die Hand nehmen muss?

Vielen Dank schonmal im vorraus!

...zur Frage

VBA Excel - Spalten kopieren und Einfügen?

Ich möchte mittels VBA-Button gerne eine Anzahl von Spalten kopieren um meine Kalkulation somit zu erweitern.

Spalte E:H bilden die "Master-Spalten-Set". Diese Spalten sollen immer vor der Spalte in der die Zelle "Total Qty" vorkommt kopiert werden.

Mein aktueller Code lautet:

Sub Makro1()
    Columns("E:H").Select
    Selection.Copy
    Columns("Q:Q").Select
    Selection.Insert Shift:=xlToRight
End Sub

Wie muss ich diese Code erweitern um variable vor der Spalte mit der Zelle "Total Qty" das "Master-Spalten-Set" einzufügen?

Danke

...zur Frage

Excel 2010: Dropdown-Feld mit 3 Antwortmöglichkeiten in Symbole umwandeln

Servus,

ich habe mittels der Funktion Daten/Datenüberprüfung ein Dropdown-Feld mit drei Antwortmöglichkeiten erstellt, aus denen man auswählen kann. Soweit, so gut.

Nun möchte ich, dass je nachdem welche Antwort gewählt wird, das gleiche Feld gemäß der Systematik Bedingte Formatierung/Symbolsätze/Indikatoren umgewandelt wird und mir nach Auswahl aus dem Dropdownmenü nur noch das Symbol angezeigt wird.

Ist das möglich?

...zur Frage

EXCEL VBA Frage?

Hallo,

ich habe ein problem mit Excel VBA, unzwar würde ich gerne die Abfrage der Leeren zellen erweitern um ein paar andere zeilen... leider habe ich immer irgendwie ein syntax problem. Kann mir jemand helfen

For Each Zellen_auf_Inhalt_prüfen In Range("B7:J7") __HIER SOLL MEHR ABGEFRAGT WERDEN

If Zellen_auf_Inhalt_prüfen.Value = "" Then

MsgBox "Bitte alle Zellen ausfüllen."

GoTo MacroEnde

End If

Next Zellen_auf_Inhalt_prüfen

...zur Frage

Excel VBA Datenüberprüfung beim Einfügen (Strg+V) von Text in Zelle aufrecht erhalten?

Hallo zusammen,

ich greife gerade im Rahmen eines Projekts per Datenüberprüfung auf eine Auswahl von 6000+ Zellen zu und möchte falls ein Teil, das nicht zu den 6000 gehört eine Fehlermeldung ausgeben. Nun habe ich die Problematik, dass die Zelle mit der Datenüberprüfung eine Eingabezelle sein wird, d. h. der Benutzer wird Werte aus anderen XML Dokumenten hereinkopieren. Dies Formatiert die Zelle aber Standardmäßig um und entfernt die eingerichtete Datenüberprüfung.

Gibt es hier eine einfache Lösung dies zu verhindern? Ich habe es auch schon mit Excel VBA versucht (s. Quelltext) aber hier konnte ich nur die Datenüberprüfung nachdem sie entfernt wurde wieder hinzufügen. Das Problem hierbei ist, dass dem User keine Fehlermeldung angezeigt wird nachdem er den Text in die Zelle kopiert hat.

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
        :=xlBetween, Formula1:="='Zuord. Teil-Kart. Datenquelle '!$A$1:$A$6168"
        .IgnoreBlank = True
        .InCellDropdown = False
        .InputTitle = ""
        .ErrorTitle = "Teil nicht verfügbar"
        .InputMessage = ""
        .ErrorMessage = _
        "Teil nicht verfügbar, da:" & Chr(10) & "a) Teil existiert nicht" & Chr(10) & "b) Teil existiert, wird aber nicht in Kartonage verpackt --> Manuelle Frachtberechnung nötig" & Chr(10) & "c) Teil ist neu --> Rückmeldung an *** / ***"
        .ShowInput = True
        .ShowError = True
    End With
End If

...zur Frage

Excel VBA Range-Objekt?

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

...zur Frage

Excel: Formel zum Erweitern der Tabelle?

Hallo!

Ich habe eine Tabelle (C7:G10) mit folgendem Aufbau (siehe Bild). Habt ihr einen Vorschlag für eine Formel um in einem anderen Bereich auf dem gleichen Blatt die Werte zu erweitern (beispielhaft veranschaulicht in J15:O20), sodass ich die Werte nicht manuell eingeben muss? Bzw. wie könnte ich das Problem angehen?

Die Werte im Bereich C7:G10 sind nicht fix und können sich (wie auch die Größe des Bereiches) ändern. Die 3x3 Matrix ist fest.

Vielen Dank!

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen