VBA – die besten Beiträge

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

LG

Benny

Bin absoluter VBA-Neuling! Ich möchte von einem Arbeitsblatt "Tabelle1" jeweils 2 Zellen aus Spalte B summieren und in "Tabelle2" Spalte B anzeigen lassen. Also quasi Tabelle1(B1+B2) in Tabelle2(B1), Tabelle1(B3+B4) in Tabelle2(B2) und so weiter. Wie geht das?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

End If

Loop

End Sub

Hallo Zusammen,

ich möchte gerne über eine Windows Forms Anwendung (mit TextBox und Button) das System nach Dateien (Inhalt und/oder Namen) durchsuchen und alle Dateien, bei denen die Suche etwas ergeben hat in einen bestimmten Ordner schieben.

Für das Verschieben einer Datei in einen Ordner habe ich bereits einen Code geschrieben, ich habe aber noch Probleme mit der Dateisuche (soll aufgebaut sein wie die "Windows durchsuchen" Funktion auf dem Computer).

Kann mir da jemand weiterhelfen? Ich habe unten noch eine Grafik als Beispiel angehängt, wie die Windows Form Anwendung aussehen soll.

Vielen Dank schon mal!

Hallo Leute,

Wie kann man in Ecxel z.B. die Spalten D,E,F mit einem Button ausblenden?

Quasi, dass man auf den Button klickt und dann sind sie weg und wenn man nochmal draufklickt wieder da// oder zwei Kästchen zwischen denen man wählen kann// o.ä.

Glaube es geht mit VBA, bin da aber nicht geübt....

Danke schon mal :)

Hallo ich habe ein Problem damit einen Pfad (inkl. Dateinamen) in ein Hyperlink-Feld zu schreiben, so dass man die Datei später durch einen einfachen Klick auf das Feld öffnen kann.

    Dim strCurrentSQL As String
    strCurrentSQL = "UPDATE tbl_Bewerbungen " & _
        "SET tbl_Bewerbungen.gedruckt = -1, tbl_Bewerbungen.Anschreiben =  " & Chr(34) & "'" & strTargetFile & "'" & Chr(34) & " " & _
        "WHERE ID = " & varRecordSetID(I) & _
        "AND gedruckt = 0;"
    strRecordSource = Me.RecordSource ' Speichern der Datenbankverbindung in einer Variablen
    Me.RecordSource = "" ' Trennen der Datenbank-Anbindug zur Vermeidung von Schreibkonflikten
    DoCmd.SetWarnings False ' Warnungen abschalten
    DoCmd.RunSQL (strCurrentSQL) ' SQL-Anweisungen zur Aktualisiertung des Druckstatus
    DoCmd.SetWarnings True ' Warnungen wieder aktivieren
    Me.RecordSource = strRecordSource ' Wiederherstellung der Datenbankanbindung

Mein VBA-Code schreibt zwar den Pfad + Dateinamen in das Feld aber man kann später nicht einfach in dem dazugehörigen Formular drauf klicken um die Datei zu öffnen.

Wenn ich im Dateisystem mit Shift und Rechtsklick auf die Datei klicke, um den Pfad zu kopieren und diesen dann von Hand einfüge, dann funktioniert der Link.

Ich vermute es hat etwas mit den Hochkommata zu tun - hat jemand eine Idee was ich falsch mache?

Hallo,

Folgendes Problem: In der Tabelle "Werkzeuge" gibt es in der Spalte D die Spalte "Datum". Das erste Datum ist in der Zelle D5. Anschliessend D6 und so weiter, wie eine normale Tabelle einfach. Nun hab ich auch noch eine Variabel "Date". Jetzt soll verglichen werden, ob die Variabel kleiner als das Datum in der Tabelle ist. Trifft das zu, wird diese Zeile kopiert und im Blatt "Pruefungen" in der Tabelle "Ausgabe" eingefügt. Das soll mit jeder Zeile der Tabelle passieren.

Ich dachte an eine for-Schleife und dann eine if-Abfrage ob die Variabel kleiner ist. Anschliessend wird diese Zeile ,wenn es zutrifft, kopiert. Dann wird auf das andere Blatt gewechselt und dort eingefügt.

Da ich ein Anfänger bin im Thema VBA, würde ich mich freuen, könnte mir jemand behilflich sein. Vielen Dank im voraus.

