How to make a VB NET DataGridView filter!?

I welcome you to todays post on „How to make a VB NET DataGridView filter„!

Maybe you came across randomly, or you actively searched for that typical issue.

If you’ve searched it, well theres no big surprise, because it’s one well known problem.

Literally every (VB NET) Developer will face this issue from time to time, or even more than once.

Usually you have that typical user interface with some kind of listing, whether it’s a typical table (hence a DataGridView) or it’s based on tiles.

If the user will then click on one of those rows or tiles, you will mostly show some fancy dialog thingy, to edit this data.

After the user has finished working on that detail dialog, it will usually close and save the changed data back to the data source.

Preview of what we are going to build

As I’m a fan of action instead of talking only, here’s a brief example of what we are going to build.

We will have a basic form split in two areas:

• One area for some sort of search inputs (add as much as you like)
• The second area is an auto growing / shrinking datagridview

You can enter a specific search text and then confirm the search by pressing enter or the corresponding button.

There will be some kind of reset functionality by clicking the „X„-button, or by using the escape key.

One very basic task

So it’s actually one of the big basic tasks, you need to understand in detail.

In this post, you will get a nice datagridview filtering example with some sub-steps.

This will consist of acquiring data from the very base, over creating a nice GUI to get user input and at last filtering that data.

To actually search for anything, you will need some kind of data source, right!?

Some sweet spot, where the data is actually coming from, whether it’s

• A database-ish thingy
• Some „In-Memory“ cache
• Or maybe some file based storage like a text file

Otherwise it would be kinda hard to actually find out:

• when to retrieve data?
• from where?
• or most importantly – how?

Thinking about structure

Surely you should structure your application in a properly designed way – like always!

What I’m talking about is: Using interfaces for abstracting away implementation details.

This makes our application much more flexible thus being able to switch out dependencies easily.

Or something like dependency injection, to provide needed dependencies from the outside.

With this approach, we can avoid hardcoding dependencies inside the classes themselves.

But we will dive much deeper on that in separate blog posts, so i may only touch the very basics here – if at all 🤷‍♂️.

Different situations require different solutions

As you might know, there are quite a few different situations of having data inside your DataGridView.

The 3 methods below are the ones I’ve seen the most:

• Adding data directly
• A list of objects as source
• The thing called DataView

To elaborate on this further: Basically you have 3 modes to work with the DataGridView.

Keep in mind, that those 3 here don’t necessarily match up to the ones above, as 2 of the ones above are basically bound.

• Unbound
• Bound
• Virtual

You can find more detailed information on that, you can visit the microsoft documentation for that.

Honestly I would recommend you reading my example implementations as they are much easier to understand and follow.

Adding data directly to the DataGridView – Don’t!

The easiest and most beginner friendliest way is to directly add your data to the DataGridView.

This is done by calling some kind of „CollectionThingy.Add“ functionality.

Even though this seems to be the easy „Hey, I could just go like this“ way, it isn’t necessarily the best one.

I’m talking about structuring and especially about maintaining and advancing development.

I’ve seen myself struggling through other developers chaotic „DataGridView.Rows.Add“ code so many times.

So I would highly (really) recommend you not to do it this way!

Using a list as datasource

Using a pure list – a special one – is actually my personally most used style of populating a DataGridView.

Therefore I also like to filter the data directly by using that list, instead of operating on those DataGridView rows themselves.

This works strongly typed and is (at least in my opinion) easy to implement.

It also feels kinda clean like „filtering customers by filtering customers“ you know what I mean!?

I would recommend this method and this is actually the method we’re using in our first example here.

Utilizing a DataView

This is actually my personally least used method of filtering or populating data inside a DataGridView.

Honestly I can’t even remember when I used that method the last time so..

Maybe I’ll add some example of using this at a later point, because I want to focus on the most used style first.

Using a bound list for a VB NET DataGridView filter

So in the very first and most „natural“ kind of DataGridView filter example, we will touch the clean basics.

In a few moments, you will understand this „clean“ & „natural“ thing and the „why“ behind that.

I think that this is actually one of the easiest ways to understand, as there are no fancy or complex other tools involved.

But well, one additional „helper“ is actually used, as we are in the need of some kind of listing functionality.

This listing thing is actually responsible for holding those different entries and being able to communicate it’s internal changes.

With those communication skills, the outer world can react to changes by like refreshing their graphical representation.

An easy and clean data source – An extended BindingList

So in this very first example we will use a basic BindingList as indirect data source.

As I really prefer the object oriented way the most, we will create the data based on defined class instances.

This means we will need a class to create some kind of blueprint, that enables us encapsulating the needed data.

After that and after instantiating some objects, we can tell the DataGridView to display the data.

Or better said, we can tell the grid to use these object instances as datasource – nice!

One big problem with the default BindingList class is, that you can’t really add multiple items at once.

As you will see later, we will need that functionality, so we will define a small helper extension method first.

Create a folder called „Utils„, put the following class inside and watch out for namespacing issues:

Imports System.ComponentModel
Imports System.Runtime.CompilerServices

Namespace Utils

    Module BindingListExtensions

        <Extension()>
        Public Sub AddRange(Of T)(bindingList As BindingList(Of T), collection As IEnumerable(Of T))
            Dim oldRaiseEvents = bindingList.RaiseListChangedEvents
            bindingList.RaiseListChangedEvents = False
            Try
                For Each item In collection
                    bindingList.Add(item)
                Next
            Finally
                bindingList.RaiseListChangedEvents = oldRaiseEvents
                If bindingList.RaiseListChangedEvents Then
                    bindingList.ResetBindings()
                End If
            End Try
        End Sub

    End Module

End Namespace

With this BindingList class extending functionality, we will be able to add multiple items.

In addition, this won’t trigger a „Hey I’ve changed“-notification for each add, this would be inefficient.

Imagine you would be adding 30000 items and therefore 30000 change notifications would be triggered.

Wouldn’t it simply be enough to add those elements and notify about a change of this list after all work has been done – meaning once!?

For this to work, we need to disable the „RaiseListChangedEvents“-property temporarily, or as long as the adding process is ongoing.

As this is one very basic requirement for many projects, you should really be saving that extension method somewhere 😛!

Let’s go to the next step of making that VB NET DataGridView filter functionality!

Creating the customer class

So let’s now go ahead and actually create this blueprint class called „Customer“ for our first example.

I mean seriously, who doesn’t like working with (good, on time paying) customers 😛.

Keep in mind, that this example will only contain like basic data and no deep structures.

Take care putting the class into the correctly named folder and watch the namespace!

Create a folder called „Models“ and add the following class inside:

Namespace Models

    Public Class Customer

        Public Property FirstName As String

        Public Property LastName As String

        Public Property Company As String

        Sub New(firstName As String, lastName As String, company As String)
            Me.FirstName = firstName
            Me.LastName = lastName
            Me.Company = company
        End Sub

    End Class

End Namespace

Creating the user interface for the VB NET DataGridView filter example

In this last step of the first example, we will actually work on the graphical user interface (GUI) part.

As this is a DataGridView example (so no WPF involved), we will use a good old Windows Forms Project (Winforms project).

If you have missed the example preview, you can scroll back to the above section here.

Needed controls

So in order to create our example user interface we need the following controls:

