Hi Leute,

zuerst einmal muss ich loswerden, dass ich verzweifle, aber glaube dass irgendetwas winzig kleines der Fehler ist....

Situation:

Ich möchte einen Button erstellen, der nur eingeblendet wird, wenn Zellen X,Y,Z, usw. ausgefüllt sind.

Wenn er dann eingeblendet ist, soll er das Makro "Meldung_Absenden" ausführen.

STAND JETZT: Funktioniert alles, bis auf das Ausführen des Makros. Der Button wird richtig ausgeblendet, wenn die Felder nicht ausgefüllt sind. Sobald alle felder ausgefüllt sind, kommt der Fehler: 1004 "Anwendungs- oder Objektdefinierter Fehler"

Ich finde den Fehler im Code nicht. Der Button "CommandButton1" ist ein ActiveX Steuerelement.

Mein Testbutton "Meldung absenden" ist ein Formularsteuerelement. Damit lässt sich das Makro auslösen. Ich will aber nicht, dass eine Meldung abgegeben werden kann, wenn nicht alle Felder ausgefüllt werden.

Könnt ihr mir da helfen? Bei nachfragen stehe ich gerne zur Verfügung.

Hallo zusammen,

ich habe ein VBA Script entdecken können, welches E-Mails beim Verschieben in einen bestimmten Ordner automatisch als gelesen markiert. Leider benötige ich diese Funktion aber für mehrere Ordner, bzw. eigentlich für alle (also immer wenn ich eine Mail in einen anderen Ordner verschiebe, soll diese als gelesen markiert werden).

Hat jemand eine Idee, wie ich dieses Script anpassen kann, oder ein anderes Script, damit das funktioniert?

Ich nutze ein Office 365, falls dies relevant ist.

Private WithEvents Items As Outlook.Items

Private Sub Application_Startup()
  Dim Ns As Outlook.NameSpace
  Dim F As Outlook.MAPIFolder

  Set Ns = Application.GetNamespace("MAPI")
  Set F = Ns.GetDefaultFolder(olFolderInbox)
  Set F = F.Folders("test")
  Set Items = F.Items
End Sub

Private Sub Items_ItemAdd(ByVal Item As Object)
  Item.UnRead = False
  Item.Save
End Sub

Vielen lieben Dank vorab :)

Hey, das Excel makro macht berechnung zu wissenschatlichen Zahlen. Ein ' macht die Zahl nun zu Text aber es wird trotzdem als Wissenschatfliche Zahl angezeigt?

Meine Vermutung ist das das bereits als Text angezeigt wird und deshalb die Zahl nicht mehr konvertiert wird da Sie bereits Text ist

Beispiel:

2,222E-3 =SUM(A:A)/100

Nun ergänze ich die Zahl mit ' dann kommt bei mir '2,222E-3 heraus

Ich habe das im Original mit Makros geschrieben.

Der Code ist aber für Gutefrage viel zu groß und ein Code schnipsel Zeigt nixht alle wichtigen Daten an

Hallo,

ich habe gerade folgendes Problem:

Ich habe einen VBA-Makro gebastelt der bestimmte Daten aus einer Excel Tabelle in eine andere kopiert und formatiert. Soweit so gut. Nun habe ich aber einen String, welcher aus einem Datum und einer Uhrzeit besteht.

Ich benötige von diesem String jedoch nur das Datum und zwar im Format

YYYY-MM-DD.

Die Formatierung des Datums bekomme ich hin. Jedoch konnte ich Datum und Uhrzeit bisher noch nicht erfolgreich trennen.

Genutzt wird VBA.

Ich würde mich über Tipps und Anregungen Freuen :-)

Hallo zusammen

Möchte gerne die Datensortierung per Makro lösen, weil ich diesen Schritt jeden Tag mindestens 3x mache. Das geht doch bestimmt einfacher, oder?

In meiner Tabelle sollen nur jeweils die markierten Zeilen sortiert werden. Das heisst, es sind jedesmal andere Bereiche, sprich wenn ich den Schritt einmal aufzeichne, ist der zu sortierende Bereich ja immer der gleiche.

Habe es schon versucht, im Makro drin beim ActiveWorksheet mit "selection" anstelle der Tabelle. Ergab aber nur den Laufzeitfehler '9': Index ausserhalb des gültigen Bereichs.

Freue mich über jede Hilfe und wünsche Euch Allen einen schönen Sonntagabend.

Herzliche Grüsse

Franziska

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

 If bolOn Then

  Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~", "NaechsteZeileEinblenden"    'EINGABETASTE

 Else

  Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

  Application.OnKey "~"    'EINGABETASTE

 End If

End Sub

Private Sub NaechsteZeileEinblenden()

 With ActiveCell.Offset(1).EntireRow

  .Hidden = False

  .Cells(1).Activate

 End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 With Target.Cells(1)

  EnterOnOff .Column = 10 And .Row > 9

 End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

.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, ChatGPT hilft mir grade mit den Makros, da ich mich aber nicht so gut mit Makros auskenne möchte ich alles verstehen. Einfache Sachen konnte ich bereits verstehen nun ist aber ein etwas längere und schwerere Code Stück ausgespuckt worden:

