VBA – die besten Beiträge

Hallo, wie kann ich folgenden XLookup als Makro schreiben

=VLOOKUP(A4;EKPO!$A$1:$C$1000;2;FALSE)

A5 soll dabei eine ortlaufende Nummer sein (dafür habe ich bereits eine Variable Zaehler)

Das Ergebnis des Sverweis soll dann hierrein  

Ansicht.Cells(Zeilenindex, 3)

ich bekomme immer wieder verschiedenst Fehlermeldungen

Mein Code:

Ansicht.Cells(Zeilenindex, 3) = WorksheetFunction.VLookup(test, Worksheets("EKPO").Range("A:B"), 2, False)
  

Hallo,

Mein Problem. Ich soll ein Makro erstellen. Das Makro soll eine neue Excel Datei erstellen. Diese Datei soll nun mit Informationen aus 50 (Im Normalfall +150) Excel Dateien herausnehmen. Die 50 Excel Dateien haben alle den selben Format. D.H in Zelle A2 steht immer der Vor Name. In Zelle A3 der Nachname. In Zelle B4 immer derselbe.... und so weiter.

diese Informationen müsste ich nun auf EINE Excel Dokument/Tabelle packen sodass alle Informationen in einer Reihe / Row sind.

Das wäre Problem 1

_____________

Problem 2

In den selben 50 Dokumenten gibt es eine Liste mit Gegenständen. In Spalte 1 ist immer der Gegenstandname und und Spalte 2 ist ...

Diese Gegenstände also die Länge der Reihen nach unten Unterscheidet sich aber von Tabelle zu Tabelle (Ist also nicht fest)

Diese müssten auch in DIESELBE Tabelle wie oben hineingehen, sodass es ungefähr so aussieht:

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

Ich möchte in Spalte F das Datum einfügen, an dem ich in Spalte D etwas reingeschrieben habe, ich habe viel ausprobiert aber nichts geht so richtig, mit today kommt ein wert von 44978 und bei Now eine Kommazahl.

ich benutze Mac

Dankeschön :)

Hi,

Der erste Textteil ist in jeder Zelle unterschiedlich, die Struktur aber immer gleich. Wie kann ich Zellen so verändern?

Hallo zusammen.

Ich habe einen großen Bereich mit Texteinträgen. Diese sind Zeilenweise erfasst.

Ich muss jetzt überall, wo in der Zelle "Markus" steht, eine leere Zelle links von "Markus" einfügen (Siehe Bild)

Geht das per VBA?

Gruß

Ich habe eine Variable und will diese jetzt an einer ganz gewissen Stelle ausgeben. Ich dachte eine Testmarke wäre sinnvoll aber leider bekomme ich es nicht hin ich bitte um Hilfe.

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?

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