VBA – die besten Beiträge

Das ist mein Code:

Private Sub ComboBox1_Initialize()

  ComboBox1.AddItem "weisungsbefugt "
  ComboBox1.AddItem "Meier"
  ComboBox1.AddItem "Schmitz"
  ComboBox1.AddItem "Weber"
  ComboBox1.AddItem "Mustermann"

  .ListIndex = 1 'Vorbelegung


End Sub





Private Sub ComboBox1_Change()
    


    Dim sPfad As String


    Inhalt = get_Word_ContenField_as_Text("DropBox1")


    MsgBox Inhalt


    Exit Sub


End Sub

Nur leider funktioniert der Initilialize Teil einfach nicht und ich weiß nicht was ich falsch mache? Ich bitte um Hilfe. Danke!

wie befülle ich beim Öffnen der Word Datei das Listenfeld mit Inhalten?

In einer Vergleichstabelle, ist eine Schaltfläche mit der eine Zeile kopiert wird, die darunter eingefügt wird.

In die neu kopierte Zeile soll in Spalte B ein u eingetragen werden.

Welchen Syntax braucht es dafür?

Range("B ").Value = "u"

Wie bekomme ich den Inhalt aus einer Dropdownliste / Dropbox in eine Variable?

Hallo zusammen,

durch die Filterfunktion in Excel „zieht sich die Tabelle zusammen“. Gibt es die Möglichkeit, Filter zu setzen und gleichzeitig den Rest der Tabelle mit leeren Zeilen zu befüllen, sodass das Layout gleich bleibt?

Vielen Dank im Voraus.

Hallo zusammen,

ich benötige eine Formel, in der mir der letzte Wert der Zeile angezeigt wird. Es gibt nur folgendes Problem welches ich mit einem Beispiel erläutern würde:

Angenommen ich will den letzten Zeilenwert der Spalte A-F. In dem Fall würde mich allerdings die Zeile D nicht interessieren, also will ich den letzten Wert der in Spalte A-C oder E-F steht. Heißt es gibt ab und an Spalten die mich nicht interessieren. Das Problem ist, das ich bisher nur Formel gefunden habe, in dem man sich nur auf einen Bereich beziehen kann, also nur "A:F", sowas wie "A:C;E:F" hatte bisher nie funktioniert.

Kann mir jemand helfen ? Von VBA´s habe ich leider keine Ahnung...

Liebe Excel-Fans,

ich habe ein Problem mit dem Thema Prozentangaben und versuche es so kurz wie möglich zu erklären:

Eine UserForm mit Feldern (TextBoxen) zum Bearbeiten von Werten aus einer Tabelle.
In der Excel-Tabelle sollen Prozentwerte hinterlegt und in die UserForm entsprechend ausgelesen werden.

• Beim erstmaligen Hinterlegen kann man einfach TextBox1.Value / 100 verwenden. Klar.
• Beim Einlesen des Wertes in die TextBox1 der UserForm zum Bearbeiten nehme ich: UserForm.TextBox1 = Format(UserForm.TextBox1, "#,##0.00 %") damit beim Lesen der Wert auch schön als Prozentwert angezeigt wird

Wenn ich nun speichere, ohne die Prozentwerte zu verändern, da ich diese einfach nicht verändern möchte, schmeißt mir Excel einen Laufzeitfehler 13, Typen unverträglich und markiert den Abschnitt im Code (oben Punkt 1) wo ich durch 100 dividiere.

Ist ja irgendwie verständlich, da er versucht den Wert aus der TextBox "1,99 %" zu dividieren, da nun ein "%" drin steht ... bzw. möchte ich in dem Fall auch gar nicht, dass durch 100 dividiert wird, da der Wert ja stimmt und nicht nochmal dividiert werden soll.

Habe irgendwie einen Denkfehler - aber ein Formular was "Bearbeiten" soll, muss die Werte richtig verändern können oder aber auch erstmals anlegen können. Und hier scheint es mit den Prozent-Werten ein Thema zu geben.

Ich danke für eure Ideen und Hilfsansätze!

Grüße
Sebastian

Hallo zusammen,

ich benötige Eure Unterstützung, ich komme nämlich nicht weiter.