wb2.Sheets(1).Rows(i).Copy
ws.Cells(ws.Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial xlPasteValues

Die Funktion des Programms ist leider sehr kompliziert. Dieser Schnipsel sollte aber für das kopieren und einfügen zuständig sein. Wie kann ich beim "Paste" etwas hinzufügen das beim "Copy" oben noch nicht da war?

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?

Hey! Meine Mama braucht Excel Tabellen für ihre Arbeit (Kita). Da sie sich nicht wirklich auskennt „lerne“ ich ihr den Umgang mit Excel. Welche Funktionen sollte ich ihr unbedingt zeigen? Liebe Grüße 😊

Guten Abend zusammen.

Bevor ich zum offiziellen Thema komme nochmals ein Vorwort auf der Grundlage eines Beitrages der sinnfrei gelöscht wurde.

Vorwort:

Die Frage dient nicht dafür um hier etwas zu verkaufen sondern dazu um mir im Bereich Office/Excel weiterzuhelfen. Das Diabolic Projekt ist ein Privates und von mir als Besitzer und Eigentümer erstelltes Projekt. Ebenfalls habe ich die AGB von gutefrage.net zur Kenntnis genommen und stimme diesen hiermit Schriftlich zu.

Der letzte Beitrag wurde wegen verdacht auf Verkauf entfernt obwohl ich das HIER und im anderen Beitrag deutlich erwähnt habe. Ich möchte hier nichts Verkaufen.

| Um was handelt es sich nun?

Ich bin selber Diabetiker Typ 1 und wollte ein erstmaliges Projekt erstellen um mein Diabetes auch am Computer (in Excel) Managen zu können. Dazu habe ich in der Vergangenheit auch schon paar Fragen gestellt.

Nun habe ich eine Zeit lang darüber Nachgedacht und bin zum Entschluss gekommen alles "Einheitlich" statt einzeln zu machen. Diabook, Insulinrechner, Nährwertrechner waren noch bis vor ein paar Tagen einzelne Programme in Microsoft Excel Dokument Mappen. Ich habe überlegt und mir viel dann etwas auf. Aufgrund dessen dass ich die Dinge mache um das Leben mit Diabetes einfacher zu machen dachte ich mir: Okay. Dann werde ich doch alles in einer Mappe verarbeiten da die Einzelnen Mappen immer aufwendig sind.

Ich Persönlich verwende schon lange Zeit eine App die vieles miteinander vereint. So soll es auch mit dem was ich vor habe werden.

| Weiteres:

Ich möchte das alles im Prinzip erneuern. Ich habe leider nur wenig bis minimale Kenntnisse im Bereich "Microsoft Excel" und habe schon paar Ideen die ich nur zum Teil umsetzen kann weil mir dafür das Wissen & Erfahrung fehlt und ich deshalb diesen Beitrag erstelle um danach zu Fragen.

| Vorstellung & Idee/n:

Meine Ideen und Vorstellungen in diesem Projekt sind naja irgendwie zu Groß weshalb ich bezweifle das es möglich sein wird alles in Excel umsetzten zu können.

Ich habe mich schon bei YouTube umgesehen und kam leider zu keinem Video das mir dass zeigen würde was ich so bräuchte. Ich hätte aber gerne Folgendes:

• Startseite: Erweiterungen um in der linken Leiste alles ein und zuklappen zu können. Dies ebenfalls beim Nährwertrechner mit mehreren Mappen um dort verschiedene Kategorien für Lebensmittel anzulegen. Auch beim nachkommenden Rezeptrechner um dort ebenfalls Kategorien anlegen zu können.
• Favoriten: Wichtig beim Nährwert/Rezeptrechner um Lebensmittel oder Rezepte schneller zu finden.
• Mappen in Mappen: Ich hätte außerdem gerne die Funktion das ich zb. in der Mappe Nährwertrechner weitere Mappen erstellen kann un das überall.
• Nährwertrechner(Suche): Ich hätte außerdem gerne das man oben eine Leiste hat um alle Lebensmittel und Rezepte zu finden. Diese sollen dann in einer Liste dort oder dann im Nährwertrechner angezeigt werden. Auch ins Tagebuch übertragbar sein.

Es ist zu viel. Bräuchte man dafür VBA oder geht das ohne? Danke im Voraus! :)

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.

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

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!

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

Eher mit Excel VBA oder etwas anderem?

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 Leute, folgende Situation:

Ich möchte gerne eine Excel Formel mit mehreren Tests in einer Zeile und der Summe am Ende erstellen. Hintergrund: Ich habe einen Mitarbeiter, welcher unterschiedliche Stundensätze im Büro bzw. im Außendienst verdient.

Um dies zu berechnen, setze ich in (E3) entweder ein "x" wenn er im Außendienst war oder lasse das "x" weg, wenn er im Innendienst war.

In F3 trage ich die Anfangszeit, in G3 die Endzeit ein und lasse mir in H3 die gearbeitete Zeit auswerfen. Das ganze wiederholt sich innerhalb der Zeile 20x (da 20 Arbeitstage im Monat).

Nun möchte ich am Ende der Zeile in DB3 eine Summe der gearbeiteten Zeiten im Büro ausgeworfen bekommen und in DE3 die Summe der Außendienst-Stunden.

Habt ihr eine Idee wie das realisierbar ist? Ich möchte jetzt nicht 20x verschachtelte IF-Formeln haben. Zum besseren Verständnis habe ich nochmal ein Screenshot angefügt. Danke schonmal!

Hallo zusammen ich hoffe die Excel Profis können mir hier weiterhelfen.

Mir geht es darum wenn ich in eine leere Zelle einen Wert eingebe, als Beispiel die Zahlen 1-6, möchte ich, dass daraufhin die Werte die in den Zellen P10-16 auf dem selben Arbeitsblatt hinterlegt sind eintragen werden.

Beispiel ich trage in Zelle A1 die 1 ein dann soll bitte der Wert (bsp.100€) hinterlegt in P10 direkt in A1 eingetragen werden.

Wenn ich die 4 in A1 eintrage soll der Wert (bsp. 150€) aus Zelle P4 promt wieder in A1 auftauchen

Ich suche schon stundenlang rum und komme nicht auf den Trichter

Danke vorab

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

Der Wert in der Spalte E3 zeigt den Wert 1- Dieser Wert soll solange durchgeschrieben werden bis er auf eine veränderte Zahl trifft ( in diesem Fall die drei) . Anschließend soll er das ganze mit der drei weiter durchführen

Wie lautet die funktion?

Andernfalls soll er einfach immer den Wert der letzten Zeile übernehmen.

LG

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.

Ich habe eine Tabelle mit Filmen und weiteren Details. Jetzt möchte ich jedoch ein Inhaltsverzeichnis erstellen, wo der Name mit einem Link hinterlegt ist, der direkt zu dem Film führt.

Wie gestalte ich soetwas möglichst einfach? Makros scheinen mir hier zu schwer zu sein.

Hallo.

Kennt jemand einen Tastaturbefehl, welcher dazu führt, dass Excel zur nächsten springt, welche einen Inhalt hat?

Vielen Dank.

Hi,

ich habe eine Excel Spalte mit Werten zwischen 0-100 die insgesamt 100 ergeben.

Ich möchte zum einen ein Teil der Spalte markieren und die Summe davon einsehen.

Also z.B.

0,5

0,3

6,3

9

17,1

0,1

0,01

12

12,1

1,2

6

Wie würde das gehen, dass ich ein Teil der Werte markiere und herausfinde was die Summe ergibt.

AUSSERDEM

will ich gerne die fortlaufende Summe berechnen.

Das bedeutet eine Spalte daneben erstellen, die von oben nach unten den Wert immer weiter aufsummiert.

z.B. so

1 -> 1

2 -> 3

3 -> 6

4 -> 10

5 -> 15

6 -> 21

7 -> 28

8 -> 36

Ich bin für jede Hilfe sehr dankbar.

Grüße!

Gibt es eine Formel oder eine Möglichkeit in VBA?

Moin,

ich habe eine Einfahrt/Ausfahrtliste erstellt.

Datum in D1 der 01.01.2023

diese Liste muss ich jetzt komplett für 2023 ohne den Wochentag Samstag erstellen.

unter VBA / Makros kann man da wohl einen worksheet erstellen,

der die Liste in 313 Blätter kopiert und die Namen der Blätter mit dem jeweiligen Datum benennt.

Und in jedem Blatt unter D1 das jeweils fortlaufende Datum einträgt