• A form with set StartPosition, Text and size
• One TableLayoutPanel (as we want dynamic resizing)
• Groupboxes (2) for the main areas
• One FlowLayoutPanel for arranging the search inputs
• a Textbox for searching by text input
• 2 buttons (searching and resetting the search)
• The last control is the DataGridView itself

Surely you can add or remove things on your personal needs..

The Code – VB NET DataGridView filter example 1

Now, inside our code, we will start by importing all necessary namespaces.

I called my example project „VBDataGridViewFilterExample„, so make sure to adjust that to your project name if needed.

Imports System.ComponentModel
Imports VBDataGridViewFilterExample.Models
Imports VBDataGridViewFilterExample.Utils

The forms properties

Then we will need to define 3 properties inside our „Form1“ class (or however you’ve called it).

The first property called „Customers“ is the storage for our customer instances.

As I have mentioned above you should go for something like dependency injection, etc.

In this case it will be enough working like this, as I don’t want to make it too difficult anyways.

The next property „FilteredCustomers“ will be the actual (potentially filtered) customers list, which is the datasource for our DataGridView.

Finally, the last property is some kind of user input field, where the user can enter some string to filter the customers by.

    Public Property Customers As List(Of Customer)

    Public Property FilteredCustomers As BindingList(Of Customer)

    Public Property SearchText As String

Instantiating the form – The Constructor

Now it’s time to let the form actually come to reality by filling its constructor code.

Sub New()
    InitializeComponent()
    Customers = New List(Of Customer)()
    FilteredCustomers = New BindingList(Of Customer)()
    SearchText = String.Empty
    tbSearch.DataBindings.Add(NameOf(Text), Me, NameOf(SearchText), False, DataSourceUpdateMode.OnPropertyChanged)
End Sub

The first call is the „InitializeComponent„-function – like literally always.

Next, we will instantiate both list objects called „Customers“ and „FilteredCustomers“.

Then we are going to initialize the „SearchText“ property with an empty string, so it’s not „Nothing“.

The forms Load-EventHandler

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    tbSearch.DataBindings.Add(NameOf(Text), Me, NameOf(SearchText), False, DataSourceUpdateMode.OnPropertyChanged)
    LoadTestCustomers()
    dgvCustomers.DataSource = FilteredCustomers
    SearchCustomers()
End Sub

Inside the forms load eventhandler, theres also some work to do like configuring the bindings, etc.

So let’s start by binding the „SearchText„-property to our corresponding textboxes „Text“-property.

We are using a nice operator called „NameOf„, as this can help with later naming conflicts.

If you would be calling:

tbSearch.DataBindings.Add(Text, Me, "SearchText", False, DataSourceUpdateMode.OnPropertyChanged)

and change the „SearchText“-property to a different name later on, you could run into problems.

Changing „SearchText“ to like „Search„, would lead the binding above to fail, if you don’t apply the change there as well.

But changing when using the „NameOf„-operator will instantly notify you about this.

I will talk about that „DataSourceUpdateMode„-part in a few moments, so be patient.

Then we will continue by loading some customer test data into our backing storage list.

You will see the implementation for that method in some seconds, too!

After that, we’re setting the DataGridViews DataSource property, to our „FilteredCustomers“ BindingList.

In the last step of the load eventhandler, we will trigger a simulated search, to make some data appear at the start.

The LoadTestCustomers method

This method will load some test customers into our basic storage list.

So nothing big is happening here, except creating 3 customers and adding them to the list.

Private Sub LoadTestCustomers()
    Customers.Add(New Customer("John", "Doe", "JD Company"))
    Customers.Add(New Customer("Jane", "Doe", "JANE Ltd."))
    Customers.Add(New Customer("Maximillion", "Pegasus", "Industrial Illusions"))
End Sub

SearchCustomers method definition

Private Sub SearchCustomers()
    If FilteredCustomers.Count > 0 Then
        FilteredCustomers.Clear()
    End If
    Dim searchResults = Customers.Where(AddressOf FilterCustomers)
    FilteredCustomers.AddRange(searchResults)
End Sub

The „SearchCustomers“ method will do the searchy work and add the results to our bound result list.

As you may have already guessed, we will need that defined extension method from above.

First it will clear out already existing customers (if there are any), so that we are starting in a clean way.

Then it’s using the LINQ helper method called „Where“ to apply our defined filtering function coming in a second.

After we got our results, we can add them by the defined „AddRange“ method from the top of this post.

Performing the filtering by FilterCustomers method

Private Function FilterCustomers(customer As Customer) As Boolean
    Dim searchText = Me.SearchText.ToLower()
    Dim company = customer.Company.ToLower()
    Dim firstName = customer.FirstName.ToLower()
    Dim lastName = customer.LastName.ToLower()
    Return company.Contains(searchText) OrElse
        firstName.Contains(searchText) OrElse
        lastName.Contains(searchText)
End Function

Now it’s time to define the predicate function for doing the actual filter work.

A customer does match our filter criteria, if the value of the „SearchText“ property (lowered) is contained in:

• either, the company
• the first name
• or the last name

Keep an eye on that „OrElse“ operator, as it’s enough if just one of this boolean expressions match.

So by just using „Or“ it would still check all 3 expressions – which is inefficient!

Reacting to user pressing Enter – a UI/UX thingy

Private Sub tbSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles tbSearch.KeyDown
    If e.KeyCode = Keys.Enter Then
        e.Handled = True
        ' disable DING sound
        e.SuppressKeyPress = True
        SearchCustomers()
    End If
End Sub

One basic functionality when creating some filtering mechanism should be to trigger the search by pressing a hotkey.

If the user presses the „Enter“ key inside the textbox, we will react by triggering the search.

But before finally triggering that search, we are setting the „Handled“ event argument property.

We are also setting the „SuppressKeyPress“ property, to avoid that annoying windows sided „DING“ sound.

Let’s talk about that „DataSourceUpdateMode“ thing I’ve mentioned a few moments ago.

This thing will configure the „SearchProperty“ actually getting changed live.

If we would not be using that, you could trigger the search by pressing enter, but the actual text wouldn’t be used.

This happens, because the input text of the textbox only gets „forwarded“ to our „SearchText“ after leaving the textbox!

The button event handlers

So at the end of the first codes example, theres just one (or two things) left.

I’m talking about these two buttons whose click events need to be handled.

Private Sub btnResetSearch_Click(sender As Object, e As EventArgs) Handles btnResetSearch.Click
    tbSearch.Clear()
    SearchCustomers()
End Sub

Private Sub btnSearch_Click(sender As Object, e As EventArgs) Handles btnSearch.Click
    SearchCustomers()
End Sub

We are making sure, to reset the search and showing all customers when pressing the reset button.

Then we are handling the normal search button click by triggering the search process.

Conclusion

So now that we’ve come to the end of todays blog post, let’s do a quick recap.

When it comes to displaying data in a tabular style, you are almost guaranteed to stumble upon DataGridViews.

But – like as usual – in the daily life of being a programmer, you will face more requirements.

So even if you managed to display data inside a DataGridView, you will get more requests like filtering, sorting and more.

In todays post I showed you one possible way of filtering data inside that tabular standard control.

Next to that already existing method showed above, I think I will update this post in the future to show more.

Downloads

Related posts

• Removing Items from ListBoxes in VB NET
• Hacking a VB NET Application – or avoid getting hacked

