VBA – die besten Beiträge

Ich dachte nicht, dass mir VBA Probleme machen würde, doch anscheinend doch. Ich programmiere seit gut drei Jahren und das, was am einfachsten ist, bringt mich gerade zum Verzweifeln. Es liegt aber auch daran, dass ich mich in VBA nicht gut auskenne.

Hier mein Problem:

Ich habe eine Userform mit zwei Textboxen. In die Textbox1 schreibe ich einen Wert hinein. Dieser Wert multipliziert sich dann mit dem Wert 61,7 aus der Spalte G2. Das Resultat erscheint anschließend in der Textbox2 mit der Währung CHF hintendran.

Das ist mein Code:

Private Sub CommandButton1_Click()
  Unload Me
End Sub

Private Sub TextBox1_Change()
  On Error Resume Next
  TextBox2.Value = TextBox1.Value * Tabelle1.Range("g2").Value
End Sub

Private Sub TextBox2_Change()
  On Error Resume Next
  If TextBox2 <> "" Then
    TextBox2 = Format(TextBox2, "##,##0.00 Fr.")
End Sub

Private Sub UserForm_Click()
End Sub

Nach meinen Erfahrungen her stimmt der Code. Es scheitert jedoch beim multiplizieren, denn für mein Programm ist 1 x 64,7 = 22’463.00 CHF.

z.B.
Excel zeigt in der Zelle den Wert 100
Wenn ich in die Zelle mit F2 gehe, die Formel markiere und mit F9 das Ergebnis ansehe steht der Wert 270
Jetzt muss/müsste ich in jeder solchen Zelle mit F2 und ENTER/TAB/strg+s das Ergebnis aktualisieren (funktioniert also). Gibts es hierfür eine schnellere/gesamtheitliche Lösung ?
Kann man also alle Zellen/Formeln auf einmal "abschließen"?
VG

Hallo.

Ich will einen Tannenbaum mit * erstellen, aber schaffe es nur so:

Das Problem ist, dass er von links nach rechts wie eine halbe Pyramide ist. Ich möchte aber, dass er wie eine echte Tanne aussieht. Also das erste Sternchen * oben mittig, dann in der nächsten Reihe wieder mittig, usw..

Ich weiß nur, dass man irgendwie mit Leerstrings arbeiten muss. Es soll auf jeden Fall am Ende wie ein Baum oder eine Pyramide sein. Danke.

Bisher habe ich diesen Code:

Private Sub tannenbaummodel()
  Dim n
  Dim a
  Dim zweig As String
  
  For n = 1 To 5
    zweig = ""

    For a = 1 To n
      zweig = zweig & ""
    Next

    Debug.Print zweig
  Next
End Sub

Hey. Ich habe einen Code zum Speichern von Tabellenblättern als PDF in Ordnern und Unterordnern, die erstellt werden. Ich habe noch ein paar mal daran herum gebaut, also sieht der Code möglicherweise nicht sehr clean aus.

Ich füge den Code Stückweise ein, weil er zu viele Zeichen hat.

Mein Problem ist nun: Auf meinem PC funktioniert der Code super, ohne zwischenfälle. Ich habe nun die Excel-Datei schon mehrmals per USB auf einen anderen Rechner gezogen und den Dateipfad angepasst. Dennoch funktioniert er hier nur teilweise, da nur Oberordner und Unterordner erstellt werden. Der zweite Unterordner und die PDF Dokumente bleiben weg. Vielleicht kann mir hierbei jemand helfen. Einen schönen 4. Advent euch noch!

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

Hallo :)

ich arbeite gerade an einer Excel Tabelle, bei der ich etwas in das Formular eingebe und der Inhalt dann via Speichern-Button in Tabellenblatt 2 automatisch in eine Tabelle eingetragen wird.
Nun ist alles fertig, nur habe ich es bis jetzt nicht hinbekommen, dem Speichern-Button die benötigten Befehle zuzuordnen, den Inhalt der TextBox und ComboBox in die Tabelle auf Tabellenblatt 2 einzutragen.

Ich benutze bewusst Excel und nicht Access.
Kann mir jemand helfen?

Mit freundlichen Grüßen :-)

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

Hallo meine Lieben!

Wenn mein Makro eine Datei öffnet, die schreibgeschützt ist, kommt ein Warnhinweis, den ich nicht haben möchte. Der Code Application.DisplayAlerts = False bringt nix.

Was kann ich machen?

Hallo VBA-Profis,

ich hätte gerne (bei Zelle A1 und B1 beginnend) ein VBA, dass beim öffnen der Arbeitsmappe, das Datum und die Uhrzeit sich auflistet, bzw. Fortführt.