kann mir wer helfen?

Gruss

Markus

Ist es möglich in Excel ohne VBA z. B. mittels Dropdownmenü das Format von einzelnen Werten zu ändern?

Beispielsweise von absoluten in prozentuale Werte?

Ich hätte gerne eine Tabelle, wo man oben auswählen kann in welchem Format die Werte angezeigt werden sollen.

Hallo zusammen,

ich möchte in meinem Excel Sheet einrichten, dass wenn der Nutzer einen Wert in Zelle A2 eingibt, welcher keinem der Werte in Spalte V entspricht eine Fehlermeldung ausgegeben wird. Bisher habe ich den Code unten.

Sub Worksheet_Change(ByVal Target As Excel.Range)



If Target.Address = "$A$2" And Cells(2, 1).Value <> Range("V:V").Select Then
MsgBox "Sie haben gerade Zelle A2 verändert!"
End If
End Sub

Das Problem ist, dass mein Code durchläuft als würde es die zweite If-Bedingung (unten) nicht geben

And Cells(2, 1).Value <> Range("V:V").Select

Kann mir jemand helfen das Problem zu fixen / eine Alternative vorschlagen?

Hallo zusammen,

ich greife gerade im Rahmen eines Projekts per Datenüberprüfung auf eine Auswahl von 6000+ Zellen zu und möchte falls ein Teil, das nicht zu den 6000 gehört eine Fehlermeldung ausgeben. Nun habe ich die Problematik, dass die Zelle mit der Datenüberprüfung eine Eingabezelle sein wird, d. h. der Benutzer wird Werte aus anderen XML Dokumenten hereinkopieren. Dies Formatiert die Zelle aber Standardmäßig um und entfernt die eingerichtete Datenüberprüfung.

Gibt es hier eine einfache Lösung dies zu verhindern? Ich habe es auch schon mit Excel VBA versucht (s. Quelltext) aber hier konnte ich nur die Datenüberprüfung nachdem sie entfernt wurde wieder hinzufügen. Das Problem hierbei ist, dass dem User keine Fehlermeldung angezeigt wird nachdem er den Text in die Zelle kopiert hat.

Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$2" Then

With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertWarning, Operator _
        :=xlBetween, Formula1:="='Zuord. Teil-Kart. Datenquelle '!$A$1:$A$6168"
        .IgnoreBlank = True
        .InCellDropdown = False
        .InputTitle = ""
        .ErrorTitle = "Teil nicht verfügbar"
        .InputMessage = ""
        .ErrorMessage = _
        "Teil nicht verfügbar, da:" & Chr(10) & "a) Teil existiert nicht" & Chr(10) & "b) Teil existiert, wird aber nicht in Kartonage verpackt --> Manuelle Frachtberechnung nötig" & Chr(10) & "c) Teil ist neu --> Rückmeldung an *** / ***"
        .ShowInput = True
        .ShowError = True
    End With
End If

Hallo zusammen,

ich suche eine Lösung um eine Schaltfläche mit folgender Funktion in meinen Code zu integrieren.

1. Klick auf schaltfläche --> Mache X
2. Klick auf Schaltfläche --> Mache Y

wie geht das am einfachsten?

_________________________________________________________

Anbei mein Code:

Sub NeuePosHinzu()

'

' NeuePosHinzu Makro

'

'1. Klick

   Range("A1:F4").Select

   Selection.Copy

   Range("B8").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

' Soll beim 2. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B14").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

' Soll beim 3. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B20").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A14:G17").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A20:G23").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A20").Select

   ActiveCell.FormulaR1C1 = "Pos. 3"

'Soll beim 4. Klick auf den Button ausgelöst werden

   Range("A1:F4").Select

   Selection.Copy

   Range("B26").Select

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

       :=False, Transpose:=False

   Range("A20:G23").Select

   Application.CutCopyMode = False

   Selection.Copy

   Range("A26:G29").Select

   Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _

       SkipBlanks:=False, Transpose:=False

   Application.CutCopyMode = False

   Range("A26").Select

   ActiveCell.FormulaR1C1 = "Pos. 4"

   Range("I21").Select

End Sub

Hey wie erstelle ich ein neues Blatt?

Folgender Codeschnipsel will net so recht

path_base='C:/pm_data/base.xlsx' 
                    WorkBook = load_workbook(path_base, read_only=False)
                    WorkSheet = WorkBook['Tabelle1']
                    
                    WorkSheet['B2'] = '<'+projektnummer+'>'
                    WorkSheet['B3'] = projektbezeichnung
                    
                    base_filename='C:/pm_data/'+jahr[2:]+monat+day+' '+projektnummer+' Projektinfo.xlsx'
                    WorkSheet.title='Basisinfo'


                    WorkBook.create_sheet['Schriftverkehr']
                    WorkBook.save(base_filename)

Hallo.

Vielleicht kann mir Neuling ja jemand helfen im VBA Bereich.

Grundlagen sind bekannt, nur brauche ich jetzt im Detail einmal Hilfe...

Ich habe meine Arbeitsmappe. In dieser ist eine Liste in der von mehreren Benutzern Einträge vorgenommen werden können. Zeile für Zeile (von Zeile 1-30/nicht ins unendliche). Jetzt sollen mir aber die ganzen Benutzer nicht meine Formatierungen und "Designs" und Einstellungen zerstören. Mein Blatt ist somit geschützt, bis auf den Bereich, wo geschrieben werden darf.

Jetzt möchte ich eine Userform, die es den Benutzern ermöglicht, ausgewählte Bereiche zu löschen. Also: In Zeile 3 sollen die Zellen B3 bis L3 gelöscht werden.

Auswahl der Zeile aus einer Combobox (1; 2; 3 usw.) --> dann mit einem klick auf löschen, soll die ausgewählte Zeile (Bereich) gelöscht werden.

Hintergrund. Die Funktion Ausschneiden, Einfügen, Kopieren ist in der gesamten Arbeitsmappe blockiert. So soll eben Fusch vermieden werden.

Ich bräuchte jetzt eine Anleitung, wie ich den Code schreiben muss, dass die ausgewählte Zeile in der Combobox durch klick auf einen Befehlsbutton auch gelöscht wird. Und nur diese.

Vielleicht kennt sich von euch ja jemand aus :D oder hat einen besseren Vorschlag.

Vielen Dank schonmal.

Hallo zusammen,

ich möchte beim Öffnen meines Outlooks gerne daran erinnert werden, einen Blick in die Junk-Mails zu werfen. Eine schlichte MsgBox würde mir da vollkommen reichen. Leider habe ich von VBA im Gesamten wenig Ahnung, bei Outlook quasi gar keine :-)

Mit folgendem Code habe ich es versucht - aber beim Öffnen der Outlook App passiert leider gar nichts.