Der Beitrag How to create a VB NET DataGridView filter functionality in 2024 erschien zuerst auf Robert Skibbe.

Excel online

Du möchtest das weltbekannte Excel online verwenden und Office damit sogar kostenlos in der Cloud nutzen?

Arbeite mit den Office wie Excel und Word im Web sowie aus dem Windows-Store als installierte Apps – teils kostenlos!

Vielleicht zieht Dich Dein Interesse auch noch zu folgenden Beiträgen: Serienbrief mit Excel, Excel Kalenderwoche, Makro in Excel erstellen.

Das Office Monopol

Wer kennt es nicht, das täglich genutzte Office Monopol, bestehend aus Word, Excel, Outlook und Powerpoint?

Ob im privaten, oder beruflichen Büro, ob Projektplanung, oder Kundenmanagement – Microsoft Office ist überall vertreten.

Besonders Excel wird im gewerblichen Bereich häufig für die interne Planung und – im wahrsten Sinne des Wortes – (Tabellen)Kalkulation verwendet.

Links

Hier findest Du Links zu Amazon, wo Du ein *Microsoft Office 365 Single, sowie Family Abonnement erwerben kannst.

Zur Zeit der Erstellung dieses Beitrages waren Diese Produkte sogar im Angebot!

Microsoft 365 Single

Microsoft 365 Family

_{* es handelt sich bei den Links um sogenannte Affiliate-Links. Die erworbenen Produkte sind für Dich keinen Cent teurer. Du unterstützt mich mit dem Erwerb über die gegebenen Links, indem ich eine kleine Provision von Amazon erhalte.}

Excel – Tabellenkalkulation (Excel online weiter unten)

Excel ist eines der, bzw. schon fast DAS Flaggschiff der Microsoft Office Produkte.

Eingegebene Daten können zentral gespeichert, sortiert und verarbeitet werden.

Nach der Aufbereitung der Daten, können Sie visualisiert und so dem Nutzer passender dargestellt werden.

Natürlich ersetzt Excel und auch die anderen Office Produkte kein vollständiges CRM – so meine Meinung – aber dennoch, kommt man nah ran.

Word – Schreibarbeit

Wer beim Aufsetzen der Briefe den Überblick und die Funktionalität der gefühlten zig tausend Normen im Blick behalten möchte, nutzt Microsoft Word.

Dokumentationen, Bewerbungen oder sonstige formelle und non-formelle Schreiben werden im so gut wie bekanntesten Schreibprogramm getätigt.

Durch die breite Streuung der Verwendungsfälle, aber auch durch kostenlose Alternativen lassen sich geschriebene Dokumente einfach bearbeiten.

Powerpoint – Präsentationen

Powerpoint ist das wohl meist genutzte Programm wenn es um das Thema „etwas präsentieren“, bzw. Präsentationen geht.

„Warum unser Produkt das Beste ist“, „Warum Sie gerade mich für den Job nehmen sollten“ und viele andere Fragen werden unterstützend durch Präsentationen geklärt.

Basierend auf Folien arbeitet das moderne Powerpoint mit vielen schönen Mitteln, wie z. B. animierte Übergänge.

Outlook – Mailing

Im Zeitalter der digitalen Kommunikation darf neben Whatsapp & Co. auch das Thema Email nicht fehlen, bzw. zu kurz kommen.

Während die normalen Messenger eher für zwischendurch genutzt werden, tritt Outlook hingegen in die Rolle des digitalen Briefkasten.

Emails verfassen und stylen, ggf. noch eine Signatur hinzufügen und schon steht alles für eine professionelle, digitale Kommunikation.

Online – Office Produkte, darunter auch Excel online

Im heutigen Cloud-Zeitalter dauerte es bei vielen Herstellern nicht lang, bis auch Diese auf den Cloud-Zug aufgesprungen waren.

Microsoft hat hier zum Beispiel auch eine Lösung unter der Adresse www.office.com eingerichtet.

Nachdem man sich mit seinem Microsoft-Konto angemeldet, oder bei Bedarf registriert hat, kann man viele Funktionen der Office-Familie kostenlos nutzen.

Unterschiede

Funktionen wie der oben bereits verlinkte Serienbrief, habe ich dort zum Zeitpunkt des Beitrages allerdings nicht gefunden.

Ich denke, dass Microsoft mit den kostenlosen Produkten eine gewisse kostenlose Basis vor allem analog zur Konkurrenz wie Google schaffen wollte.

Wichtige, bzw. – man könnte sagen – kommerzieller ausgerichtete Funktionen wird man dennoch nur in den Vollversionen finden.

Weitere Hilfe zum Thema Unterschiede findest Du zum Beispiel noch in der Dokumentation von Microsoft und hier.

Unterschätzte Produkte

Neben den wohl für fast jeden Menschen bekannten Produkten, gibt es allerdings noch weitere Highlights.

Diese sind neben den tollen Funktionalitäten teils sogar kostenlos und analog zu ihrer eventuell vorhandenen „Unbekanntheit“ auch unterschätzt.

Besonders zwei dieser Apps nutze ich z. B. regelmäßig im Office-Gebrauch und würde darauf ungern verzichten.

Natürlich gibt es auch hier wieder Konkurrenz von Anbietern wie Google und Co., allerdings schadet es ja nicht, sich vielleicht auch mal beides anzuschauen.

Microsoft Whiteboard

Das erste meiner Meinung nach unterschätzte und eventuell zu unbekannte Tool ist „Microsoft Whiteboard“.

Mit Microsoft Whiteboard kann man – wie der Name schon vermuten lässt –, wie auf einem Whiteboard arbeiten.

Dabei kann man gemeinsam mit Teampartnern arbeiten und zum Beispiel auch den PC in Kombination mit einem iPad nutzen (wie ich).

Ich denke ich werde darauf noch genauer in einem zukünftigen Beitrag eingehen und dessen Features genauer erklären.

Besuche gerne die offizielle Seite des Microsoft Whiteboard und lade Dir die Software einmal herunter.

Alternativ (und wie im Bild zu erkennen), gibt es auch die Möglichkeit, das Microsoft Whiteboard online zu verwenden.

Microsoft OneNote

Das zweite und nächste Tool, Welches meiner Meinung nach mehr Aufmerksamkeit bekommen dürfte/sollte ist Microsoft OneNote.

Microsoft selbst beschreibt die OneNote-App kurzum als „digitales Notizbuch„, weitergehend mit: „Ein Notizbuch für vielfältige Einsatzbereiche und Anforderunge“.

Dem kann ich selbst nur zustimmen, früher habe ich z. B. Evernote genutzt, was mir auch bis heute irgendwie leichter von der Hand geht.

Allerdings kann ich nur sagen, dass man dem OneNote-Tool definitiv eine Chance geben sollte, falls man auf der Suche nach einer digitalen Notiz-App ist.

Auch hier werde ich ggf. in zukünftigen Beiträgen noch genauer eingehen!

Weiterführende Links

• Excel Viewer von Microsoft
• Excel Kalenderwoche ermitteln
• Serienbrief in Excel erstellen

Der Beitrag Excel online erschien zuerst auf Robert Skibbe.

VBA in Excel öffnen

