VBA – die besten Beiträge

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

Hallo zusammen.

Gibt es eine Möglichkeit, mit einem Makro den VBA-Editor zu öffnen und gleich in ein bestimmtes Modul zu springen? Hintergrund ist folgender: Über einen Button wird ein Makro gestartet, das eine andere Datei öffnen und eine bestimmte Tabelle aus der anderen Datei in die eigene Mappe holen soll. Jetzt möchte ich eine Abbruchbedingung für ne Error-Meldung implementieren, die den Anwender direkt an die Stelle im Editor navigiert, wo der Dateiname ggfs angepasst werden muss.

Ich hab bis jetzt nur das gefunden:

Application.VBE.MainWindow.Visible = True

Vielen Dank für Eure Hilfe, Jan

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub

Hallo, folgendes Problem: ich habe zwei Excel-Dateien, in beiden sind Datensätze mit eindeutigen Nummern. Jetzt soll es in Datei-A nacheinander jede Zeile der Spalte A nehmen, in Datei-B danach suchen und wenn es nicht gefunden wurde, soll es die nicht gefundene Zeile aus Datei-A in Datei-B an die letzte Stelle anfügen. Und das soll es mit jeder einzelnen Zeile aus Datei-A machen (also mit einer While-Schleife).

Kann mir wer helfen?

Hallo zusammen,

ich möchte aus einem Bericht in einer bestimmten Spalte in Excel ein Datum aus einem Text auslesen. Da es aber nicht als Datum in Excel formatiert ist komme ich nicht weiter. Gibt es die Möglichkeit, nach einer bestimmten Zeichenfolge zu suchen? Also z.B. ZahlZahlPunktZahlZahlPunktZahlZahlZahlZahl (tt.mm.jjjj)?

Danke für eure Ideen :)

Schönen Gruß Jan

Hallo, ich habe einen Button in Excel, über welchen die aktuellste Version eines Dokuments in einem Ordner geöffnet werden soll. Der Pfad zum Ordner ist z.B. C:\Hallo\ und die Dokument-Namen habe immer folgenden Aufbau: beispiel-JJJJ_MM_DD.xlsx. In dem Ordner befindet sich auch nichts anderes außer den Dokumenten mit diesem Aufbau. Kann mir hier jemand helfen?

Hallo, ich habe ein kleines Programm in VBA. Ich hänge gerade an folgender Stelle: Es sind 2 Excel-Dateien geöffnet (Datei-A und Datei-B). Das aktive Workbook ist Datei-A. Jetzt möchte ich aus Datei-B eine Zelle auslesen und diese einer Variablen als Wert zuweisen. Wie mache ich das? Datei-B ist ja weder das ActiveWorkbook, noch muss ich es erst noch öffnen, um es zum ActiveWorkbook zu machen. Ich möchte kurz gesagt zwei Variablen: Variable A ist Datei-A und Variable B ist Datei-B und möchte so immer zwischen diesen beiden unterscheiden. Ich möchte gerne ohne "ActiveWorkbook" arbeiten. Ich hoffe man versteht mein Problem und ihr könnt mir helfen.

Hi,

ich möchte, dass bei verbundenen Zellen die Zeilenhöhe automatisch en den Text angepasst wird. Gleichzeitig soll aber die Zellenformatierung (Schriftwart- und Größe, etc) nicht verändert werden. Ich hoffe, hier kann jemand helfen, ich bin echt verzweifelt.

Danke.

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

Hallo zusammen, ich möchte gerne über VBA einer Date-Variablen den Wert aus einer bestimmten Zelle zuordnen in der Form "YYYYMMDD", einen Tag abziehen und anschließend mittels MsgBox ausgeben. Es steht z.B. in Zelle A2: "20160701" und es soll am Ende "20160630" ausgeben.

Kann mir hier kurz jemand helfen?

Hallo liebe Community,

ich weiß, es gibt mehrere Leute, die diese Frage schon gestellt haben, aber ich bekomme es einfach nicht hin. Vielleicht habe ich auch nur gerade eine Denk(Dummheits)Blockade, versuche das seit ca 2 Stunden zu realisieren.

Ich habe eine Tabelle mit diversen Daten und ein (Balken)Diagramm, welches für jede weitere Zeile in der Tabelle einen neuen Balken hinzufügen sollte. Das ist an sich nicht schwer, aber ich möchte, solange noch keine Daten vorhanden sind, keine leeren Stellen im Diagramm... (siehe: https://gyazo.com/346a1e059ea781ea82d471505856904a) ...und das kriege ich nicht hin.

Ich habe eine Hilfstabelle gemacht und einen Filter darüber gelegt, dass alle leeren ("") Zellen ausgeblendet werden, das funktioniert auch soweit im Diagramm, aber ich muss nach jedem Eintrag in die eigentliche Tabelle wieder den Filter von Hand aktualisieren und das ist ärgerlich.

Ich hoffe ihr könnt mir helfen, sonst sehe ich schwarz für meinen PC und mein Fenster (und eventuelle Fußgänger). Erklärt es am besten so, wie ihr es einem 6 Jährigen erklären würdet. :)

Grüße Tuesday

/ps: Was ich bisher ausgegraben habe und (vermutlich wegen mangelnder - bis nicht existenter - VBA Kenntnis) nicht funktioniert hat:

• office-loesung.de/ftopic93223_0_0_asc.php

• office-loesung.de/ftopic60304_0_0_asc.php

• gutefrage.net/frage/excel-gefilterte-daten-automatisch-aktualisieren

Hallo zusammen,