Private Sub Application_Startup()
MsgBox "Bitte E-Mails im JUNK prüfen!", vbOKOnly, "Junk-Mails"
End Sub

Kann mir jemand sagen was ich falsch mache oder noch besser, wie es richtig zu machen ist?

Besten Dank schon mal.

LG, Chris

Hallo,

Wenn ich 4.1 in die Spalte schreibe, macht excel automatisch ein Datum draus. Wie kann ich das ändern, damit die 4.1 so bleib und nicht zu 4. Januar 2022 wird?

Direkt vorweg, ich kenne mich 0,01 % mit VBA aus!

Ich habe ein Macro zum erstellen eines Timers von hier http://pptalchemy.co.uk/Animated_Timer2.html kopiert und das klappt auch ganz gut.

Jetzt würde ich gerne die Zeile "Iduration = 120 'in seconds" so umändern, dass je nach Angabe in einem Textfeld/einer Form das VBA die 120 variabel anpasst.

Sprich, in Form "Rechteck 2" steht die Zahl 180 -> also soll Iduration = 180 sein.

Geht soetwas?

Hey,

ich habe momentan eine Tabelle welche im seitlichen Vormat ist, also jeder Wert steht nebeneinander in Spalten. Also Kategorie Name, Datum, Persönliche Nummer, Aufgabe…

Bei Export möchte ich gerne jede Zeile als Block untereinander haben sodass jeder Person einen Block hat und zwischen jedem Block eine Spalte frei.

Kann mir hier jemand weiterhelfen.

Vielen Danke

Wenn ich eine exceltabelle verschicke schaut sich der Empfänger das Seitenlayout an oder Normalansicht? Im Seitenlayout sind Kopf- und Fusszeilen drin aber auch sehr viel Blätter obwohl ich nur eines habe und in der Normalansicht sieht man keine Kopf und Fusszeile. Wie also kann ich alle übrigen Blätter löschen in excel??

Moin.
Ich möchte gerne eine bestimmte Spalte zusammen rechnen (Betrag).
Es sind ca 73 Seiten und 100 Einträge pro Seite

Wie kann ich sowas machen per Excel oder PDF?
Ich bedanke mich für antworten

https://i.gyazo.com/e0bd47e71a22d412bdc5dc89a381fa6d.png
Die Spalte 'originalGiftCardBalance'

Hallo zusammen,

Ausgangssituation:

Beruflich werden mir von Kunden Excel Listen mit zeitlich sortierten Jira Tickets (also Issue Type, Datum, Beschreibung) zur Verfügung gestellt.

Ziel:

Ich möchte daraus Gruppen erstellen und in Graphen auswerten (zB. histogram (wie häufig kommt ein spezielles Schlagwort vor), Gantt Chart (wie lange dauert die Bearbeitung von einem übergeordneten Schlagwort), etc).

Ansatz:

Ich habe mir überlegt, die Häufigkeit der verwendeten Schlagwörter ausgeben zu lassen, dann Füllwörter (“und“, “bei“, u.s.w.) raus zu nehmen und darauf aufbauend die restlichen Schlagwörter als Grundlage für die nachfolgende Auswertung zu nehmen. Hierzu sollen die Tickets 1) entsprechend nach Schlagwort gruppiert werden (problematisch wenn mehrere Schlagwörter bei Tickets vorkommen) und 2) ein Gantt Chart zu den übergeordneten Schlagwörtern auf Basis der verfügbaren Daten zu erstellen.

Frage:

Gibt es hierfür eine verfügbare Excel Funktion, die ich in einem Template abspeichern könnte? Bzw kann mir jemand helfen, den Fuß hierfür in die Tür zu bekommen? Ich bin mir zwecks der Umsetzung etwas unsicher.

Vielen Dank im voraus für Eure Hilfe.

Viele Grüße

Michael

Hallo zusammen,

ich möchte per Makro alle A1-Zellen in der Arbeitsmappe ( 8 Tabellenblätter) kopieren und über eine Messagebox ausgeben lassen.

In jeder A1 Zelle steht ein Wort. Die MSG Box soll alle Strings hintereinander ausgeben, sodass ein Satz entsteht.

Habt ihr Ideen ? Bisher scheitern meine Ansätze alle..

Danke euch

Hallo,

Ich habe einen Excel Makro erstellt der in einer ansonsten leeren Excel Datei Sitzt. Wenn man diese Datei öffnet und den Makro startet passiert folgendes:

1. Datei 1 (Tolle Daten.xlsx) wird geöffnet
2. Datei 2 (Template.xlsx) wird geöffnet
3. Daten aus Datei 1 werden in Datei 2 kopiert und teilweise formatiert
4. Datei 1 wird geschlossen und gelöscht
5. Datei 2 wird als UTF-8 .csv Datei in einem anderen Ordner gespeichert
6. Datei 2 wird geschlossen ohne zu speichern

Dieser Makro funktioniert einwandfrei.

Wenn ich allerdings den Makro automatisch starten lasse, wenn ich die Excel Datei öffne rennt er in einen Fehler.

Jetzt Fragt ihr euch wahrscheinlich: "Wo ist die Fehlermeldung?"

Die würde ich euch ja schicken aber wirklich bei jedem Versuch bleibt der Code an einer anderen Stelle hängen.

Fehler:

• unbekannte Variable
• ActiveSheet.Copy -> unbekannt
• Datei 2 konnte nicht gespeichert werden
• objektvariable oder with-blockvariable nicht festgelegt

usw...

Wenn jemand eine Idee hat warum der Makro aufhört zu funktionieren wenn man ihn automatisch starten lässt wäre ich sehr Froh von euch zu hören :-)

Hallo, ich würde gerne Excel VBA über ein Textfeld eine Combobox erweitern. Also das was ich in ein Textfeld eingebe soll in der Combobox übernommen werden. Wie realisiere ich das?

Hay zusammen,

meine Frage ist wie kann ich die Werte Links in der Tabelle rechts untereinander einfügen? Es muss eine Abfrage erfolgen ob die Zeile leer ist und wenn nicht, dann darunter einfügen.

Habe da ein Makro gefunden aber vielleicht kann mir jemand sagen wie der funktioniert. Kenne mich damit nicht aus. Habe die Werte geändert (Zellenangaben) und trotzdem fügt er die Daten untereinander ein.

Sub Makro2()
'
' Makro2 Makro
'
' Tastenkombination: Strg+e
'
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("J3:N3")
For Each Zelle In Bereich
    If IsEmpty(Zelle) Then Exit For
Next Zelle
With ActiveSheet
    .Range("A3:E3").Copy
    Zelle.PasteSpecial Paste:=xlPasteAll, Transpose:=True
    .Range("A3:E3").ClearContents
End With
Application.CutCopyMode = False
End Sub

Verstehe das System nicht ganz.

Kurz: Durch Klick auf Buchen sollen die Werte rechts eingefügt werde. Untereinander bei jeder weiteren Buchung.

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