Du möchtest VBA in Excel öffnen und mit der Programmierung von Excel-Hilfsmitteln durch Visual Basic for Applications loslegen?

Erfahre in meinem heutigen Beitrag, wie Du einfach und schnell durchstarten kannst!

Vielleicht schwenkt Dein Interesse nach diesem Beitrag noch auf folgende ähnliche Beiträge: IFS VBA, VBA For Schleife, InStr.

Was ist VBA?

Bevor wir uns mit dem Kern beschäftigen, also wie wir VBA in Excel öffnen können, schauen wir uns einmal genauer an was VBA überhaupt ist.

Falls Du frei nach dem Motto „TL;DR; (Too Long Didn’t Read)“ direkt zum Ort des Geschehens hüpfen möchtest, scrolle einfach ein wenig runter.

Ich denke allerdings, dass vor allem Anfänger sich die obige Frage stellen und sich ein wenig Einführung, bzw. Wiederholung nicht schaden kann.

Microsoft Excel

Wenn man an Bürojobs aus fast egal welcher Branche denkt, denkt man meistens auch an die Office-Produktfamilie von Microsoft.

In so gut wie jeder ausgeschriebenen Stellenanzeige werden zumindest Grundkenntnisse erwartet, da Sie ein elementarer Grundbaustein sind.

Egal ob im Bereich Transporte, Network-Marketing, oder sonst irgendwo, fast überall sind die bekannten Office-Produkte wie Word, Excel und Outlook im Einsatz.

Häufig gibt es allerdings Aufgaben und bestimmte Einsatzfelder, wo diverse Tätigkeiten wiederholt werden müssen.

Ebenso saß man als Nutzer der Produkte vermutlich schon selbst an dem Punkt, wo man gerne die eine oder andere Funktion mehr gehabt hätte.

VBA zur Rettung

Genau an dieser im vorherigen Abschnitt erwähnten Stelle kommt dann Visual Basic for Applications – oder kurz VBA – ins Spiel.

Was im ersten Moment eventuell wie ein Werkzeug zum Zeichnen o. Ä. klingt, ist in Wahrheit eine Skriptsprache.

Wie der Name auch schon ggf. vermuten lässt, ist Diese auf die Verwendung innerhalb von bestehenden Anwendungen konzipiert.

Um genau zu sein handelt es sich bei diesen Anwendungen exakt um die vorher angesprochenen Produkte wie Word, Excel und Co.

Wir können mit VBA die vorhandenen Funktionalitäten der einzelnen Programme erweitern und uns so eine individuell größere Palette an Werkzeugen bauen.

So hat jeder VBA-Nutzer die Möglichkeit, sich seine ein wenig mehr auf sich zurechtgeschnittene Arbeitsumgebung zu schaffen.

Dabei ist es besonders toll, dass durch diverse Funktionen wie z. B. das Aufnehmen von Makros, nicht zwangsweise Programmierkenntnisse notwendig sind.

Natürlich sind Diese jedoch von Vorteil und vereinfachen Vieles, wie die Anpassung und Erweiterung der Skripte, usw.

VBA in Excel öffnen – Das Beispiel

Letztendlich kann man VBA, bzw. genauer genommen den VBA-Editor in Excel auf unterschiedliche Wege öffnen.

Am einfachsten ist es, wenn man die Tastenkombination [ALT]-[F11] verwendet, um den VBA-Editor zu öffnen.

Achtung! Je nach Version des jeweiligen Programmes (Word, Excel, Outlook..), kann es kleine Unterschiede geben!

Eventuell musst Du vor dem Öffnen des Editors auch bereits ein Dokument, bzw. eine Tabelle geöffnet haben.

Über die grafische Oberfläche kannst Du zumeist auch die Schritte über das Menüband gehen.

Wenn es nicht funktioniert

Falls Du mit den hier drüber genannten Schritten nicht weiterkommst, kannst Du überprüfen, ob Dir die Sicherheitseinstellungen im Weg sind.

Gehe dazu am besten einmal in die Optionen deines Programmes und überprüfe den Punkt „Trust Center„, bzw. „Sicherheitseinstellungen„.

Dort findest Du eventuell mehr Informationen zum Thema Entwicklertools – worum es sich bei VBA ja handelt.

In den Optionen hast Du die Möglichkeit, die Entwicklertools zum Menüband hinzuzufügen, sowie Einstellungen zu Makros, etc. zu treffen.

Der Beitrag VBA in Excel öffnen erschien zuerst auf Robert Skibbe.

Excel Makro erstellen

Ein Excel Makro erstellen und damit eventuell deine Arbeit zu erleichtern, bzw. zu automatisieren ist Dein Ziel?

Dann ist es schön, dass Du auf dem Weg deiner Recherche zu meinem heutigen Beitrag gefunden hast, denn genau darum geht es heute!

Schaue gerne alternativ auch bei meinen anderen VBA Excel Beiträgen wie: Excel Makro Button, VBA For Schleife & Range VBA vorbei.

Was ist eigentlich ein Makro?

Ganz nach dem Motto „Back To The Roots“ schauen wir uns erstmal die Bedeutung eines Makros an und wofür man es letztendlich verwendet.

Makros sind vor allem im Bereich der Automatisierung von diversen Prozessen nicht wegzudenken, denn Sie können die alltägliche Arbeit erleichtern.

Sie sind für die Non-Programmierer vor allem aus dem Bereich Microsoft Excel und Co. bekannt und werden dort täglich eingesetzt.

Ein Makro ist letztendlich nichts Anderes als eine Sammlung von Anweisungen, praktisch also ein Zettel mit „Tu dies, tu jenes und danach dies & das“.

Ein Makro auslösen

Bevor wir uns der Erstellung des Makros widmen, schauen wir uns nochmal kurz vorher die Möglichkeiten zur Auslösung von Makros an.

Dazu können wir auf eher passive Ereignisse, bzw. Trigger warten, oder die aktive Varianten wie z. B. durch einen Button–Klick, oder Hotkey wählen.:

Varianten

• auslösen durch Hotkeys
• im Ladevorgang der Projektmappe
• im Code durch den Visual Basic Editor (VBE)
• und mehr..

Mit diesen Ausgangspunkten können wir uns nun im nächsten Schritt, die Erstellung eines Makros anschauen.

Vorbereitungen – Excel Makro erstellen

Oft bekommt man bei der ersten Arbeit mit Makros ein kleines „Problem„, Welches aber gar kein richtiges Problem, sondern eher ein Sicherheitsfeature ist.

Zumeist ist die Verwendung von Makros in Microsoft Excel Tabellen standardmäßig mehr oder weniger deaktiviert.

Wir müssen die mögliche Nutzung von Makros also erstmal aktivieren und das machen wir über die Optionen.

Makros aktivieren

Begebe Dich also nun unter den Punkt Datei->Optionen in die Optionen von Excel.

Achtung! Deine Optionen sehen eventuell anders aus, bei mir werden durch die Verwendung von Web-Office aktuell nur diese Optionen angezeigt.

Excel Optionen öffnen

Trust-Center & Einstellungen öffnen

Gehe anschließend auf den Punkt „Trust-Center“, oder manchmal auch „Sicherheitseinstellungen“ genannt.

Makroeinstellungen öffnen

Klicke auf den farblich markierten Button und öffne somit die Einstellungen des Trust-Centers.