ich bin gerade dabei, eine Datenbank zu erstellen und würde dafür gerne Daten von einer Website automatisch auslesen lassen. Konkret geht es um die Arbeitslosenquoten aller Landkreise und Städte, die von der Bundesagentur für Arbeit monatlich veröffentlicht werden.

Hier ein Link zu einer Beispielstadt: https://statistik.arbeitsagentur.de/Navigation/Statistik/Statistik-nach-Regionen/Politische-Gebietsstruktur/Bayern/Amberg-Stadt-Nav.html

Im Beispiel sollte die Arbeitslosenquote insgesamt (5,9) und der Stand der Angabe (Mai 2016), der über der Tabelle steht, ausgelesen werden.

Im HTML-Code ist die Quote in folgender Zeile angegeben: 5,9 Beim Datum sieht es folgendermaßen aus: Ar­beits­markt im Über­blick - Be­richts­mo­nat Mai 2016 - Am­berg, Stadt

Dabei sollten die ausgelesenen Werte in zwei separaten Excel-Feldern ausgegeben werden. Das muss aber nicht zwingend alles in einem Makro geschehen. Zwei Makros für die unterschiedlichen Felder wären optimal, da ich den Code dann wahrscheinlich auch besser nachvollziehen kann.

Da die direkte Webabfrage über Excel nicht funktioniert, weil die Seite nicht korrekt geladen wird, denke ich, dass VBA hier unumgänglich ist, oder? Ich habe jedoch leider keine Programmierkenntnisse und bin aus den Einträgen in diversen Foren leider auch nicht schlau geworden.

Im Nachhinein müsste das Makro entsprechend anpassbar sein, sodass ich auch die Daten der anderen Städte auslesen kann (die Quellseite ist immer nach dem gleichem Prinzip aufgebaut).

Falls jemand eine Idee hat, wie das Problem zu lösen ist, würde ich mich sehr darüber freuen! Vielen Dank!

Hallo, ich habe in Excel eine XLSM-Datei und eine accdb-Datei für Access. Jetzt versuche ich in der Excel Datei mittels VBA auf Knopfdruck eine Verbindung zu der Datenbank aufzubauen und probehalber alle Datensätze zu löschen, das funktioniert jedoch nicht, es wird also vermutlich schon die Verbindung nicht klappen... Code ist folgender (aus dem Internet zusammenkopiert, da ich noch nie mit Access-Datenbanken gearbeitet habe):

Public Sub test_db()
Dim conn As ADODB.Connection

    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source = W:\CU-AL\..."
    Sql = "DELETE * FROM Test"
    conn.Close
    End Sub

Was mache ich falsch? Vorallem: welchen Provider brauche ich???

Und ich muss doch auch in Excel unter "Extras" --> "Verweise" bestimmte Häckchen setzen. Wisst ihr, welche das sind?

Hallo liebe Community,

ich versuche seit einer knappen Stunde diese Problem zu lösen und habe auch schon google konsultiert, konnte aber bisher keine zufriedenstellende Lösung finden.

Mit einem Zwischenschritt ohne VBA würde ich es hinbekommen, aber da ich diese Funktion sehr oft benutzen werde, wollte ich es doch etwas angenehmer haben.

• Excel 2013

• Mein Bereich ist E6:I400

• Die kopierten Daten haben immer diesen Aufbauen: (Dezimal-)Zahl + Buchstaben (z.B. 0,9 g, 123 kcal)

Ich hätte nun gerne einen Knopf, den ich aktivieren kann, der dann in allen Zellen in meine Bereich jegliche Buchstaben/Leerzeichen entfernt und nurnoch die Zahlen ausgibt (also nurnoch 0,9 und 123 mit obigem Beispiel).

Ich hoffe ihr könnt mir helfen.

Vielen Dank im Voraus Tues

Hallo, ich habe eine große Excel Tabelle und muss nun das Datum aus einer Zelle lesen, um es in eine andere zu schreiben. In der Zelle steht beispielsweise "neu ab 07.05.16". Jetzt muss ich aus dieser Zelle das "07.05.16" lesen und in eine andere schreiben. Die Zellen haben immer dasselbe Format: Neu ab 'Datum'. Kann mir hier jemand helfen? Das ganze soll mit VBA gemacht werden.

Hi, folgende Aufgabe muss ich lösen: Nach Eingabe von zwei Zahlen fragt das Programm ob plus oder minus gerechnet werden muss und gibt dann das entsprechende Ergebnis aus... Ich habe folgende Lösung:

Public Zahl1, Zahl2, Ergebnis As Long

Public Art As String

Sub Zahlen()

Zahl1 = InputBox("Geben Sie die erste Zahl ein: ")

Zahl2 = InputBox("Geben Sie die zweite Zahl ein: ")

Art = InputBox("Sollen die Zahlen addiert oder subtrahiert werden? +/-")

If Art = "+" Then

Ergebnis = (Zahl1 + Zahl2)

Else

Ergebnis = (Zahl1 - Zahl2)

End If

MsgBox ("Das Ergebnis lautet " & Ergebnis & ".")

End Sub

Das Problem ist, dass das Ergebis, wenn Zahl1 & 2 jeweils 1 sind, ja logischerweise 2 sein müsste...allerdings kommt halt 11 raus. Also er fügt die Zahlen einfach zusammen.

Kann mir da jemand helfen?? Danke im Voraus :)

Ich würde wissen, ob es eine Formel für Excel gibt, um zu prüfen, ob der Text in einer bestimmten Zelle durchgestrichen ist. Mit VBA wüsste ich schon wie das geht, allerdings konnte ich in dieser Tabelle bislang alles mit Excel-Formeln lösen und möchte jetzt nicht extra ein Makro aufmachen für diese kleine Aufgabe.

Danke im Voraus!