D. h. beim 1. öffnen der Arbeitsmappe soll die Zelle A1 mit Datum und B1 mit Uhrzeit versehen werden (ungefähr so siehe Abb.)

Jetzt möchte ich, dass beim 2. öffnen der Arbeitsmappe, die Daten in A1 und B1 bestehen bleiben und das neue Datum und Uhrzeit in A2 (Datum) und B2 (Uhrzeit) eingetragen wird.

Beim 3. öffnen, A3 und A4 aktualisiert wird, u.s.w., aber die vorherigen Daten sollen stets erhalten bleiben.

Gibt es einen Möglichkeit dies stetig fortzuführen, optimal wäre sicherlich die Spalte A und B ohne Begrenzung, außer der möglichen Zeilenmenge-Verfügbarkeit von 1.048.576 Zeilen (so bei EXCEL 2019).

Ich habe keine VBA-Syntax-Kenntnisse !

Freue mich über eine Idee Eurerseits.

Gruß Tron

Hallo,

ich möchte für einen Verein ein Spielplan erstellen. Dazu brauche ich die Fahrzeiten von uns zum entsprechenden Gegner, damit ich daraus Abfahrtszeit etc. berechnen kann.

Ich habe dazu schon zu jeder Begegnung automatisch eine URL erstellen lassen, die direkt Google Maps mit der entsprechenden Route öffnet.

Jetzt wäre es allerdings enorm hilfreich, wenn ich irgendwie direkt die von Google Maps berechnete Fahrzeit in die entsprechende Zelle bekommen könnte.

Geht das? Wenn ja, wie? Kann mir jemand vielleicht einen Ansatz nennen? Bin da mit Google leider gar nicht weiter gekommen...

(Mit VBA kenne ich mich leider noch kaum aus)

Danke und Grüße!

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

Next

End Sub

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

=WENN(ODER(ISTLEER(A1);ISTLEER(B1));"";A1-B1+1)

Bin absoluter Anfänger

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

Hallo

Ich würde gern nach dieser csv Ordner erstellen und updaten, jedesmal wenn sich etwas in der CSV verändert hat (zb ein Ordner dazu gekommen ist). Wie kann ich das machen?

LG und vielen dank.

Ich kann ja auch einfach Summand1 * Summand2 schreiben und es kommt das gleiche raus. Also, wann braucht man das?

Guten Abend,

ich möchte den Zelleninhalt bestimmter Zellen löschen, wenn eine gewisse Bedingung erfüllt ist. Dazu ist zu wissen, dass ich zwei Tabellen haben.
Tabelle 1: Rechungsliste
Tabelle 2: Uebersicht

Wenn ich in der Tabelle "Rechnungsliste" in Spalte I "erledigt" eintrage, soll in der Tabelle "Uebersicht" der dazu passende "Datensatz" (Spalte A-D) gelöscht werden. Jedoch nur der Inhalt, nicht die Zeile. Der Spalteninhalt aus Tabelle A dient als Suchkriterium. Die Range der Tabellen ist von A3:A100.

Beispiel:
Rechnungsliste: RE19002 (Spalte A) wird in "Spalte I" als "erledigt" markiert, dann soll in Tabelle "Uebersicht" der Inhalt der Spalten A-D von RE19002 gelöscht werden.

Ich weiß, dass dies als Funktion direkt im Tabellenblatt eingebaut werden muss, nur leider habe ich durch meine andere offene Frage kein Ansatz.

Das Prinzip müsste wie bei meiner anderen offenen Frage sein:

https://www.gutefrage.net/frage/vba-daten-in-zweite-tabelle-uebertragen#answer-328499597

Gruß

Hallo,

ich habe mehrere hundert Zellen in einer Spalte die jeweils eine Beschreibung und eine dazugehörige AA Nummer innerhalb einer Zelle beinhaltet. Nun möchte ich aber die ganze Beschreibung raushaben und im Prinzip nur die AA-Nummer rausfiltern, bzw. die Zelle auf diese Nummer reduzieren. Gibt es solch eine Funktion bei Excel oder vielleicht mit VBA? Beispiel  wie diese Zellen aktuelle aussehen im Bild (s.u.)

LG Aseterus

Guten Tag zusammen,

kurz und knapp: Ich möchte beim verlassen des Blattes, dass dieses ausgeblendet wird. Folgenden Code nutze ich:

Option Explicit
Sub FAQ_schliessen() 
Sheets("FAQ").Visible = False
End Sub

Den Code habe ich beim entsprechenden Tabellenblatt (FAQ) über "rechtsklick" "Code anzeigen" geschrieben. Jedoch passiert beim verlassen der Tabelle nichts. Hab ich bzw. muss ich noch etwas beachten oder hab ich etwas falsch gemacht?

Gruß