Beachte natürlich die Hinweise hinter den einzelnen Optionen und öffne nur Dateien, dessen Absender Du kennst, bzw. vertraust!

Alternativ kannst Du zur gezeigten Methode auch für jede Mappe einzeln bestimmen, ob Du dessen Makros verwenden möchtest.

Diese Möglichkeit bietet Dir Excel eigentlich auch von selbst an, meist mit einem kleinen Popup.

Allerdings kann die bei häufiger Verwendung von Makros auch nervig werden, jedoch ist es die sicherere Variante.

Entwicklertools einbinden

Mit dem nächsten Schritt würde ich Dir auch gleichzeitig ans Herz legen, die Entwicklertools in dein Menüband von Excel einzubinden.

Auch hier erschaffst Du Dir so einen schnellen und einfachen Zugriff auf die eventuell notwendigen Tools.

Öffne auch hierzu wieder die Optionen von Excel und klicke links außen auf „Menüband anpassen„.

Danach kannst Du die Entwicklertools meist mit einer Checkbox auf der rechten Seite aktivieren.

Excel Makro erstellen – Die Praxis

Nachdem Du im letzten Schritt eventuell die Entwicklertools aktivierst hast, oder bereits aktiviert hattest, nutzen wir Diese auch gleich.

Klicke dafür in deinem Menüband auf die Entwicklertools und anschließend auf die Fläche namens Makros.

Gebe nun einen Namen für dein neues Makro ein und bestätige Diesen danach.

Im nächsten Schritt wird sich dadurch der VBA-Editor öffnen und schon einige Zeilen an Code zeigen.

Hier könntest Du nun den Code deines Makros eintragen und z. B. durch:

MsgBox("Yay, mein eigenes Makro!")

eine simple Messagebox anzeigen lassen.

Detailliertere Informationen findest Du auch in der offiziellen Dokumentation von Microsoft.

Der Beitrag Excel Makro erstellen erschien zuerst auf Robert Skibbe.

Excel Makro Button

Lasse mit einem Excel Makro Button eine vorgefertigte Kette von Anweisungen ausführen und deine Arbeit vereinfachen.

Wie Du einen solchen Button erstellst, um ein definiertes Makro aufzurufen lernst Du in meinem heutigen Beitrag zum Thema Excel VBA.

Vielleicht hast Du ja später noch Interesse an anderen Excel VBA Beiträgen: VBA For Schleife, MsgBox, Range.

Achtung! Bevor Du mit Makros durchstarten kannst, musst Du Sie vorher in Excel aktivieren!

Was sind Makros?

Nicht zu verwechseln mit dem slawischen, männlichen Vornamen „Marko“, ist ein Makro eine Folge von Anweisungen.

Besonders häufig, bzw. besonders beliebt sind Makros im Automatisierungsbereich in verschiedenen Kontexten.

Speziell die Arbeit mit Tabellen aus z. B. Microsoft Excel bietet die Erstellung und Verwendung solcher hilfreichen Makros an.

Dabei wird dem Nutzer nicht nur vorhandene und zukünftige Arbeit abgenommen, die Arbeit kann dadurch auch wesentlich effizienter gestaltet werden!

Makros ausführen

Um bereits erstellte Makros auszuführen kannst Du verschiedene Methoden verwenden, darunter:

Möglichkeiten

• durch eine Tastenkombination
• beim Öffnen einer Projektmappe
• aus dem Visual Basic Editor (VBE)
• und mehr..

In diesem Beitrag beschäftigen wir uns allerdings mit einem Button, also dem Ausführen eines Makros bei Klick auf einem Button.

Methode 1: Button als Form einfügen

Damit wir einen Knopf verwenden können, um ein jeweiliges „auf Ihm“ hinterlegtes Makro auszuführen, müssen wir diesen Knopf natürlich erst einmal hinzufügen.

Achtung! Je nach Excel Version kann sich die Menüführung unterschiedlich gestalten. Schaue auch ggf. in den Entwicklerwerkzeugen in Excel vorbei und prüfe vorher, ob du Diese aktiviert hast! Verwende für Excel-Sheets mit Makros auch die Dateiendung ".xlsm".

Einfügen Menü

Gehe dazu in das obere Menü von Excel und suche den Punkt „Einfügen„:

Abgerundetes Rechteck

Wähle anschließend aus, dass Du eine Form wie z. B. das abgerundete Rechteck einfügen möchtest:

Achtung! Auch hier nochmal der Hinweis auf unterschiedliche Excel-Versionen – Falls Du nicht fündig wirst, schaue doch mal ins Menü "Entwickler" (es muss erst aktiviert werden!)

Button gestalten

Danach kannst Du deinen Button, bzw. dein abgerundetes Rechteck so gestalten wie Du magst:

Makro an Button binden

Nachdem wir im vorherigen Schritt den Button an sich mit Einfügen eines abgerundeten Rechtecks erledigt haben, können wir Diesem nun das Makro zuweisen.

Klicke den Button dazu einfach mit der rechten Maustaste an und wähle „Makro zuweisen“ – fertig!

Nun kannst Du Dein definiertes Makro über den hinzugefügten und gestylten Button aufrufen!

Methode 2: Schaltfläche über den Entwickler-Tab einfügen

Die zweite – und oft bessere – Methode nutzt den Entwickler-Tab in Excel.
Damit erhältst Du eine echte Formular-Schaltfläche, bei der das Makro
direkt beim Erstellen zugewiesen wird.

Schritt 1: Entwickler-Tab aktivieren

Falls der Entwickler-Tab noch nicht sichtbar ist:
Datei → Optionen → Menüband anpassen → Entwicklertools aktivieren → OK.

Schritt 2: Schaltfläche einfügen

Wechsle in den Tab „Entwickler“ und klicke auf „Einfügen“. Unter „Formularsteuerelemente“ findest Du das Symbol für eine Schaltfläche (erstes Icon). Zeichne die Schaltfläche auf dem gewünschten Bereich im Sheet.

Schritt 3: Makro direkt zuweisen

Direkt nach dem Loslassen der Maus öffnet sich automatisch der Dialog „Makro zuweisen“. Wähle Dein Makro aus der Liste, oder erstelle ein neues direkt über „Neu“.

Ein einfaches VBA-Makro als Beispiel

Falls Du noch kein Makro hast, hier ein schnelles Beispiel zum Testen. Öffne den VBA-Editor mit Alt + F11, füge ein neues Modul ein und trage folgenden Code ein:

Sub MeinMakro()
    MsgBox "Makro wurde erfolgreich ausgeführt!", vbInformation, "Info"
End Sub

Weise dieses Makro anschließend Deinem Button zu — fertig. Beim Klick auf den Button erscheint eine Meldung als Bestätigung.

FAQ

Der Beitrag Excel Makro Button erschien zuerst auf Robert Skibbe.

IFS VBA

Möchtest Du mit der IFS VBA Funktion/Formel umzugehen wissen, bzw. verstehen was Diese überhaupt ist?

Dann heiße ich Dich in meinem heutigen Beitrag zur Visual Basic for Applications Kategorie herzlich willkommen.

Vielleicht steht Dir anschließend auch noch der Sinn nach anderweitigen VBA relevanten Beiträgen: VBA For Schleife, InStr, Range.

