VBA Excel – die besten Beiträge

Hallo again,

meine Excel hat 10’000 Seiten Text in einem Arbeitsblatt. Dadurch wird sie sehr langsam. Kann man das umgehen?

Habe schon über eine Verknüpfung mit Access nachgedacht, aber keine Ahnung, ob ich das machen sollte, falls ja - wie, oder ob es was bringt....

Hat jemand eine Idee, wie man das lösen kann?

Vielen Dank.

Ich habe 53 tabellen diese soll jeder sehen können bearbeiten allerdings erst nach Passwort Eingabe

wie kriege ich das hin das ich alle Tabellen per Button freischalten kann und alle per Button schützen kann nochbesser wäre das alle automatisch geschützt werden wenn ich excel schließe

wichtig ist das ich da dann nicht für alle Tabellen das Passwort eingeben muss sondern nur einmal sprich da müsste irgendwo eine if Anfrage rein wenn ich es richtig erkenne

hoffe auf viele Vorschläge :)

Hallo,

ich habe eine Arbeitsmappe, welche einen Kalender und darunter 3 Zeilen mit jeweiligen Fahrzeugen beinhaltet. Für diese müssen wir täglich einen Km-Stand eintragen.

In diese Mappe möchte ich gerne Daten aus einer anderen Mappe übertragen.

Die Aufgabe an der ganzen Sache ist, dass das Datum abgeglichen wird und das Fahrzeug (auf dem Screenshot ist nur eins zusehen welches aber gewechselt werden kann (Dropdown-Liste)). Der Kilometerstand soll dann in die Mappe zu dem entsprechendem Datum und Fahrzeug zugewiesen werden. Ich hätte schon an eine if-Anfrage gedacht, aber so wirklich finde ich keinen Weg. meine Excelkenntnisse sind nicht so Fortschrittlich.

PS: Freund Google habe ich auch schon durchsucht, bin aber auf keine guten Ergebnisse gekommen.

Mappe 1

Mappe 2

.Formula = "=VLOOKUP(A5,EKPO.Cells(A1),C1000,2,FALSCH)"

Kann mir jemand hier helfen?

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 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

Ich bin mir auch nicht sicher ob ich Richtig in VBA einfüge, der Sub Kopieren funktioniert nicht.

Mein Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("E8")) Is Nothing Then

 Cells.EntireRow.Hidden = False

 If Range("E8").Value = "Rogo AC" Then

   Columns("U:AH").Hidden = True

   Columns("U").Hidden = False

ElseIf Range("E8").Value = "Shunt 100A" Then

   Columns("U:AH").Hidden = True

   Columns("V").Hidden = False

 End If

End If

End Sub

-------------------------------------------------------------------------------------------------------------------------------

Sub Kopieren_speichern()

For i = 27 To 37

If Range("AK" & i).Value > 1 Then

Range("M" & i).Value = Range("AK" & i).Value

End If

Next i

End Sub

Danke im Voraus

Hallo zusammen,

ich habe einen Blattschutz in Excel rein gemacht. Und kann jetzt nicht mehr alle Filter auf einmal löschen, dieses Zeichen ist ausgegraut bei mir.

Beim Blattschutz habe ich allerdings auch schon den Autofilter angekreuzt und trotzdem funktioniert nur de Filter in den einzelnen Spalten. Ich möchte aber gerne alle Filter auf einmal löschen

Hallo, sobald ich auf die Schaltfläche "Hinzufügen" klicke, möchte ich gerne das überprüft wird, ob alle Felder ausgefüllt sind und eine der Optionen angewählt ist.

Alles klappt bisher nur die Überprüfung der Optionsfelder nicht.

Mein Ansatz war:

'Prüfung_2: Wahl zwischen Einnahme oder Ausgabe

If EinnahmenOption.Value = "False" Or AusgabenOption.Value = "False" Then

MsgBox Prompt:="Wähle Einnahme oder Ausgabe.", Title:="Option wählen"

Else

Prüfung_2 = "True"

End If

Problem ist, dass selbst wenn ich nichts auswähle keine Meldung kommt und einfach immer Prüfung_2 auf true gesetzt wird.

Hallo, wie kann ich eine Variable in einer Msg Box integrieren.

Folgendermaßen sieht der Code aus:

'Sollte eins der Felder (Monat.Text, Referenz.Text, Wert.Text) unausgefüllt sein, so soll die Variable den folgenden Wert annehmen

Dim Fehlendes_Feld As String

If Monat.Text = "" Then Fehlendes_Feld = Monat

If Referenz.Text = "" Then Fehlendes_Feld = Referenz

If Wert.Text = "" Then Fehlendes_Feld = Wert

MsgBox Prompt:="Bitte folgendes Feld ausfüllen: Fehlendes_Feld ", Title:="Fehler"