meine VBA Kenntnisse sind leider etwas eingerostet und ich komme bei folgendem Problem nicht weiter.

Wie in der angehängten Grafik zu sehen, gibt es eine Tabelle mit verschiedenen Projekten. Ich würde gerne bei Ausführen des Makros jeweils eine neue Zeile darunter einfügen, sobald sich die Projektnummer in Zeile A ändert. Da dies bislang noch nicht so geklappt hat, arbeite ich aktuell mit folgendem Makro und füge eine neue Zeile ein, wenn ich Spalte C das Datum des vorherigen Monats gefunden wird. Das sieht folgendermaßen aus:

Sub ZeilenEinfuegen()

Dim ze As Long, zeL As Long

zeL = 1000 'Letzte Zeile bis zu der gesucht werden soll

For ze = 1 To zeL

  If ActiveSheet.Cells(ze, 3).Value = "31.10.2022" Then

    ActiveSheet.Rows(ze + 1).Insert

    ze = ze + 1

    zeL = zeL + 1

  End If

Next ze

End Sub

Auf Dauer würde ich jedoch gerne mit der Projekt-Nr. aus Spalte A als Bezug arbeiten und auch automatisiert die Projekt-Nr. sowie Bezeichnung aus der Zeile darüber in die neue Leerzeile einfügen.

Es wäre super, wenn mir jemand bei der Verbesserung helfen könnte!

Danke und viele liebe Grüße

Judith

Hallo Zusammen,

Ich bräuchte eine VBA Code, vielleicht kann mir da ein Experte weiter helfen. Ich möchte, wenn ich auf die Schaltfläche klicke in Tabelle2 (Siehe Bilder), dass Exel mir die Werte die ich gelb markiert habe, kopiert und anschließend in Tabelle1 immer in die leere Zeile die jeweiligen Werte einfügt. Ich hoffe ich habe es ausreichend erklärt.

Würde mich freuen wenn mir jemand da helfen könnte :)

Hallo,

ich habe angefangen mit VBA in Excel zu programmieren. Ich habe einen 4K Monitor.

Leider ist die Schrift im Editor sehr klein. Jegliche Versuche dies zu ändern sind gescheitert. Weder wirkt sich die Windows Skalierung noch die Windows Schriftgrößen-Einstellung darauf aus. Ganz zu schweigen von den eigenen Einstellungen unter Excel VBA. Die Schriftgröße stellt sich automatisch auf 6, nachdem ich OK gedrückt habe. Siehe Screenshot. Egal welche Schriftart.

Wäre echt Super, wenn jemand eine Lösung parat hätte. Mit der Windowslupe ständig zu arbeiten ist echt nervig.

Gruß

gnuma

Moin.

Ich erstelle aktuell ein Wordformular, in dem der Hintergrund ein Bild sein soll. Über ändern der Hintergrundfarbe und da Grafik geht das zwar, aber beim zoomen im Dokument, ändert sich auch der Bildausschnit (Why Word?!). Über Wasserzeichen einfügen geht leider nicht, da das Dokument nur am PC geöffnet und nicht gedruckt wird (das Ausgeblichene sieht einfach nicht schön aus). Hat jemand eine andere Idee? Vielleicht über VBA?

Vielen Dank und liebe Grüße

Kathrin

Hey,

ich arbeite aktuell an einem Word Dokument, in dem ich mit ActiveX-Steuerelementen arbeite. Habe bereits zwei Dropdownlisten eingefügt und diese über VBA voneinander abhängig gemacht.

Jetzt würde ich gerne bei der Auswahl eines Dropdownelementes den dazu passenden Text in mein Dokument anzeigt bekommen. In Word über Strg+F9 habe ich das bereits hinbekommen, da es aber am Ende einige Dropdownelemente werden, hätte ich das gerne in VBA sortiert angezeigt.

Bsp.

Dropdowliste zeigt "A" an, dann kommt als Text "Banane"

Dropdownliste zeigt "B" an, dann kommt als Text "Apfel"

Über Strg+F9 sah das in etwa folgendermaßen aus:

{IF {REF Benchmarkdropdownliste}="A" "Banane"}...

Ich bin leider absoluter VBA Neuling und kann mit den ganzen VBA Begriffen, wie Sub und Co. nichts anfangen :D Außerdem wäre eine weitere Frage, wie ich definiere, wo dann der IF then Teil im Dokument angezeigt wird?!

Vielleicht kann mir hier ja Jemand helfen :D

LG Kathrin

Hallo an alle!

Ich arbeite an einer Excel Tabelle und möchte das sobald der Wert auf 0 gesetzt wird, das in einer nächsten Spalte das heutige Datum erscheint und auch bestehen bleibt.

(Das Datum soll erscheinen wenn der Wert auf 0 gesetzt wurde)

Wie (und ist) das möglich?

Danke im voraus!

Hallo zusammen,

ich habe eine Excel-Liste mit Personen. In Spalte A sind die Personalnummern, in Spalte T wird ausgegeben, ob eine Schwerbehinderung vorliegt. Dies bezieht sich auf ein separates Arbeitsblatt, in welchem Personaldaten mit schwerbehinderten Beschäftigten enthalten sind (Spalte A = Personalnummer). Diese Rückmeldung klappt; hierbei wird einfach geschaut ob die Personalnummer aus Spalte A auch in Spalte A in dem separaten Arbeitsblatt vorkommt. Wenn jemand eine Schwerbehinderung hat, so erscheint "WAHR" in der jeweiligen Zelle in Spalte T.

In Spalte U soll nun ausgegeben werden, ob eine Erwerbsminderungsrente vorliegt. Dies ist i.d.R. nur bei Schwerbehinderten der Fall, sodass hier wieder auf das separate Arbeitsblatt Bezug genommen werden soll.

Es soll also in der Formel für Spalte U die Bedingung gelten, dass wenn in der jeweiligen Zelle in Spalte T "WAHR" steht, dann soll in dem separaten Arbeitsblatt in der dazugehörigen Zeile mit der entsprechenden Personalnummer auf Spalte R verwiesen werden. In Spalte R des separaten Arbeitsblattes ist mit "WAHR" (liegt vor) und "FALSCH" (liegt nicht vor) hinterlegt, ob eine Erwerbsminderungsrente vorliegt.

Gewünscht ist auch ein Verweis auf Spalte S im separaten Arbeitsblatt, wo das Datum hinterlegt ist, wie lange die Rente geht.

Ich probiere seit Ewigkeiten rum, aber kriege es mit einer Formel nicht abgebildet.
Kann jemand helfen? Im Voraus vielen Dank.

Moin,

ich versuche mich gerade an einer Tabelle in Excel (siehe Bild). Ich möchte jetzt das die Anzahl gezählt wird, welcher Verein wie oft drin steht.