Achtung! Die IFS Funktion ist nur im Excel-Kontext als Formel vorhanden! Die dazu benötigte Excel Version findet man auf Windows & Mac, wenn man mind. Office 2019, oder ein Microsoft 365 Abonnement hat.

Awendungsfälle

Wer kennt es nicht? Man möchte durch kurze geschickte Abfragen den Ablauf des Programmes bestimmen und leiten.

Vielleicht sind Dir auch schon derartige Konstroll– , bzw. Verzweigungs-Strukturen wie das „If-Then-Else“- & das „Select-Case“ bekannt.

Das gut bekannte „If-Then-Else„-Konstrukt wird eher für die Abarbeitung, bzw. Steuerung von verschiedenen Ausgangspunkten verwendet.

Ich kann prüfen, ob die Performance einer Aktie gut war, jedoch dennoch die Dividende gekürzt wurde.

Bei dem „Select-Case„-Konstrukt hingegen, prüft man für gewöhnlich einen Ausgangspunkt – z. B. auch Bereiche dessen – und handelt je nach Ergebnis.

Bleiben wir bei unserem kleinen Aktien-Beispiel und verfahren je nach Dividendenrendite anders:

Dim dividendYieldPercentage As Integer = 9
Dim message As String = ""
Select Case
    Case 1 To 2
        message = "Dividend yield is okay!"
    Case 3 To 4
        message = "Woah! Nice yield!"
    Case 5 To 6
        message = "Hmm, nice but maybe too much!?"
    Case Else
        message = "Woah, this is too much to be good!"
End Case

In der Kürze..

Häufig sagt man, dass in der Kürze die bekannte Würze liegt, man möchte es also ab und zu gerne kurz und schmerzlos haben.

Wenn man jedoch die Länge des jeweiligen Konstruktes in Augenschein nimmt, hat man ein anderes Gefühl, eher lang und wiederholend.

Im Falle einer relativ simplen „If-Anweisung“ kann man den Ausdruck natürlich auch optional auf eine Zeile reduzieren.

Je komplexer die eben erwähnte „If-Anweisung“ allerdings wird, desto unlesbarer und unmöglich wird die Anweisung.

Dim performance As Integer = 100
If performance <= 20 Then MsgBox("Yay")

Nehmen wir allerdings das Beispiel von oben, wäre es unlesbar und teilweise auch nicht möglich, daher würde ich nur in seltenen Fällen zur Verkürzung raten.

IFS VBA Erklärung

Mit der IFS-Funktion haben wir eine weitere Kontrollstruktur, um den Ablauf des „Programmes“ zu gestalten.

Die IFS VBA (Excel) Formel wird dabei zunächst analog zum „Einzeiligen If“ formuliert, mit einem kleinen Unterschied.

Statt weniger Ausdrücke wie im If-Beispiel, können wir nun mehrere Ausdrücke wie durch Zauberhand kombinieren.

IFS VBA Syntax – Schreibweise

Schauen wir uns zum obigen Vergleich einmal die Struktur, bzw. die Syntax der IFS-Funktion an:

=IFS(<condition 1>, <value 1>, <condition 2>, ....)

Dabei stellen wir fest, dass wir innerhalb der Klammern – also durch Angabe von Parametern – verschiedene Paare an Konditionen & Werten angeben können.

Laut offizieller Dokumentation der IFS VBA Funktion von Microsoft, können wir bis zu 127 verschiedene Bedingungen prüfen und auswerten.

Natürlich sollte man das nach Möglichkeit vermeiden, wer möchte schon eine gefühlt 40000 Zeichen lange Zeile lesen..

Neben der schier endlos langen Zeile, hat man natürlich noch ein Problem mit den einzelnen Reihenfolgen, wo man sich dann leicht irren kann.

Beispiel – Excel Zelle anhand IFS Formel

Um nun beispielsweise den Wert einer Zelle im Excel-Sheet zu setzen, könnte man analog zu oben folgendes Beispiel verwenden.

Wir ziehen uns die Dividendenrendite dafür nun aus einer Zelle namens „A2“ und setzen den Wert der Zelle „A3“ dann auf das Ergebnis.

=IFS(A2<3, "Yield OK!", A2<5, "Nice yield!", A2<7, "Too much!")

Wenn im Beispiel der Wert in der Zelle „A2“ z. B. unter 3 liegt, dann gibt die Formel den Wert „Yield OK!“ zurück.

Bei einem Wert unter 5 dann „Nice yield!“ und und und..

Funktioniert übrigens auch bei Google Sheets

Die IFS-Formel gibt es übrigens auch für die bekannte Cloud-Tabellen-Plattform Google Sheets.

Der einzige simple Unterschied ist, dass man dort statt Kommas (,) dann Semikolons (;) verwenden muss.