Die Msg Box zeigt mir halt den Text an und passt die Variable leider nicht an. Wie ändere ich das?

hallo liebe Community,

wir führen auf Arbeit eine Excelliste aller Lieferanten. Bei Anlegen des Lieferanten fragen wir verschiedene Dokumente ab, die wir zur Freigabe benötigen.

unter anderen benötigen wir verschiedene Zertifikate (ISO 9001, ..), deren Gültigkeit wir als Datum in der Liste hinterlegen. Meine Frage: Um die Liste stets aktuell zu halten und damit wir nicht das Neuanfragen eines abgelaufenen Zertifikates verpassen, besteht die Möglichkeit nach Ablauf (bzw. 2 Wochen vorher) des Datums eine automatische Email an den Lieferanten zu generieren? Optional würde auch eine E-Mail

an uns selber reichen, damit wir erinnert werden.

Vielen Dank im Voraus für Eure Hilfe!

Hallo an alle,

ich habe eine Excel mit mehreren Blättern und ein und derselben Datenüberprüfung (Dem selben Dropdownmenü für jedes Blatt). Nun musste ich die Liste um 2 Begriffe erweitern.

Das heißt, dass die Datenüberprüfung nichtmehr (als einfaches Beispiel) C3:C5 anzeigen soll, sondern C3:C7.

Gibt es einen entsprechenden VBA Befehl um alle Datenüberprüfungen auf einen Schlag umzuändern?

Ich habe eine Exceltabelle in der B2:B92 Daten (Datum) stehen. In Spalte A hätte ich jetzt gerne die passende KW dazu stehen was auch kein Problem ist mit =KÜRZEN((B2-DATUM(JAHR(B2-REST(B2-2;7)+3);1;REST(B2-2;7)-9))/7)

Jetzt kommt das ABER:

da in Spalte B die Daten mehrfach vorkommen (sind auch nach Datum sortiert) hätte ich gerne das die KW immer nur beim ersten Wochentag (Montag) einmal angezeigt wird und auch erst wieder beim Nächsten Montag. Und sollte das Datum in der Vergangenheit liegen Soll nur einmal "Rückstand" statt KW angezeigt werden. Gerne auch VBA lösungen falls es nicht mit einer Excel Formel funktioniert.

Hey Leute,

ich habe ein Problem mit der fortlaufenden Übertragung der Formel. Über ein Eingabefenster werden die Daten Teile, Datum usw. in die Datenbank übertragen und dabei automatisch eine neue Tabellenzeile eingefügt. Nun ist aber das Problem, dass unter der Spalte Daten die Formel =ZÄHLENWENN nicht richtig weiter übertragen wird sondern der Bereich (in diesem Fall von ($D$14:D21;D21) auf ($D$14:D22;D21)) erweitert wird. Dadurch werden die Daten nicht mehr richtig gezählt. Kann mir da jemand weiterhelfen?

Hallo,

ich habe ein simples Excel Makro aufgenommen, in der ich eine Tabelle nach bestimmten Kriterien Filtern muss. Die Tabelle kann variabel lang sein.

Durch die Funktion "Makro aufzeichnen" habe ich folgendes:

"ActiveSheet.Range("$A$1:$S$249").AutoFilter Field:=15, Criteria1:="0""

Wie kann ich die Zeilenlänge durch eine Variable ersetzen? Die Länge der Tabelle würde ich einfach durch:

X = (Range("A2").End(xlDown).Row)

ermitteln.

Bitte um Entschuldigung für die Frage, ich schreibe nur sehr selten Makros.

Vielen Dank für eure Hilfe. :)

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

Hallo,

ich habe ein VBA-Script, in welchem die nächste freie Zeile gesucht wird.

In dieser Zeile sollen automatisch "alle Rahmenlinien" festgelegt werden.

Muss nicht unbedingt per VBA gelöst werden, darf auch gerne eine Regel sein.

Die Zellen vorzuformatieren möchte ich nicht.

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Hallo zusammen,

ich habe folgendes Problem in meinem VBA Code in Excel. Aktuell öffne ich eine automatisch erstelle Excel Datei und kopiere deren Inhalt in meine Hauptdatei. Nach dem die Daten fertig kopiert wurden, nutze ich die Kill Funktion um die Datei zu löschen (dies funktioniert auch). Nach dem Kill Befehl, habe ich eine Msgbox die ausgibt dass alles funktioniert hat. Sobald ich jedoch in der Msgbox auf okay klicke, kommt eine Fehlermeldung, dass Excel die gelöschte Datei nicht mehr finden kann. Ich vermute es liegt daran, dass im im VBA Studio die Datei noch in den geöffneten Dateien angezeigt wird. Weiß jemand wie man die daraus entfernt?

Danke im voraus.