Herr Müller macht

Coding


Habt ihr schon mal etwas von

Vibe-Coding

gehört?



Vibe-Coding mit KI bedeutet, dass man beim Programmieren eine
künstliche Intelligenz (KI) als Helfer hat.

Man tippt nicht jeden Befehl ganz genau selbst ein, sondern sagt oder schreibt, was man ungefähr haben möchte – und die KI schlägt Ideen vor oder schreibt Teile vom Programm.

Man arbeitet also mehr nach Gefühl („Vibe“) und
die KI hilft, die Gedanken in richtigen Code zu verwandeln.

👉 Kurz gesagt:
Vibe-Coding mit KI heißt: Du hast einen schlauen Computerfreund, der beim Programmieren mitdenkt und dich kreativ unterstützt.



Und so sieht ein "
Prompt-Befehl" für die KI aus. Ihr beschreibt einfach, was ihr haben wollt:

Erstelle ein Makro für libre office calc: In Spalte A stehen ab Zeile 2 Zahlen. In Spalte B stehen ebenfalls ab Zeile 2 Zahlen. Das Makro soll prüfen, ob die Zahl in Spalte B auch in einer Zelle in Spalte A existiert. Wenn ja, dann soll in Spalte C in der Zeile der Zahl von Spalte B der Text "gefunden" eingefügt werden .

Und als Resultat bekommt ihr dann den im Bild gezeigten Code.
Und das Coole ist: Der Code läuft und ihr könnt euch den Code auch von der KI erklären lassen. Super!


Sub VergleicheSpalten()
    Dim oDoc As Object
    Dim oSheet As Object

    oDoc = ThisComponent
    oSheet = oDoc.Sheets(0) ' erstes Tabellenblatt  
    ' Letzte Zeile in Spalte A bestimmen
    oCursor = oSheet.createCursorByRange(oSheet.getCellRangeByName("A2"))
    oCursor.gotoEndOfUsedArea(True)
    letzteZeileA = oCursor.RangeAddress.EndRow

    ' Schleife über Spalte B
    For i = 1 To letzteZeileB
        oCellB = oSheet.getCellByPosition(1, i) ' Spalte B
        wertB = oCellB.getValue()    
        gefunden = False
        ' Prüfen, ob wertB in Spalte A existiert
        For j = LBound(arrA) To UBound(arrA)
            wertA = arrA(j)(0)
...
        Next j    
        ' Ergebnis in Spalte C schreiben
        oCellC = oSheet.getCellByPosition(2, i)
        If gefunden Then
...
        End If
    Next i
End Sub