Wenn in der Zelle C10 z. B. Erstes-Interview steht, dann sollen, nachdem auf eine Schaltfläche geklickt wird, entsprechende Bereiche/Zellen als E-Mail versendet werden. Leider kann ich aber nicht mehrere Bereiche (die von einander getrennt sind, als eine E-Mail versenden.

Was mach ich falsch?

Vielen Dank vorab.

Mein Code:

Sub Mail_Versand()

Sheets("Template").Select

   If Range("C10").Value = "Kaffee-Date" Then

    ActiveSheet.Range("B12:D21").Select

  End If

     If Range("C10").Value = "Erstes-Interview" Then

    ActiveSheet.Range("B23:D23,B26:D33").Select

  End If

  ActiveWorkbook.EnvelopeVisible = True

    With ActiveSheet.MailEnvelope

   .Item.To = "xxx"

   '.Item.cc =

   '.Item.bcc =

   .Item.Subject = Range("C10").Value & " / Bitte um weitere Bearbeitung"

   .Item.Send

  End With

  End Sub

Hey,

Ich habe eine kleine Frage. Und zwar brauche ich in Excel VBA eine Wenn Funktion.
Diese Wenn soll mir "True" ausgeben wenn in einem bestimmtem Feld das Wort "Baum" drin steckt. (Siehe Bild), (Es soll nur 1 mal drin sein, wenn mehrmals dann macht es nichts)
Wie kann ich das machen?

Das ausgeben soll es mal mit msgbox.

Danke im Voraus

LG

Hallo zusammen,

ich probiere gerade folgendes:

Die Spalten G möchte ich in die Spalte A kopieren. Dabei kriege ich folgende Fehlermeldung. Das händische Abschreiben wäre zuviel da die Liste noch länger ist..

Jemand nh lösung dafür?

Ich habe vierstellige Zahlen in einer Spalte in Excel stehen. Ich möchte immer an zweiter stelle ein Komma, sprich aus 4599 wird 45,99. Ist das Umsetzbar für eine ganze Spalte? Danke!

Hallo,

angenommen ich habe eine xlsx:

spalte 0 spalte 1

abc 2

def 5

geh 8

ich möchte mit python die spalte 0 durchsuchen auf den string "geh" und mir dann den wert der zeile daneben, also 8 ausgeben lassen.

wie geh ich da vor ?

danke im voraus :)

Folgende Spalten habe ich:

Das Problem ist, dass die Spalten mit einer 89 eigentlich als 89,00€ dargestellt werden sollen, die Spalte mit 179 = 1,79€ und 6599 = 65,00€. Ich habe so viel ausprobiert aber nichts löst mein Problem auf einen Schlag. Hat jemand eine Idee?

Hallo Ihr Lieben,

Datensatz als Hyperlink in Mail versenden.

Sodass Empfänger nur auf dem Hyperlink anklikt, Datendsatz in Access sich öffnet, um evtl. Datensatz zu ergänzen

(in Sharepoint funktioniert das einwandfrei... Sharepoint ist gekündigt. Also Access auf FTB Server...)

Vielen Dank im Voraus.

Gruß

Safahj

Hallo,

ich habe eine Excel Stückliste die wie folgt aufgebaut ist:

Nr ; STK; Bezeichnung; Breite; Höhe; Länge

Nun möchte ich anhand dieser Tabelle Etiketten drucken. Das heißt, wenn die Stückzahl 1 beträgt, dann 1 Ettiket und wenn die Stückzahl 2 beträgt 2 Etiketten usw.

Damit ich nicht ab einer Stückzahl von 2 die Felder dementsprechend oft kopieren muss brauche ich ein VBA Script.

Hat jemand eine gute (einfache) Idee?

Danke

blub66

Ich möchte gerne eine Excel VBA Button erstellen und Makro zuweisen programmieren. und möchte gerne eine BUTON "Eingang" & eine "Ausgang"

Wenn ich Eingang drücke soll +1 (Zählen) und wenn ich Ausgang -1 (Zählen)

Ich sollte  in excel per vba die letzten 30 gefüllten Zeilen von unten kopieren und in eine andere excel datei einfügen.

Wie kann ich diese Zeilen auswählen und dann kopieren?

Vielen Dank im Voraus

Johann

Hallo,

leider bin ich mit VBA nicht so affin. Ich bräuchte ein Makro für Excel. Er soll das aktive Workbook 23:29 speichern und 23:31 selbst schließen ohne zu fragen.

Dazu brauch ich noch, wo ich es einsetzen muss, sprich wo in „Diese Arbeitsmappe“ & „Modul“.

Wäre cool, wenn mir jemand helfen könnte.

Hi,

Ich würde gern den Workbook Namen aus einer Zelle auslesen und nutzen.

Aktuell verwende ich

• Set W_Arbeitsmappe = Workbooks("Arbeitsmappenname")

und möchte das nun durch

• Set W_Arbeitsmappe = Workbooks(Range("Z_Datei"))

ersetzen.

Z_Datei ist eine definierte Zelle, deren Wert auch stimmt (nutze sie bereits für ander Codeparts).

Allerdings sagt mir Excel immer an dieser Position "Typen unverträglich" aber warum?

Kann man keine If-Anweisungen in If-Anweisungen packen oder wieso geht der Code nicht?

Als Fehlermeldung kommt "Else ohne If" und das Else if ganz links am Rand wird markiert.