Beispiel: Osterburg II müsste dann in dieser Tabelle 2x gezählt werden (siehe erste und vorletzte Zeile).

Mit welchem Befehl bzw. wie bekomm ich das hin?

Danke für eure Hilfe!

Hallo!

Ich hab zelle mit verschiedenen numerischen und char Inhalten. In allen befindet sich aber mindst eine sechsstellige Nummer. Dies kann folgendermaßen aussehen 123456 oder auch A2200123456 oder A22123456. Manchmal befinden sich auch zwei oder drei in einer Zelle, neben den Text: 123456, 654321, 987654

Folgenden Code habe ich aktuell:
=VERWEIS(9^9;1*LINKS(TEIL(B208;MIN(WENN(ISTZAHL(TEIL(B208;SPALTE($1:$1);1)*1);SPALTE($1:$1)));9^9);SPALTE($1:$1)))

dieser funktioniert ganz gut. das Problem bei diesem ist, dass er bei den 'A22000123456' immer die letzten zwei zahlen weglässt und auch nur eine der Zahlenketten extrahiert.

Wichtig wäre mir dabei vor allem, dass das erste Problem mit den fehlenden letzten zwei Zahlen gelöst wird.

Hinweis: neben er Zahlenkette befinden sich manchmal auch noch andere einzelne zahlen darin

Guten Morgen, ich hab mal eine Frage zu einem VBA.

Mein Code sendet zwar die E-Mail, nimmt aber den Dateiinhalt nicht mit. Kann mir da jemand helfen? Gruß

Hier mein Code: Public Sub Änderungen_Click()


    sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen:  "
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .GetInspector
            .Subject = "Änderungen"
                .Body = sMailtext & .Body
                        .Importance = 1
                    .To = "###########@t-online.de"
                    '   .Display
        With .GetInspector.WordEditor.Application.Selection
             ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
                 .Start = Len(sMailtext)
                     .End = Len(sMailtext)
                         '   .Paste
                End With
                    
                    .Send


            End With
    End
End Sub

Hallo Zusammen,

ich suche eine Möglichkeit aus einer Excel Datei (MS 365 auf einem mac) mit mehreren Tabellenblättern dem Nutzer die Möglichkeit zu geben eine PDF zu generieren deren Inhalt und dessen Ablageort er selber definieren kann.

Dabei ist die Auswahl des Inhalts auf die Tabellenblätter begrenzt. In jedem relevanten Tabellenblatt ist je ein Druckbereich definiert. D.h. der Nutzer kann (ohne Makro) auswählen ob er Tabellenblatt 1, Tabellenblatt 4 und oder andere Tabellenblätter drucken will.

Das Makro wird durch einen Button ausgelöst und folgendes geschieht:

• Abfrage welcher Speicherort und Dateiname
• Speichern der Datei / Schließen des Fensters
• Öffnen der generierten PDF Datei

Als Idee hatte ich zunächst mit Checkboxen zu arbeiten. Leider ist auf einem Mac die Nutzung von UserForms nicht möglich.
Die nächste Idee war die Checkboxen für jedes Blatt einzeln auswählbar zu machen.
Am Ende habe ich mich aber dafür entschieden, in einem Feld (aktuell auf jedem Blatt A1) die Information "print" abzulegen, so dass das Makro per Schleife alle Blätter auf A1="print" durchlaufen soll.

da ich noch ziemlicher VBA-Laie bin und mir mein Makro aus verschiedenen im netz verfügbaren Makros zusammengebaut habe, erspare ich euch das Pasten des sicherlich gruseligen Versuchs meinerseits

Leider klappts alles nicht so wie ich das gerne hätte, so dass ich nun auf eure Hilfe hoffe...

Danke schonmal!!

Hallo,

ich versuche gerade Access zu verstehen und habe nun ein Problem.

Ich habe zwei Kombinationsfelder:

1. KombiFeld01
2. KombiFeld02

Das zweite Kombinationsfeld soll abhängig von der Auswahl vom ersten Kombinationsfeld Einträge aus einer weiteren Tabelle anzeigen.

Das erste Kombinationsfeld wird bereits aus einer anderen Tabelle gefüllt.

Ich versuche also jetzt per VBA irgendwie einen Bezug von der Auswahl zur Tabelle zu erzeugen und komme nicht weiter.

Das sieht nun so aus (Variablen, weil ich nicht weiß wie ich die Spalten der Tabelle anhand der Auswahl im Kombinationsfeld auswählen soll):

Private Sub KombiFeld01_AfterUpdate()

  Dim strSQL As String, Auswahl As String, Spalte As String, cbo As ComboBox, cbo2 As ComboBox

  Set cbo = Me!KombiFeld01

  Set cbo2 = Me!KombiFeld02

  Select Case True

  Case cbo = "Artikelbezeichnung"

  Spalte = "Artikelbezeichnung"

  Case cbo = "Artikel-Nummer"

  Spalte = "ArtikelNummer"

  Case cbo = "FA-Nummer"

  Spalte = "FANummer"

  Case cbo = "Fehlermeldung Nr."

  Spalte = "Nr"

  Case cbo = "Kunde"

  Spalte = "KundeLang"

  Case cbo = "Status"

  Spalte = Me!KombiFeld01

  Case cbo = "Zuständig"

  Spalte = "zuständig"

  End Select

  strSQL = "SELECT DISTINCT '" & Spalte & "' FROM Fehlermeldungen ORDER BY '" & Spalte & "' WHERE '" & cbo & "' "

  cbo2.RowSource = strSQL

End Sub

Ich verstehe nicht, wie Select where überhaupt funktioniert.

Vielleicht kann jemand helfen. Vielen Dank.

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

  Dim bereich1 As Range

  Dim bereich2 As Range

  Dim x As Integer

  Dim y As Integer

  Dim ZeilenNr As Integer

  'Den Bereich auswählen

  Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

  Set bereich2 = Range("Tabelle1!B5:B30000")

  'Zeilen zählen

  ZeilenNr = bereich1.Rows.Count

  ZeilenNr = bereich2.Rows.Count

  'Jede zweite Zelle im Bereich durchlaufen

  For x = 3 To ZeilenNr Step 21

  'den Wert aus Spalte B in Spalte C eintragen

    bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

  Next

End Sub

Ich habe ein Excel-Tabellenblatt mit Datensätzen (Adressdaten). Im zweiten Tabellenblatt kann ich mit einer Formel (Index-Vergleich) über den Namen oder Kodex den Datensatz heraussuchen lassen. Nun möchte ich von diesem Suchergebnis zum passenden Datensatz im Tabellenblatt 1 mit den Datensätzen springen, da ich dort Änderungen durchführen möchte. Wer kann mir bitte bei der Lösung helfen?

