Excel ist von meiner Hass - Liebe mit "Billy Boy" eines der besten Tools. Seit meinem Studium arbeite ich mit diesem Teil. Der Quanten - Sprung wurde bei Excel mit der Fusion mit Visual Basic vollzogen. Ich wage zu behaupten, dass man zu 80% seine Rechenarbeit mit Excel und  VBA erleichtern kann. Und in Verbindung mit Access und Word kam man schon sehr schöne semiprofessionelle Anwendungen entwickeln.

 Einige kleine Tipps für Ihre Programme

        1.      Mit diesem Makro ist es Ihnen möglich , mit Hilfe eines Vlookup aus einer Excel - Tabelle über einen Suchbegriff                    ein Wert zu finden.

                         Public Function holewert(Suche_nach As String) As Single
                               Dim durchsuche As Range
                                If Suche_nach <> "" Then
                                    Set durchsuche = Worksheets("Ihre_Tabelle").Range("A1:C91")
                                    holewert = Application.VLookup(Suche_nach, durchsuche, 3)
                                Else
                                    holewert = 0
                                End If

                          End Function

        2.      Diese Makro entspricht dem 1. Beispiel, durchsucht aber eine Tabelle deren Spalten sich ständig ändert.                    (z.B. verknüpfte Access- Tabelle) 

                         Public Function holewert(Suche_nach As String) As Single

                               Dim durchsuche As Range
                                Set sstart = Workbooks("Ihr_Programm").Worksheets("Ihre_Tabelle").Range("A1")
                                Set sende = sstart.End(xlDown).Offset(0, 2)

                                If Suche_nach <> "" Then
                                    Set durchsuche = Worksheets("Ihre_Tabelle").Range(sstart, sende)
                                    holewert = Application.VLookup(Suche_nach, durchsuche, 3)
                                Else
                                    holewert = 0
                                End If

                          End Function

Haben Sie ein Problem mit Excel & Co, was Sie nicht lösen können. Einfach eine Mail an mich und ich werde es mal versuchen. 
        

zurück zur Startseite