Aber ich wollte IFS für VBA :(!?

Kein Problem! Leider wird man wie oben gesehen bei den Begriffen „IFS VBA“ größtenteils nur im Bereich der Tabellen – also Microsoft Excel & Google Sheets – fündig.

Es gibt allerdings auch Codes wie Dieser hier (vom Stackoverflow-Nutzer „jsheeran“), Welcher eine ähnliche Implementierung im Bereich VBA darstellt:

Public Function UdfIfs(ParamArray args() As Variant) As Variant
  Dim i As Integer
  i = 0 ' or 1 if you're not using zero-based indexing
  Do Until CBool(args(i)) Or (i >= UBound(args))
    i = i + 2
  Loop
  If i < UBound(args) Then
    UdfIfs = args(i + 1)
  End If
End Function

Der Beitrag IFS VBA erschien zuerst auf Robert Skibbe.

VBA For Schleife

Du möchtest die VBA For Schleife zum Durchlaufen von z. B. Zellen verwenden, oder verstehen, was Schleifen sind?

Dann starte jetzt durch und lerne in meinem heutigen Beitrag alles Wissenswerte über das für die Programmierung essentielle Thema namens „Schleifen„.

Vielleicht möchtest Du zu einem späteren Zeitpunkt auch in meine folgenden anderen Beiträge reinschauen: MsgBox, Range, VBA Array.

Ein Teil der Infrastruktur

Schleifen sind in der Programmierung ein essentieller Teil der Infrastruktur und somit so gut wie in jeder Sprache ein häufig genutzten Basis-Werkzeug.

Nicht umsonst ist das so, denn wir müssen an verschiedenen Stellen im Programmablauf gewisse Dinge wiederholen.

Die Konditionen, bzw. Bedingungen für diese Wiederholungen können unterschiedlicher Natur sein und können sich während des Programmablaufs verändern.

Manchmal möchten wir Objekte durchlaufen, manchmal möchten wir Prozeduren und Sub-Prozeduren anhand einer gewissen Anzahl an Durchläufen wiederholen.

Nicht aus dem Luftverkehr

Anders als man eventuell als Nicht-Entwickler denken könnte, haben Schleifen in der Softwareentwicklung nichts mit „eine Schleife fliegen“ zu tun.

Okay, zugegebenermaßen wiederholen Flugzeuge ja beim Schleifen–Ziehen auch vermutlich gewisse Muster – insofern ich das beurteilen kann..

Daher läuft es zumindest ähnlich bei einer Schleife in der Softwareentwicklung ab, da auch dort gewisse Prozesse wiederholt, oder zumindest ähnlich abgearbeitet werden.

Denke z. B. an ein Kartenspiel

Stell‚ Dir mal ein gutes altes Kartenspiel wie z. B. Mau-Mau, oder auch Skip-Bo wenn Du möchtest vor.

Meistens werden in den gängigen Spielen aus einem vorhandenen Deck eine gewisse Anzahl an Karten gezogen.

Diese müssen natürlich einerseits aus dem Deck verschwinden und andererseits in Deine Hand aufgenommen werden.

So wie ich die Mau-Mau Regeln kenne, zieht jeder Spieler zu Beginn des Spiels 7 Karten aus dem Deck und sortiert Diese wie Ihm beliebt.

Dabei haben wir auch schon ein wichtiges Kriterium a la „7 Karten“ genannt, wir haben also eine Art Zähler.

Der Zähler gibt dabei an, wie oft der Inhalt der Schleife, also der „Zieh eine Karte“-Prozess wiederholt werden soll.

Dadurch wird der sogenannte Body (der Inhalt) der Schleife, anhand einer gewissen Anzahl von Wiederholungen ausgeführt.

Schleifen-Arten

In der Programmierung unterscheiden wir gängigerweise zwischen zwei verschiedene Arten von Schleifen. Die Ausführung, bzw. die genauere Steuerung des Schleifeninhalts kann unter Umständen variieren.

In einigen Fällen müssen wir eventuell erst ein bestimmtes Kriterium überprüfen und anschließend den Inhalt der Schleife ausführen.

In anderen Fällen müssen wir hingegen eventuell die Prüfung für die Ausführung an das Ende der Schleife verlagern.

Siehe Dir dazu das folgende Bild genauer an:

Wie in dem Teil hier drüber bereits angeschnitten, gibt es einerseits die zählergesteuerte Schleife. Die Anzahl der Wiederholungen einer zählergesteuerten Schleife wird anhand eines Zählers festgelegt. Der Zähler kann dabei natürlich aus unterschiedlichen Quellen wie z. B. einer Variable, oder eines Zellenwertes kommen.

Kopfgesteuerte Schleifen

Bei den Kopfgesteuerten Schleifen handelt es sich um ein Schleifenkonstrukt, Welches die Bedingung zur Ausführung im Kopf prüft.

Falls und auch nur wenn die Bedingung erfüllt ist, wird der Body, also der Inhalt der Schleife ausgeführt und anschließend wieder zum Kopf gesprungen.

Danach folgt eine erneute Prüfung und eine eventuelle neue Durchführung – eine Schleife ist geboren!

Fußgesteuerte Schleifen

Der nächste Schleifen-Typ wäre die fußgesteuerte Schleife, Welche analog zur obigen funktioniert.

Hierbei wird allerdings die Überprüfung der Bedingung erst im Fuß durchgeführt.

Das hat dann zur Folge, dass der Body der Schleife zuerst ausgeführt wird und erst im Fuß eine erneute Ausführung erörtert wird.

Der Bezug zum Code – VBA For Schleife

Fangen wir nun einmal an, mit dem folgenden Beispiel den konkreten Bezug zum Code herzustellen. Dabei ist es wichtig zu verstehen, in welchem Kontext die Schleifen arbeiten. Andererseits sollte man diverse gängige Fehler durch die Verwendung von Schleifen vermeiden.

Prozesse, bzw. Unterprozesse aufrufen

Viele anfängliche Excel-Programmierer verwenden Code wie gleich demonstriert. Sei es aus welchen Beweggründen auch immer: Unwissen, Unsicherheit, etc. Leider ist die dann entstehende Vorgehensweise wie wir gleich sehen werden, aus diversen Gründen nicht sehr vorteilhaft.

Stellen wir uns dafür vor, dass wir folgende 3 Unterprozesse haben, die zusammen letztendlich z. B. eine Email versenden sollen:

' Deck prüfen
' HandPrüfen
' das Karten ziehen selbst

Manuell mehrfach aufrufen

Falls man bisher noch keine Berührungspunkte mit Schleifen hatte, könnte man in die bekannteste Versuchung kommen (nicht seit es Schokolade gibt – wer die Werbung noch kennt!).

Dieser jemand würde also die obigen drei Schritte – hier einfach nur als Kommentare dargestellt – ggf. so aufrufen:

' Deck prüfen
' HandPrüfen
' das Karten ziehen selbst

' Deck prüfen
' HandPrüfen
' das Karten ziehen selbst

' .... pro Spieler wiederholen

Die Nachteile – bitte nicht machen!

Die dabei auftretenden Probleme stechen einem unerfahrenen Programmierer häufig nicht direkt ins Auge.

Folgeänderungen

Früher oder später wird man allerdings z. B. auf das Problem stoßen, dass Änderungen an Schritt 2 alle 5 Code-Blöcke betreffen.

Man müsste also um praktisch eine Sache zu ändern, 5 Punkte anpassen und je nachdem wie groß der jeweilige Punkt ist, hat man auch den Aufwand – würg!

Dieses Problem könnte natürlich durch den Bau einer Sub gelöst werden. Konzentriere dich hierbei bitte nicht zu sehr auf eine Art Implementierung, also die Vorgehensweise selbst. Versuche nach Möglichkeit den abstrakten Weg dahinter zu verstehen. Die konkrete Ausführung des Ziehens selbst ist hier eher irrelevant, viel mehr spielt die Struktur eine Rolle!

Sub KartenZiehen(anzahlKarten As Integer, spieler As Integer)
  ' Deck prüfen
  ' HandPrüfen
  ' das Karten ziehen selbst
  For i As Integer = 1 To anzahlKarten
    ' realisiere das Ziehen der Karten..
  Next
End Sub

Der Aufruf würde dann durch die Verwendung der Sub so aussehen:

KartenZiehen(7, 1)
KartenZiehen(7, 2)

Das ist natürlich auch nicht wirklich besser, wenn wir an das Beispiel mit dem Kartenspiel denken, denn allein die Formulierung macht es aus:

"..beim Start des Spiels, zieht jeder Spieler X Karten"

Duplicated Code

Ein weiteres Problem, Welches der obige Code ganz klar an den Tag legt, ist das Vorhandensein von „Duplicated Code„.

Wir wiederholen also bestehenden Code, statt ihn korrekterweise in einer Schleife aufzurufen.

Jedes Mal, wenn man z. B. die Bezeichnung der Sub ändern würde, müsste man im schlimmsten Fall alle anderen Vorkommnisse manuell ändern.

Natürlich gibt es auch Funktionen der Entwicklungsumgebung, Welche uns dabei helfen könnten, allerdings ist das ja nicht das Ziel des Ganzen.

VBA For Schleife selbst (zählergesteuert)

Kommen wir nun zur For–Schleife bezogen auf das Beispiel selbst, womit wir die obigen Probleme vermeiden. Auch wenn es hier vermutlich besser wäre eine „For Each“-Schleife zu verwenden.. Das Thema hier ist ja schließlich die For- also eine Zählergesteuerte Schleife!

Dim startHandKartenZahl As Integer
startHandKartenAnzahl = 7
Dim spielerNr As Integer
For spielerNr = 1 To 2
    KartenZiehen(7, spielerNr)
Next

Diese Schleifen-Art nennt man auch zählergesteuerte und kopfgesteuerte Schleife, denn Sie benutzt eine Zähler–Variable namens „spielerNr“.

Ebenso verwendet die Schleife die Bedingung zur Ausführung im Kopf, dass heißt, dass die Schleife nur ausgeführt wird, solange und nur wenn die Bedingung im Kopf „True“ ergibt.

VBA For Schleife (zählergesteuert) rückwärts

Besonders cool ist auch die Möglichkeit die Schleife mit wenig Aufwand einfach rückwärts laufen zu lassen. In diesem Fall würde also statt der Spieler 1, der Spieler 2 seine Karten zuerst bekommen.

Es kann ja nicht immer nur Mario an Platz 1 sein, sondern auch mal Luigi!

For spielerNr = 2 To 1 Step -1
    KartenZiehen(7, spielerNr)
Next

Ein weiteres VBA For Schleife Beispiel (objektgesteuert)

Ein weiteres nützliches Beispiel für eine VBA For Schleife wäre – ich nenne es mal – das objektgesteuerte Beispiel.

Statt wie oben mit einer Zähler-Variable zu arbeiten, verwendet man hierbei die tatsächlichen Objekte an sich als Iterationsmöglichkeit.

Eine einfache Erklärung könnte z. B. die gute alte Chipstüte bieten, klingt zwar komisch, ist aber so!

Ich glaube jeder stand schon mal, bzw. steht immer wieder vor dem „Problem“ nicht aufhören zu können.

Statt nach einer kleinen Portion bereits aufzuhören – was vermutlich auch dem ein oder anderen Fettpölsterchen gut täte – wird immer weiter gefuttert.

So könnte man auch bei einer „objektgesteuerten“ For Schleife verfahren, wörtlich gesprochen wie folgt:

• „Für“ jeden einzelnen Chip
• Nehme den Chip in die Hand
• Führe den Chip in den Mund (öffnen und schließen lasse ich jetzt mal weg..)
  
  ..Du merkst vermutlich worauf das hier hinausläuft.

Der letztendlich für das Dein Verständnis relevante Part ist hier das „Für jeden einzelnen Chip..“.

Alle Chips in der Tüte essen – yummy

Siehe Dir folgendes Beispiel einer VBA Schleife an, um zu verstehen wie ich obigen Pseudocode meine.

Beachte jedoch, dass ich hier die Deklarationen, bzw. Initialisierungen der Variablen erstmal weglasse..

Die „chips“-Auflistung kann z. B. auch durch den Aufruf, also als Rückgabewert einer Funktion zustande kommen.

For Each chip In chips
    Person.Essen(chip)
Next

Alle Strings eines Arrays durchlaufen

Ich denke, es ist noch einfacher, oder eher näher am Code, wenn Du das folgende Beispiel siehst:

' deklariere ein neues Array der Größe 3
Dim namen(0 To 2) As String

' befülle das Array mit Namen
namen(0) = "Robert"
namen(1) = "John"
namen(2) = "Debbie"

For Each name In namen
    ' mach irgendwas mit dem Namen
    ' in der Variable "name"
Next

Natürlich funktioniert diese Vorgehensweise auch mit anderen primitiven Datentypen wie z. B. Integern, oder Dates.

Der Beitrag VBA For Schleife erschien zuerst auf Robert Skibbe.

VBA InStr

Du möchtest die VBA InStr Funktion lernen und anwenden können und damit überprüfen, ob ein String innerhalb eines Anderen ist?

Dann freut es mich, Dir in diesem Beitrag die passende InStr-Funktion vorzustellen!

Eventuell hast Du zu einem späteren Zeitpunkt auch Interesse an einem der folgenden Beiträge: Excel VBA Array, InStr, Excel Range.

Tabellen-Arbeit – VBA InStr

Du bist in Excel VBA (Visual Basic for Applications) unterwegs und musst in einer Tabelle gewisse Prüfungen durchführen.

Durch einzelne Zellen navigierst Du, nimmst deren Wert entgegen und Du müsstest nun prüfen, ob sich dort ein gewisser Wert im String befindet?

Je nach deinem Ziel ist es mehr oder weniger von Wichtigkeit, an welcher genauen Position sich der String innerhalb des anderen Strings befindet.

Da wir in VBA die aus dem .NET bekannte Contains-Funktion, leider nicht verfügbar ist, müssen wir uns anders helfen.

Keine Panik, auch in VBA können wir uns wie fast immer mit gängigen Funktionen helfen, jedenfalls insofern Sie uns bekannt sind.

Strings durchforsten

Eine in VBA befindliche Funktion, Welche wir für unsere genannten Ziele verwenden können, ist die InStr-Funktion.

Die Funktion durchforstet die überlieferte Zeichenfolge und schaut, an Welcher Position Sie die Ziel–Zeichenfolge finden kann.

Falls Sie die Zeichenfolge des Begehrens nicht finden kann, gibt Diese als Rückgabewert eine Zahl 0 zurück.

Für den Vergleich selbst, haben wir die Option, den Vergleichs–Modus angeben zu können, wo wir letztendlich aus 4 Werten auswählen können.

Die VBA InStr Funktionalität

Bevor wir tiefer ins Geschehen huschen, schauen wir uns wie fast immer vorher einmal die Aufrufmöglichkeiten der Funktion an.

Parameterliste

[Optional] start [Integer]

Der start-Parameter spezifiziert die Position, ab der die Suche gestartet wird.

Da der Parameter als optional gekennzeichnet ist, wird bei Nicht-Angabe die Suche automatisch ab Anfang gestartet.

string1 [String]

Dieser String, ist sozusagen das Subjekt, also das „Ding“, worin gesucht wird.

string2 [String]

Hierbei handelt es sich sozusagen um die Nadel, die im Heuhaufen – oder Subjekt – gesucht werden soll.

[Optional] compare [Integer]

Mit diesem Parameter haben wir die Möglichkeit 1 der folgenden Vergleichs-Methoden zu konfigurieren:

Wenn man diesen Parameter überspringt, wird die binäre Vergleichs-Methode verwendet.

Ich denke die für uns relevanten Vergleichs-Arten sind: vbBinaryCompare & vbTextCompare.

Der binäre Vergleich, also die vbBinaryCompare Option gibt an, dass die Zeichen exakt übereinstimmen müssen.

Die Option vbTextCompare hingegen nutzt den textbasierten Vergleich, dabei spielen Groß– und Kleinschreibung keine Rolle.

Code – VBA InStr

In diesem Abschnitt schauen wir uns Beispiele an:

Dim text
text = "Excel is a great tool!"
Dim needle
needle = "great"
Dim result
result = InStr(1, text, needle)
MsgBox(result)

Zuerst deklarieren wir eine Variable „text“ und weisen ihr danach den Wert „Excel is a great tool!“ zu, dies bildet unseren zu durchsuchenden Text.

Danach kommt ein weiterer String namens „needle“ hinzu, Welche im wahrsten Sinne des Wortes unsere Nadel im Heuhaufen darstellt.

Danach speichern wir das Ergebnis unserer Suche in der „result“-Variable zwischen und geben Dieses aus!

Wenn Du das Beispiel ausführst, bekommst Du den Wert „12“ angezeigt, da sich unser gesuchtes Wort „great“ an der 12 Position im String befindet.

Der Beitrag VBA InStr erschien zuerst auf Robert Skibbe.