Ich Möchte ein Tabellenblatt neben das Original kopieren, in dem man nichts mehr ändern kann, aber anschliesssend die Sub Makros aus der Kopie Löschen, da sonnst die Datie zu groß wird. Das Kopieren funktioniert super, nur mit den Makros entfernen noch nicht so.

Das ist mein Code zum Kopieren, Danke

Sub NeuesTabBlatt()
' Monate Soll
 If MsgBox("Wollen Sie wirklich einen neuen Sollplan erstellen?", vbYesNo) = vbYes Then
 If InputBox("geben sie Bitte das Passwort zum Entsperren ein", "  Sollplanerstellung") = "1234" Then
        MsgBox "OK, der Sollplan wird erstellt"
 Else
 MsgBox "Hier kommst Du net rein!"
 ActiveSheet.Range("$A$1").Select
 Exit Sub
 End If
Application.ScreenUpdating = False
Application.Calculation = False
Dim NewName As String
ActiveWorkbook.Unprotect Password:="1234"
NewName = ActiveSheet.Range("$CW$1")
ActiveSheet.Copy After:=ActiveSheet
 ActiveSheet.Name = "Soll" & " " & ActiveSheet.Range("CW1")
  ActiveSheet.Range("AT127:AV134,AQ133:AS133, AT183:AV186, AT228:AV232").Clear
       ZeilenEinUndAusblenden
    ActiveSheet.EnableSelection = xlNoSelection
   ActiveSheet.Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True
   ActiveSheet.Visible = False
  ActiveWorkbook.Protect "1234", Structure:=True
  Application.Calculation = xlAutomatic
 Application.ScreenUpdating = True
 MsgBox "ein neues SOLL Tabellenblatt wurde erstellt"
 End If
 'BlätterSollEinAus
 ActiveSheet.Range("$A$1").Select
End Sub 

Hallo, ich muss eine IP in eine Excel Datei einfügen und habe folgendes Problem:

Ich muss die Datei in Python wieder aufgreifen und es sollte als IP (bsp. 123.22.33.291) gelesen werden. Excel allerdings wandelt diese Zahl mit den wichtigen Punkten in eine ganze Zahl, also aus 123.22.33.291 wird 1232233291...

Weiß jemand, wie ich das Deaktiviere?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

Hallo allerseits,

seit mehreren Wochen versuche ich mit Excel einen Algorithmus zu finden, um aus einer Reihe bestimmter/vorgegebener Zahlen (z.B. 32 Zahlen in Spalte A) alle mathematischen 5-er oder 6-er Varianten zu berechnen und in den darauffolgenden 5 bzw. 6 Spalten darzustellen.

Bin inzwischen nur verzweifelt. Gibt es eine elegante Lösung dafür (verformelt oder mit VBA)?

Vielen Dank im Voraus!

Hallo zusammen,

ich bin echt am verzweifeln.
Für mein Studium muss ich einen Bauzeitenplan erstellen mittels Gantt-Diagramm.
Das ist kein Problem. Alles schon erledigt. Mit der bedingten Formatierung werden die einzelnen Start- und Enddaten eingefärbt.

Jetzt muss ich aber noch eine Schaltfläche einbringen, die die eingefärbten Felder in einer anderen Farbe darstellen lässt.

Leider finde ich nirgendwo einen Code, der mir da helfen könnte.
Weiß hier jemand vielleicht, wie das klappen könnte?

Bin für jede Hilfe dankbar.

LG

Hallo, ich hätte eine Frage bezüglich Excel VBA:

Ich versuche folgendes zu erreichen:

Damit soll der Zellinhalt von (in dem Fall) Zelle A1 geändert werden.
Wenn man "x = 2" verwendet, dann soll der Inhalt in Zelle A2 geändert werden usw.

Gibt es da eine Spezielle Syntax oder geht es gar nicht so?

Danke für eure Hilfe!

Hallo, ich hätte eine Frage bezüglich Excel Makros.

Ich habe eine Tabelle (siehe Bild unten). Bei Klick auf Sortieren wird ein Makro ausgeführt das den Bereich der Liste1 Sortiert.

Jetzt zur Frage: Wenn die Liste1 einen neuen Eintrag bekommt, wird dieser natürlich nicht mitsortiert. (Wie) kann man das lösen, auch wenn sich der Bereich vergrößert?

(Man könnte einfach die gesamte Spalte sortieren indem man die Liste2 und Liste3 woanders hinverschiebt, das ist aber nicht gewollt in dem Fall. Die Listen müssen untereinander sein; neue einträge würden durch "Zellen einfügen" hinzufügt werden)

Danke für eure Hilfe.

Hallo, wie kann ich ausgewählte Zellen einer Spalte in EINE Zelle verschieben? Die Werte sollen mit Zeilenumbrüchen dargestellt werden. Am besten als Script?!

Hey Leute habe ein Problem... leider kann ich es nicht erklären da mein "wissen" zu wenig ist. :( Laufzeitfehler 9 und "Sheets(ws).Select wird gekennzeichnet...

danke schonmal im vorraus !!

Hey. Es ist ja in Excel möglich sowohl über die Auswahl im Menu Ansicht, als auch durch VBA-Programmierung (wo ich mich nicht auskenne) möglich einen Bereich auszuwählen, welcher fixiert werden soll, wenn man durch das Datenblatt scrollt.
Nun ist es aber anscheinend nur möglich Excel mitzuteilen, welche Spalten links und welche Zeilen oberhalb der ausgewählten Zellen fixiert werden soll.
Bsp: Markierung der Zelle F4. Die Zellen von A1:E3 werden fixiert.

Ist es auch möglich die Range individuell festzulegen. Also dass die "Startzelle" nicht A1 sondern z.B. B2 ist; Range ("B2:F4)?
Ich habe leider nichts dazu gefunden, auch nicht mit VBA.

Ich hoffe es ist klar geworden, was ich meine. Danke

Hallo Leute,

ich habe ein VBA Userform mit einer Listbox und möchte den ausgewählten Eintrag abfragen für eine If-Verzweigung.

Der Code soll folgendes tun:

Wenn z.B der erste Beitrag der Liste ausgewählt, dann ...

Habe es bereits mit If Listbox.Selected(0) = True Then .... versucht, geht aber nicht.

Hat jemand Vorschläge?

Danke im voraus!

Grüße

Hallo zusammen,

ich habe mehrere Makros in einer Datei gesammelt und diese anschließend verschlüsselt. VBA Projekt Passwort.

Einer Jahr später habe ich es wieder benötigt. Problem jetzt ist ich weiß das Passwort nicht mehr und es war recht Komplex.

Wie kann ich es anzeigen lassen oder sogar es abschalten ?

Bitte ohne die Datei zu beschädigen. Werde so oder so eine Kopie machen, aber das alles ganz bleibt.

Nach langem Googeln und ausprobieren mit DPB funktioniert es auch nicht. Da das neue Exel die Datei dann sozusagen löscht beim Wiederherstellen und alle Makros sind futsch.

Danke schonmal :)

Hallo Zusammen,

Ich will mittels VBA ein Excel modifizieren, damit möglichst wenige Tabellenblätter angezeigt werden. In einem Tabellenblatt (z.B. "Auswahl") habe ich die Zellen C62, C88 und C114, die jeweils ein spezielles Tabellenblatt anzeigen sollen. Jedoch gibt es im Moment nur LZF-Meldungen.

Es soll jeweils bei "Yes" nichts angezeigt, bei "No" die entsprechende Tabelle eingeblendet werden.

Ansonsten sollen die "nicht betroffenen" Tabellen ausgeblendet bleiben

Hier der Code im Worksheet "DieseArbeitsmappe":

Private Sub Worksheet_Open()

'Beim Öffnen des Excels die betroffenen Blätter ausblenden
    ThisWorkbook.Worksheets("Tabelle4").Visible = False 
    ThisWorkbook.Worksheets("Tabelle5").Visible = False
    ThisWorkbook.Worksheets("Tabelle6").Visible = False
    
End Sub

In Blatt "Auswahl" (Tabelle7) habe ich folgenden Code:

Private Sub Worksheet_Change(ByVal Target As Range)

   

‘Hier sind vorher noch andere IF-Regeln hinterlegt, die nur Reihen in Tabelle7 ein/ausblenden

   

    If Range("C62").Value = "No" Then 'Tabellenblätter einblenden, sobald in der jeweiligen Zelle "No" ausgewählt wird

        ThisWorkbook.Worksheets("Tabelle6").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle6").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C88").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle5").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle5").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

    If Range("C114").Value = "No" Then

        ThisWorkbook.Worksheets("Tabelle4").Visible = True

       

        Else

        ThisWorkbook.Worksheets("Tabelle4").Visible = False ‘Hier erhalte ich jeweils ein LZF 9?

    End If

   