Gruss flurio

Hallo Zusammen,

ich möchte gerne mit einem commandbutton formeln in einem Bereich kopieren und auf einen anderen Bereich (selbes Layout) übertragen, aber ohne dabei feste Werte zu löschen.

Ich habe eine Grafik beigefügt, die als Beispiel dienen soll. Der Betrag von 20.000€ ist mit einer Formel aus Stunden und Stundensatz berechnet worden. Range("A1:B3") soll nun kopiert werden (nur die Formeln) und anschließend sollen diese in Range("A6:B8") eingefügt werden, allerdings ohne die festen Werte von "Stundensatz" und "Stunden" zu ersetzten duch 0 (das passiert nämlich immer wenn ich da Copy/Paste mache - egal ob mit "Inhalte einfügen" oder ohne)

Warum brauche ich für sowas ein Makro? (Das kann man doch auch per Hand machen!)

Die Tabelle ist in der Realität viel Größer (um die 1000 Zellen) und ich wollte die Bereiche dadurch schneller vereinheitlichen.

Danke schon mal für eure Unterstützung!

Hallo zusammen

Also: Ich habe einige Excel-Tabellenblätter. Und einen String als Variabel ("sucheName"). Wenn man nun einen Button drückt, sollen alle Blätternamen durchsucht werden und das anschliessend das entsprechende Blatt ausgewählt werden. Da ich ein Anfänger bin im Thema Excel, weiss ich nicht mal, wo ich ansetzen muss.

Ich bedank mich für eure Antworten und hoffe, dass ihr mehr wisst als ich.

Gruss Steffan

Hallo,

verzweifelt wende ich mich an das Internet da ich leider nicht weiss wie ich dieses Problem lösen kann. Folgende Idee... / Ich möchte in der Lage sein Spalte A1-A30 ein Datum zu geben das sich nur im Aktuellen Jahr befindet und nicht in der Zukunft liegen kann. Sollte dies der Fall sein soll eine Fehlermeldung Erscheinen mit einem von mir angegebenen Text... Ich habe bereits einen Code mit verschiedenen Funktionen wie Z.B das Zelle A1-A30 die Heute Funktion anwenden jedoch editierbar ist. Leider weiss ich nicht wie ich die o.g. 2 Sachen noch in den code einbinden kann oder wie dies Funktioniert. Ich hoffe ihr könnt mir helfen mit evtl den vollständigen Code? :)

Anbei der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A30")) Is Nothing Then
If Target.Value = "" Then Target.FormulaLocal = "=HEUTE()"
Else
If Intersect(Target, Range("D3:D30")) Is Nothing Then Exit Sub
If Target.Value = "" Then Target.Value = 1 End If End Sub

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub 

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

Hallo,

ich schreibe gerade ein neues Makro für eine Excel Tabelle und habe dabei folgendes Problem. Ich erläutere es anhand der angehängten Grafik:

In der Grafik ("Mappe 1") steht der Name in Spalte A und ein Wert in Spalte B. Ich möchte, dass Excel (per Makro, CommandButton) nach einem Namen sucht und den dazugehörigen Wert in Spalte B (selbe Zeile) kopiert und in Spalte D einfügt. Die Reihenfolge der Namen kann variieren, es soll aber immer der Wert in Spalte B in Bezug zum Namen kopiert und eingefügt werden (Beispiel: Name1 = 10€, damit sollen dann die 10€ in Spalte D:2 eingefügt werden; Name2 = 20€ und diese sollen dann in Zelle D:3 eingefügt werden) Ich habe das leider bis jetzt nur mit einzelnen Zellen hinbekommen, da die Reihenfolge der Namen allerdings pro Tabelle unterschiedlich ausfallen kann, hilft es nicht mehr ein Makro zu schreiben, dass einzelne Wert kopiert und einfügt. Kann ich das auch über einen SVERWEIS machen? Wichtig zu erwähnen wäre noch, dass die Tabelle, in der gesucht werden soll (nach dem Namen) und die Tabelle in die der Wert eingefügt werden soll (€), 2 verschiedene Worksheets sind (Excel-Dateien).

Ich bedanke mich jetzt schonmal für eurer Hilfe!

Hallo zusammen,

ich will gerne einen TAB im Google Chrome ansteuern und dort Felder befühlen.