End Sub

Weshalb gibt es jeweils einen Fehler und wie kann ich diesen am einfachsten beheben?

Vielen Dank, Michael

Hallo ich habe eine Eingabemaske erstellt, wo ich Daten eintragen kann und diese Automatisch eingefügt werden. Jetzt habe ich das Problem das dieses "Einfügen" immer in der Arbeitsmappe passiert wo das Fenster geöffnet wird.

Ich würde es gerne so machen das Ich in Tabellenblatt "A" den Button habe um das Fenster zu Öffnen, und das diese eingetragenen Daten in Tabellenblatt "Datenbank" eingefügt werden.

Hier ist mein aktueller Code.

Danke schonmal im voraus :D

Hallo Leute,

folgendes: ich habe ein Word Datei mit Makros (.docm) und möchte einen Code in VBA schreiben der mir eine Kopie dieser Datei erstellt, am selben Ort speichert und anschließend öffnet. Hat jemand eine Idee wie das geht?

Danke im voraus!

Grüße

Hallo,

ich benutze folgenden Code in Excel VBA um mir Dateipfad und Dateiname eines Ordners und allen darin enthaltenen Unterordnern aufzulisten.
(Ihr könnt es testen, den Code einfach in ein Modul kopieren, "MainList" ausführen und einen Ordner eurer Wahl auswählen)

Ich habe jetzt das Problem, dass dieser Code alle Dateien überspringt, deren Pfadlänge über 255 Zeichen lang ist. Einige Dateien überschreiten nämlich die 255 Zeichen mit dem angehängten Dateinamen.
Sie liegen aber dennoch ab. Nur liest VBA diese nicht aus. Kann man da was dran machen?

Sub MainList()
'Updateby Extendoffice
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
Call ListFilesInFolder(xDir, True)
End Sub

Sub ListFilesInFolder(ByVal xFolderName As String, ByVal xIsSubfolders As Boolean)
Dim xFileSystemObject As Object
Dim xFolder As Object
Dim xSubFolder As Object
Dim xFile As Object
Dim rowIndex As Long
Set xFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFileSystemObject.GetFolder(xFolderName)
rowIndex = Application.ActiveSheet.Range("A65536").End(xlUp).Row + 1
For Each xFile In xFolder.Files
  Application.ActiveSheet.Cells(rowIndex, 1).Formula = xFile.Path
  Application.ActiveSheet.Cells(rowIndex, 2).Formula = xFile.Name
  rowIndex = rowIndex + 1
Next xFile
If xIsSubfolders Then
  For Each xSubFolder In xFolder.SubFolders
    ListFilesInFolder xSubFolder.Path, True
  Next xSubFolder
End If
Set xFile = Nothing
Set xFolder = Nothing
Set xFileSystemObject = Nothing
End Sub

Function GetFileOwner(ByVal xPath As String, ByVal xName As String)
Dim xFolder As Object
Dim xFolderItem As Object
Dim xShell As Object
xName = StrConv(xName, vbUnicode)
xPath = StrConv(xPath, vbUnicode)
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.Namespace(StrConv(xPath, vbFromUnicode))
If Not xFolder Is Nothing Then
  Set xFolderItem = xFolder.ParseName(StrConv(xName, vbFromUnicode))
End If
If Not xFolderItem Is Nothing Then
  GetFileOwner = xFolder.GetDetailsOf(xFolderItem, 8)
Else
  GetFileOwner = ""
End If
Set xShell = Nothing
Set xFolder = Nothing
Set xFolderItem = Nothing
End Function

Ich habe in Excel VBA ein Modul "Test" geschrieben, das ich gerne löschen würde. Das gelingt mir nicht mit Rechts-Click ... Test entfernen. Es kommt die Fehlermeldung "Ungültiges Dateiformat". Die gleiche Fehlermeldung kommt auch sporadisch in der Arbeitsmappe, ohne dass ich es reproduzieren konnte. Seit einiger Zeit kann ich die Arbeitsmappe nicht mehr speichern. Auf der Suche nach der Fehlerursache stieß ich im VBA Editor auf besagtes Modul, das sich mit der genannten Fehlermeldung nicht löschen lässt. Wer kann mir helfen, damit ich die Arbeitsmappe wieder speichern kann?

Hallo zusammen,

ich würde gerne den Text aus meiner Textbox kopieren anhand eines Buttons.

Zudem muss ich sagen das die Textbox nicht aktiv ist (vlt. ein Problem?)

Folgendes funktioniert leider nicht ..

Private Sub CopyPhLoc1_Click()

   Dim MyData As New DataObject

   MyData.SetText PhLoc1Text.Text

   MyData.PutInClipboard

End Sub

genauso wie Me.PhLoc1Text.Copy bzw. Me.PhLoc1Text.text.copy

bitte um Hilfe!

Falls es keine möglichkeit gibt überlege ich den Text in ein worksheet umzuleiten und daraus zu kopieren. Direkt kopieren allerdings wäre natürlich besser.