Im Internet Explorer geht das VBA Tool schon zu 100%. Leider ist die Seite nicht mit dem IE kompatibel und muss daher im GC genutzt werden. Ich habe alle Feld Bezeichnungen, weiß aber nicht wie ich den GC ansprechen kann.

Habt ihr da eine Möglichkeit?

Vielen Dank

Moin,

in der Tabelle sollen die Materialtexte die leider in unterschiedlich vielen Zeilen geschrieben sind in eine Zelle hinter dem Materialtext ausgegeben werden (wie beispielhaft manuell eingetragen in D2 und D7).Einfaches Verketten reicht nicht aus da eben die Anzahl der zu verkettenden Zeilen variiert. Gehe davon aus, dass VBA von Nöten ist (habe allerdings keine Erfahrung mit VBA)

Hallo,

ich habe gesehen, dass es zwar ähnliche Fragen gibt, aber mein Problem konnte ich mit den Antworten bisher nicht lösen. Ich muss dazu sagen, dass ich noch ziemlicher VBA-Neuling bin.

Ich habe 2 Excel Dateien. Diese sind identisch aufgebaut. Das Ergebnis soll in einer dritten Datei geschrieben werden. In Spalte A steht eine eindeutige ID und Spalte B ist ein Erklärungstext hierzu.

Bsp.: Alt:

BS04 Lisa ist 18 Jahre alt.

BS07 Lisa ist einen Apfel.

Neu:

BS07 Lisa isst einen Apfel.

BS08 Lisa wohnt in einem Haus.

Im neuen Dokument wurde BS04 entfernt. BS07 wurde der Schreibfehler korrigiert. BS08 wurde hinzugefügt.

Mein Ziel ist, dass nicht Zeile für Zeile verglichen wird, sondern anhand der ID der Text verglichen wird. Dann sollen Änderungen rot markiert werden. Entfernte Wörter oder entfernte Spalten sollen rot durchgestrichen werden.

Ergebnis:

BS04 Lisa ist 18 Jahre alt. [rot und durchgestrichen]

BS07 Lisa isst einen Apfel. [BS07 rot, das Wort "isst" rot]

BS08 Lisa wohnt in einem Haus. [rot]

Ich habe mir ein Makro bauen können, was ganze Zeilen rot markiert bei Abweichung, leider wird dann alles rot markiert, sobald eine Zeile hinzugefügt bzw. entfernt wurde. Ist ein solches Makro mit VBA überhaupt zu programmieren?

Ich danke euch für eure Mühe!

Gruß Steffen

Hallo,

wie kann ich nur die Kopf- und Fußzeile von einem Blatt auf andere Blätter oder Blatt übertragen?

Wenn ich die Tabellenblätter gruppiere und dann einfach Daten - Seite einrichten aufrufe, und mit OK bestätige, dann werden nicht nur die Kopf- und Fußzeile auf die anderen Tabellenblätter übertragen, sondern auch Einstellungen wie z. B. Seitenrand, Hoch-u. Querformat und Skalierung..

Und das ist die Crux! Ich habe bei den verschiedenen Blättern auch verschiedene Skalierungs-Prozentsätze und andere Seitenränder definiert, die natürlich erhalten bleiben sollen.

Also, wie Kopf- und Fußzeile in anderes Blatt übertragen, aber die Seitenränder, Hoch- oder Querformat und den Skalierungsfaktor NICHT!

LG PG

Hallo Community, möchte gerne alle Zellen gleichen Inhalts pro Spalte automatisch verbinden lassen (Inhalte müssen, wie bei Excel üblich nur einmal erhalten bleiben). Später soll also der Konfernzname, das Datum und der Ort nur noch einmal pro Konferenz auftauchen. Die Teilnehmer und ihre Beiträge könnte man dann zwar auch noch verbinden, aber hier müssten natürlich die ganzen Zellinhalte erhalten bleiben (was Excel üblicherweise nicht macht). Ist wahrscheinlich nur mit VBA möglich oder? Danke im Vorraus

Bild siehe Anhang

Hallo zusammen,

ich habe hier eine Liste den Bereich Bestand Kg und Vorlauf Kg möchte ich sperren, weil dort Formeln hinterlegt sind, leider schaffen es immer wieder Leute diese Zelle zu überschreiben und die Formel ist dann weg.

Gibt es ein Sub was dieses Problem für mich löst?

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