Ich benutze Office365 (somit aktuell Office 2013). Statt dem bisherigen Pfeilcursor habe ich jetzt nur noch ein weißes Kreuz als Cursor. In meinem Excel-Formular sind diverse Command-Buttons. Wenn ich jetzt mit diesem Kreuz-Cursor auf diese Buttons klicke passiert gar nichts mehr (die dahinter liegenden VBA-Makros werden nicht ausgeführt). Wenn ich versuche neue Active-X-Elemente einzufügen kommt: "Objekt kann nicht eigenfügt werden."

Der Tipp "Ausfüllkästchen und Drag & Drop von Zellen aktivieren [x]" bringt bei dieser Excel-Version leider nicht den gewünschten Erfolg:

http://answers.microsoft.com/de-de/office/forum/office_2007-excel/mauszeiger-%C3%A4ndert-sich-nicht-auf-das-kreuz/f5d57ee0-cb34-4916-97a6-df0be7df1643

Wie kann man in diesen Modus geraten und wie kommt man wieder zum normalen Pfeil-Cursor-Modus?

Ich trage in Spalte H ab Zeile 5 Daten ein, wenn jemand angerufen hat. Wenn das Datum gestern oder älter ist soll die Zelle leicht rot ausgefüllt sein.

Wenn ich es über Bedingte Formatierung und neue Regel mit "=$B2<heute()" versuche, sind die Zellen allerdings auch rot, wenn garnichts drin steht. Wie kann ich das verhindern?

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

Kurzgefasst wird dort in einem bestimmten Bereich eine Bedingte Formatierung gemacht, mit der Formel:

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$A$4:$Q$10000")) Is Nothing Then
Range("$A$1").Value = Target.Row
End If
End Sub

Resultat:
Die Zeile der aktiven Zelle wird nun farblich markiert.

Frage:
Mir ist nun aufgefallen, dass ja jedes mal wenn irgendwo geklickt wird der VBA Code abgespielt wird. Dementsprechend kann man die Vorwärts und Rückwärts Buttons nicht mehr verwenden :(

Dies ist leider sehr unpraktisch. Ich habe in die Zellen etwas eingefügt und wollte dann es rückgängig machen und nicht mal das geht.
Daher die Frage, gibt es hier ein Workaround? Oder eventuell eine ganz andere Lösung ohne VBA?

Danke vorab

Hallo, ich möchten, wenn z.B in Zelle D4 eins steht das die Zeile also A4-D4 x mal kopiert werden und dann untereinander eingefügt werden. Ich habe das mit einer Formel versucht, habe aber keine Lösung gefunden. Ich hoffe jemand kann mir helfen.

P.S. (Copy und Paste geht nicht, da es sehr viele Zeilen gibt zum Kopieren)

 Danke im voraus.

Hallo zusammen,

ich bin gerade dabei, eine Datenbank mit Makros in VBA einzurichten. Ich stehe vor dem Problem, dass, wenn ich meine .xlsm zu unserem Team Sharepoint online hochlade, die eingebaute Makro-Schaltfläche zum Öffnen eines Benutzerformulars funktioniert nur für mich (der sie erstellt hat). Wenn einige meiner Teammitglieder versuchen, auf die Schaltfläche zu drücken, erhalten sie die folgende Fehlermeldung: Run time error 76: Pfad nicht gefunden. Ich weiß, dass dies etwas mit der Speicherung des Dokuments auf Sharepoint online zu tun hat, aber ich konnte keinen Thread finden, der die Antwort auf dieses Problem hat. Gibt es irgendetwas, das ich zum Code hinzufügen kann, damit jeder meine Makros öffnen kann, die in der Datenbank erstellt wurden?

Ich bin sehr neu in Excel VBA und Kodierung, also bitte urteilt nicht... :P

Vielen Dank an alle, die versuchen, mir zu helfen.

Ich will wie oben gennant, zwei zellen addieren. Z.b. A7+A8. weiss aber nicht wie das geht?

Hey Leute, ich zocke zur Zeit Pokemon Feuerrot auf dem VisualBoyAdvance und habe eine Seite( http://sfc.pokefans.net/codes/frbg.html#alte-pokemon ) gefunden wo es eine Menge Cheatcodes gibt. Das dumme nur, sie funktionieren nicht! Ich gehe auf Cheats -> List.. -> Gameshark/CodeBreaker (ich gebe hier den Code ein) -> OK -> OK! So, normalerweise sollte nun das gewünschte Pokemon etc. auftauchen, aber nichts geschieht. Ich habe es mal mit Mastercode probiert, mal ohne. Was mache ich denn falsch? Was sollte ich anders machen? Will mir jemand sagen wie ich am Besten den Master- und den Cheatcode eingeben sollte? Ich brauche "HILFE".

Danke im Voraus :)

Hallo,

Ich habe derzeit das Problem, dass ich mittels Indirekt auf Werte aus einer anderen Mappe zugreife. Funktioniert, aber die Mappe muss geöffnet sein.

Deshalb habe ich ein VBA, welches diese Mappe öffnet und wieder schließt.

Da es sich jedoch nicht nur um eine Mappe, sondern ca. 30 handelt dauert das öffnen und schließen ziemlich lange, da die Dateien auf einem Server liegen.

Ich suche nach einer Möglichkeit auf die geschlossenen Mappen zuzugreifen und die Werte zu übernehmen ohne die Mappen zu öffnen. Geht das irgendwie?

Die derzeitige Formel in der entsprechenden Zelle sieht so aus: =INDIREKT(" '["&R10&"]"&$B$1&"'!"&"$C$10")

In R10 steht der Name der Mappe.

In B1 steht der Name des Tabellenblattes.

Beides ist variabel.

Vielen Dank.

Hallo Community, möchte gerne alle Zellen gleichen Inhalts pro Spalte automatisch verbinden lassen (Inhalte müssen, wie bei Excel üblich nur einmal erhalten bleiben). Später soll also der Konfernzname, das Datum und der Ort nur noch einmal pro Konferenz auftauchen. Die Teilnehmer und ihre Beiträge könnte man dann zwar auch noch verbinden, aber hier müssten natürlich die ganzen Zellinhalte erhalten bleiben (was Excel üblicherweise nicht macht). Ist wahrscheinlich nur mit VBA möglich oder? Danke im Vorraus

Bild siehe Anhang

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

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

Hallo Leute,

ich sitze gerade vor einem Excel Problem: Ich habe eine Tabelle in dem die Zellen folgendermaßen formatiert sind: [h]:mm, da ich in Stunden und Minuten über 24 Stunden hinaus rechnen muss. Ich möchte nun eine Abfrage einbauen, wenn in K12 ein Wert steht, der größer als 10 Stunden ist dann soll in L12 die Differenz (also Wert - 10) stehen. Wenn der Wert nicht größer ist, dann soll (als Test) 150 ausgegeben werden. Das Problem ist nun, dass ich in der WENN Abfrage keine 10:00 Als Wert angeben kann! Also das geht nicht: =WENN(K12>10:00;K12-10:00;150) Kann mir da jemand behilflich sein?

Danke im voraus

Gruß BB

Hallo zusammen,

Ich möchte in VBA etwas programmieren, und dazu ist es nötig dass eine Zelle als Button funktioniert. Das heisst, sobald ich z.B auf die Zelle A1 klicke, also die aktiviert wird, soll ein Makro ausgeführt werden. Wie kann ich das realisieren?

MfG Duma123

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If
    

End Sub

Hallo zusammen,

ich habe in Excel eine Liste, mit einer Hintergrundfarbe die ich aus der Farbpalette selbst hinzugefügt habe. Nun habe ich in Visual Basic hinterlegt das je nachdem was an Werten ausgespukt wird einzellne Zellen rot gefärbt werden. Cells(zd, 6).Interior.Color = vbRed Wenn man die UserForm noch mal ausführt und die Werte ok sind, soll die Farbe wieder auf die vorherige Farbe geändert werden. Da diese aber keine standart Farbe ist, weiß ich nicht wie ich diese dort wieder rein bekomme..

Hallo. Ich schreibe grade ein Makro und hänge ein steller fest. Ich muss in einer Zeile in jeder Zelle den manuellen Zeilenumbruch entfernen. Bisher bin ich soweit gekommen

lzeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = 1 To lzeile

Cells(t, 2).Replace Chr(10)

Next t

So läuft es zwar durch aber die Zeilenumbrüche werden auch nicht entfernt. Hat jemand einen Tip was ich an meinem Code ändern muss?

Hallo,

ich habe ein Problem, dass ich nicht gelöst bekomme:

Ich habe eine Liste mit den Zahlen 1 bis 70. Aus diesen Zahlen brauche ich alle 10er-Kombinationen die es gibt. Das dürften ein paar Millionen sein. Es geht also nicht darum, wieviele Kombinationen es gibt, sondern um die einzelnen Kombinationen selbst.

zum Beispiel:

1,2,3,4,5,6,7,8,9,10

1,2,3,4,5,6,7,8,9,11

1,2,3,4,5,6,7,8,9,12

und so weiter.. Vielleicht findet sich hier ein Experte :)

Guten Morgen,

Ich würde gerne in Excel eine Spalte mit den Beispielhaften Daten (s.o.) sortieren lassen. Leider gibt er mit der Excel-Standartsortierung folgende Reihenfolge aus: (1.1; 1.11; 1.11.1; 1.2; 1.22). Ich hätte aber gerne die oben beschriebene Reihenfolge. Ist dies irgendwie möglich? Gerne auch per Makro.

Aufgrund der Verwendung und da ich in den einzelnen Zeilen vorher nicht sagen kann, wie viele Unterpunkte ein Punkt haben wird, habe ich die Zellen als 'Text' formatiert. Vielleicht gibt es hier ja auch eine sinnvollere Lösung.

Vorab schon mal vielen Dank!

Hallo Leute,

ich bekomme bei einer Web Abfrage in Excel die Fehlermeldung

"Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoben würden."

Klingt erstmal ganz logisch, aber wie behebe ich den Fehler?

Hallo zusammen,

ich stehe vor einem (für mich sehr großen) Word-Problem: Ich möchte zwei Checkboxen einfügen (aus der Kategorie Entwicklertools > Steuerelemente > Active X Kontrollkästchen), welche beim Anklicken jeweils einen bestimmten Text anzeigen bzw. wieder ausblenden.

Aus meiner bisherigen Recherche habe ich herausgefunden, dass das wohl durch Macros funktionieren sollte, damit kenne ich mich aber absolut nicht aus und meine bisherigen Versuche, einen Code aus dem Internet einzufügen, sind auch alle fehlgeschlagen.

Wenn sich irgendjemand in der Lage fühlt, mir weiterzuhelfen und einen entsprechenden Code zur Verfügung zu stellen, tausend Dank schon mal im Voraus!!

Hallo,

ich habe ein Excel Tabellenblatt. Dieses habe ich mit einem Blattschutz versehen. Die Zellen AF7:AG136 sind von diesem Schutz befreit bzw. nicht gesperrt. Jetzt möchte ich allerdings, dass diese Zellen eingefärbt werden können. Ich dachte zunächst an eine bedingte Formatierung, jedoch funktioniert dies nicht, da der einzutragende Text zudem noch variabel ist. Gibt es ein Makro, was mir das Einfärben des genannten Bereiches ermöglicht?

LG Syrena

Liebe Experten,

in meiner Excel-Datei befindet sich in der Spalte E in einigen Zellen (nicht in jeder Zeile) ein Text, der irgendwann durch ein Komma getrennt ist.

Der Text ist in jeder Zelle unterschiedlich

Ich benötige nur den Text vor dem Komma.

Also aus Frau Müller, Geranien Weg 5 soll nur noch Frau Müller werden oder aus Team A - Team B, 6. Spieltag soll nur noch Team A - Team B werden.

Ich bräuchte dafür ein Makro bzw einen Code den ich in ein schon bestehendes Makro einbauen kann.

Vielen Dank für Eure Hilfe. Ich google mich schon langsam tot, ohne etwas passendes gefunden zu haben bzw. meine VBA - Kenntnisse sind dafür einfach noch zu rudimentär.

MJ

Hallo, ich habe wieder eine Excel Frage: ich habe eine Tabelle, Spalten A-H. In der Spalte G habe ich den Status, wo ich eine DropDown-Liste habe und zwischen: "in Bearbeitung", "Material bestellt", [...], "erledigt" auswählen kann. In Spalte H habe ich als Überschrift "erledigt am", es soll also in Spalte H, sobald ich in Spalte G den Status "erledigt" ausgewäht habe, das aktuelle Datum erscheinen. Ich habe also in Spalte H folgende Formel: "=WENN(G50="erledigt";TEXT(JETZT();"TT.MM.JJ");"")". Ich glaube, ihr wisst, worauf ich hinaus wil, also nach dem Speichern soll dich das Datum nicht ändern, tut es aber natürlich. (Ist ja klar!) Aber, da ich erst seit ein paar Monaten mit Excel arbeiten, habe ich noch keine Ahnung. Durch das Stöbern im Internet, habe ich rausgefunden, dass es nicht einfach so funktioniert (oder doch?), sondern, dass man dafür ein Makro braucht (wovon ich absolut keine Ahnung habe). Also so weit bin ich: ich habe die Tabelle offen vor mir, ich klicke auf den Tabellen-Namen und klicke auf "Code anzeigen", dann öffnet sich ja ein Makro Fenster. So, was soll ich nun machen? Ihr wisst ja, welche Spalte ich brauche, es wäre schön einen Code zu haben. :-) Und wenn ich da den Code eingefügt habe, was muss ich dann machen? Ich würde dann auf "speichern" klicken, dann öffnet er ja ein Fenster und weist mich darauf hin, dass ich die Datei als eine Mappe mit Makros speichern muss. Richtig? Dann würde ich das tun. Und dann wenn ich das gespeichert habe, müsste ich die Makros (-> "Inhalt aktivieren") jedes Mal, wenn ich die Datei öffne anklicken, oder? und dann habe ich das, was ich will. Bitte helft mir, ich verzweifle so langsam...

Hallo, ich suche einen Excel VBA-Code der mir eine fortlaufende Nummerierung einfügt. Beginnend bei B8 soll er in der selben spalte bleiben und immer 1 weiter runter zählen. Wäre für jede Hilfe sehr dankbar.

Hallo liebe Excelprofis,

bislang habe ich es nur hingekriegt, via VBA eine Datei zu öffnen, die dortige Datenabfrage zu aktualisieren und wieder zu schließen:

Sub UpdateExcelFile()
  Dim wb As Workbook
   
  Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Desktop\Ordner der Testabfragen\Testabfrage 1.xlsx")
  ActiveWorkbook.RefreshAll
  Application.CalculateUntilAsyncQueriesDone 'VBA-Code warten lassen, bis die Aktualisierung abgeschlossen ist
  wb.Save
  wb.Close
End Sub

Nun habe ich aber nicht nur eine Datei in dem (definierten) Ordner, sondern mehrere, die genauso wie oben geöffnet, aktualisiert und geschlossen werden sollen. Eine exakte Zahl kann ich nicht nennen, da es fortlaufend immer mehr Dateien werden. Allerdings befinden sich in dem Ordner nur xlsx-Dateien.

Aus Performancegründen möchte ich die Dateien hintereinander und nicht gleichzeitig bearbeitet haben. Der Beispielordner bleibt derselbe (Ordner der Testabfragen). Idealerweise folgt eine Mitteilung zum Ende, wenn die letzte Datei im Ordner wieder geschlossen wurde. Wie würde der Code dafür lauten?

Vielen Dank für eure Unterstützung!

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

Hallo, Ich habe eine Excel Tabelle, in dieser befinden sich 3 Spalten in denen mehrere Tausend von Einträgen sind. Dien Tabelle soll exportiert werden und muss sich daher an Zeichenlängen halten. Da ich nun schon alle Zellen mit werten habe, möchte ich wissen, wie ich nachträglich Überprüfen kann, ob die Maximale Zeichenlänge Überschritten wurde und wenn ja diese von hinten um X Zeichen kürzen bis sie der Vorgabe entspricht. Ansonsten könnte ich sie nicht einlesen. Bei 5-6000 Einträgen würde ich das aussortieren und kürzen nur ungern von Hand übernehmen. Danke

Hallo erstmal,

Ich möchte in Excel ein Feld haben bei dem ich mit der Maus drüber fahre und ein Fenster aufkommt indem dann ein Bild ist. So weit so gut. Ich habe es mit Kommentaren probiert und den Hintergrund so formatiert, dass er das Bild wiedergibt. Allerdings verstellt sich immer wieder beim Öffnen der Datei die Kommentar Größe, sodass das Bild nicht ganz angezeigt wird (was allerdings erforderlich wäre. Es mit VBA mouse over label unsichtbar..... Zu probieren geht prinzipiell allerdings sind die Fenster so gestaltet, dass sie minimiert und maximiert werden (siehe Bild) dadurch passt das Label dann nicht mehr auf die Größe der Zelle, also bitte Hilfe, wie mach ich das am besten?

Danke schon im Voraus.

PS. Falls jemanden interessiert was diese Zeichen zu bedeuten haben, es geht um Rubiks Würfel.

Ich weiß, Kommentare wie: "nimm doch Trainingsapps, die sind besser" sind nett gemeint, allerdings möchte ich diese Problem unbedingt lösen, einfach damit ich nicht aufgebe.

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.

Hallo, ich würde gerne einen Nebenjob annehmen, der aber VBA Programmierung für Microsoft office vorraussetzt, zum unter anderem Makros zu programmieren.

Ist das schwer zu lernen? Ich kann nur etwas Java und von VBA weiß ich nichts. Kann man sich das kurz in paar Tagen reinziehen oder finger davon lassen? Grüße

Hallo, ich habe ein kleines Programm in VBA. Ich hänge gerade an folgender Stelle: Es sind 2 Excel-Dateien geöffnet (Datei-A und Datei-B). Das aktive Workbook ist Datei-A. Jetzt möchte ich aus Datei-B eine Zelle auslesen und diese einer Variablen als Wert zuweisen. Wie mache ich das? Datei-B ist ja weder das ActiveWorkbook, noch muss ich es erst noch öffnen, um es zum ActiveWorkbook zu machen. Ich möchte kurz gesagt zwei Variablen: Variable A ist Datei-A und Variable B ist Datei-B und möchte so immer zwischen diesen beiden unterscheiden. Ich möchte gerne ohne "ActiveWorkbook" arbeiten. Ich hoffe man versteht mein Problem und ihr könnt mir helfen.

In meinem Tabellenblatt in Spalte A sind Werte eingetragen mit Leerzeilen dazwischen. Ich möchte diese Werte immer bis zum nächsten Wert kopieren, so das am Ende meine Tabelle komplett ausgefüllt ist. Es gibt bestimmt ein Makro oder eine Funktion die das kann.

Hallo liebe Community,

ich weiß, es gibt mehrere Leute, die diese Frage schon gestellt haben, aber ich bekomme es einfach nicht hin. Vielleicht habe ich auch nur gerade eine Denk(Dummheits)Blockade, versuche das seit ca 2 Stunden zu realisieren.

Ich habe eine Tabelle mit diversen Daten und ein (Balken)Diagramm, welches für jede weitere Zeile in der Tabelle einen neuen Balken hinzufügen sollte. Das ist an sich nicht schwer, aber ich möchte, solange noch keine Daten vorhanden sind, keine leeren Stellen im Diagramm... (siehe: https://gyazo.com/346a1e059ea781ea82d471505856904a) ...und das kriege ich nicht hin.

Ich habe eine Hilfstabelle gemacht und einen Filter darüber gelegt, dass alle leeren ("") Zellen ausgeblendet werden, das funktioniert auch soweit im Diagramm, aber ich muss nach jedem Eintrag in die eigentliche Tabelle wieder den Filter von Hand aktualisieren und das ist ärgerlich.

Ich hoffe ihr könnt mir helfen, sonst sehe ich schwarz für meinen PC und mein Fenster (und eventuelle Fußgänger). Erklärt es am besten so, wie ihr es einem 6 Jährigen erklären würdet. :)

Grüße Tuesday

/ps: Was ich bisher ausgegraben habe und (vermutlich wegen mangelnder - bis nicht existenter - VBA Kenntnis) nicht funktioniert hat:

• office-loesung.de/ftopic93223_0_0_asc.php

• office-loesung.de/ftopic60304_0_0_asc.php

• gutefrage.net/frage/excel-gefilterte-daten-automatisch-aktualisieren

Hallo zusammen,

ich stehe im Moment auf dem Schlauch.... Leider bin ich kein Profi in VBA.

Mein Problem ist folgendes: Ich möchte bestimmte Spalten aus einem Tabellenblatt in ein anderes kopieren. Da die Reiehnfolge der Spalten nicht immer gleich ist, ermittle ich die zu kopierenden Spalten anhand der Überschrift in der ersten Zeile. Soweit so gut...

Nun scheitere ich leider an der Umsetzung. Bis zum kopieren funktioniert es. Doch klappt das einfügen in das neue Tabellenblatt nicht...

Es tritt folgender Fehler auf:

"Laufzeitfehler 1004

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"

Ich hoffe ihr könnt mir weiterhelfen

Viele Grüße

Hallo, ich würde gerne die Hintergrundfarbe beliebig markierter Zellen durch einen Klick auf den CommandButton ändern. ZB ich markiere die Zelle A1:B1, klicke auf den Button und die Farbe der Zellen wird zb Rot.

Wer kann mir bitte den Code hierfür geben? Ich bin im Internet leider nicht fündig geworden.

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

Hallo zusammen,

ich würde gerne mit VBA in Excel einen ganzen Ordner (z.B. "C:\Users\Name\Desktop\Test") zippen und das ganze dann in einen separaten Ordner (z.B. Desktop\Archiv) speichern. Am besten wäre es, wenn ich die gezippte Datei noch umbenennen könnte (dass z.B. automatisch ein Zeitstempel vorkommt). Leider hat mir google bis jetzt nur geholfen, wie ich einzelne Datein zippe und meine Änderung auf Ordner hat nicht funktioniert.

Über eine Lösung wäre ich sehr glücklich. Ich nutze Office13 und es wäre super, wenn das ganze über 7zip funktioniert.

Vielen Dank :)

Hi Leute,

ich stehe gerade etwas auf dem Schlauch.

Ich habe einen Bereich aus Excel als Bild in der Zwischenablage:

Range("D100:Z04").CopyPicture xlScreen, xlBitmap

Wie bekomme ich den jetzt in eine Email rein?

  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)

  On Error Resume Next
  With OutMail
    .To = "test@test.com"
    .CC = ""
    .BCC = ""
    .Subject = "This is the Subject line"
    .HTMLBody = RangetoHTML(rng)
    .Display
  End With
  On Error GoTo 0

Hab es schon mit

-Body = SendKeys "^V" probiert aber das scheint nicht zu funktionieren.

In der Zwischenablage ist es. Wenn ich eine neue Mail öffne und Strg+V drücke wird es mir wie gewünscht eingefügt. Nur über VBA kriege ich das nicht hin.

Sorry fürs blöd anstellen und danke schon mal für eure Hilfe.

Chris

Hallo Zusammen, ich habe da ein kleines Problem. Ich habe in Excel VBA eine einfache Funktion erstellt und will diese nun um Tabellenblat abrufen. Leider finde ich die dort nicht. Vor ein paar Minuten ging das alles noch wunderbar.

Muss irgenwas aktiviert werden?

Danke

Ich habe eine Tabelle in Excel erstellt. Nun ist dort ein Button, der auf Knopfdruck ein Makro ausführt, das, wenn die aktuelle entweder B2 oder C6 oder D10 ist, in diese Zelle eine 5 einträgt. Wie kann ich das mit einer If-Anweisung umsetzen (mithilfe von Or-Operatoren)?

Also ich meine so in die Richtung

If ActiveCell = B2 Or C6 Or D10 Then

Active Cell.Value = 5

Else

MsgBox("Das Argument ("5") ist nicht mit der aktuellen Zelle kompatibel.")

End If

Nur dass das oben nie funktioniert, weil ich nicht weiß, wie ich mehrere Zellen als richtig ansehen lassen kann.

Kann mir jemand das richtige Makro zeigen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

Servus zusammen,

in einem Sheet auf der Arbeit habe ich folgendes Problem: In meinem aktiven Tabellenblatt kann in B12 der Inhalt Tablet, Mobile, Video, Desktop oder 0 (oder eben die vorher leere Zelle) vorkommen. Je nachdem was dort steht, soll in in der Zielzelle (J12) der selbe Wert stehen. Folgende Regeln möchte ich damit abdecken: 1) Wenn B12 = 0 dann 0 2) Wenn B12 = Tablet dann J12 = Tablet 3) Wenn B12 = Mobile dann Mobile 4) Wenn B12 = Video dann Video 5) Wenn B12 = Desktop dann Desktop 6) Wenn B12 = leer dann 0

Hier meine Formel: =WENN(B12=0;0;WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("desktop";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("mobile";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("video";B12));"Tablet";"Video"));"Mobile"));"Desktop")))

Sie funktioniert zwar auf den ersten Blick, aber manchmal zeigt es trotzdem etwas falsches an. Tablet statt 0, Dekstop statt Tablet, usw. aber nur vereinzelt und das macht mein darauffolgendes Makro verrückt ^^

Habt ihr eine Ahnung woran das liegen kann?

Danke & Greetz!

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

Hallo,

ich weiß, in verschiedenen Foren gibt es schon Hilfestellungen zu VBA, PDF und Co. - jedoch war nach tagelanger Suche nicht das RICHTIGE dabei, weshalb ich hoffe, dass man mir hier weiterhelfen kann.

Ich möchte, dass das ausgefüllte Formular (Formularfeld wurde per VBA erstellt), welches in Form eines Word-Dokuments vorhanden ist, durch einen Klick umgewandelt wird als PDF und dann als E-Mail (via Outlook) verschickt werden kann.

Ich hoffe, es kann mir jemand weiterhelfen.

Grüße

helppppppppp

Hi, folgende Aufgabe muss ich lösen: Nach Eingabe von zwei Zahlen fragt das Programm ob plus oder minus gerechnet werden muss und gibt dann das entsprechende Ergebnis aus... Ich habe folgende Lösung:

Public Zahl1, Zahl2, Ergebnis As Long

Public Art As String

Sub Zahlen()

Zahl1 = InputBox("Geben Sie die erste Zahl ein: ")

Zahl2 = InputBox("Geben Sie die zweite Zahl ein: ")

Art = InputBox("Sollen die Zahlen addiert oder subtrahiert werden? +/-")

If Art = "+" Then

Ergebnis = (Zahl1 + Zahl2)

Else

Ergebnis = (Zahl1 - Zahl2)

End If

MsgBox ("Das Ergebnis lautet " & Ergebnis & ".")

End Sub

Das Problem ist, dass das Ergebis, wenn Zahl1 & 2 jeweils 1 sind, ja logischerweise 2 sein müsste...allerdings kommt halt 11 raus. Also er fügt die Zahlen einfach zusammen.

Kann mir da jemand helfen?? Danke im Voraus :)

Hallo zusammen,

ich habe mal wieder ein kleines Excelproblem, das eigentlich schon tausendfach in Foren besprochen wurde... ◔_◔ 

Und zwar will ich eine Datei unter neuem Dateinamen speichern, und der Name steht als Referenz der Einfachheit halber in der Zelle A1 des Tabellenblattes Sheet1.

Aus Gründen höherer Flexibilität des Codes habe ich einen geänderten Zielpfad eingebaut (Documents statt Downloads) und die Datei wird auch unter einem anderen Format (xls statt xlsx) abgespeichert.

In A1 würde z. B. für den Dateititel "Stichprobe 1" stehen, somit sollte die Datei am Ende als "Stichprobe 1.xls" abgespeichert sein.

Der Code ist analog https://docs.microsoft.com/de-de/office/troubleshoot/excel/save-file-to-network-drive, jedoch bekomme ich ab dem Schritt ActiveWorkbook.SaveAs den "Laufzeitfehler 9 - Index außerhalb des gültigen Bereichs" angezeigt:

Sub SaveAsFromCell()
  Dim wb As Workbook: Set wb = Workbooks.Open("C:\Users\Vorname Nachname\Downloads\Vorlage.xlsx")
  Dim strFilename As String: strFilename = ActiveSheet.Range("A1").Text
   
  Worksheets("Sheet1").Activate
  ActiveWorkbook.SaveAs Filename:="C:\Users\Vorname Nachname\Documents\" & strFilename, FileFormat:=".xls"
  wb.Close
End Sub

Wo liegt der Fehler?

Danke & schönes Restwochenende :)

Meine Excel Datei besteht aus zwei "Blättern".

• Auf Blatt Nr. 1 habe ich diverse Eingaben gemacht, wobei die Daten fix sind und sich somit nicht mehr ändern werden (Blatt Nr 1 dient als Datenquelle).
• Das aktuelle Datum wird auomatisch farblich hinterlegt.

Was ich jetzt noch bräuchte:

Das lediglich die Daten aus der markierten Zelle auf Blatt Nr. 2 erscheinen. So habe ich immer die aktuellsten Zahlen auf Blatt Nr. 2 stehen.

Zur Verdeutlichung ein kleines Beispiel:

Am 19.04.2014 sollen die jeweiligen Zahlen (hier: 3,92) automatisch auf Blatt Nr. 2 angezeigt werden. (Siehe Bild Nr. 2)

Wäre super wenn mir einer helfen könnte :)

Hallo,

ich habe seit längerem ein Problem mit einem leider nicht mehr funktionierende VBA Script, weil der IE die Internetseite nicht mehr lädt.

Ich habe nach den Anfängen der CoronaPandemie auf

https://interaktiv.morgenpost.de/corona-virus-karte-infektionen-deutschland-weltweit/

die Zahlen ausgelesen und in einer Datenbank gepflegt und diese ausgewertet und konnte eine 10Tages Prognose abgeben.

Die Daten habe ich per Script beschafft, welche die Internetseite im IE aufruft und die Daten dann aus dem HTML-Code liest.

Nur kann man die Seite im IE jetzt nicht mehr öffnen, es lädt nichts mehr.

Gibt es Einstellungen im IE die das beheben?

Gibt es einen anderen Browser der sich mit VBA versteht und steuern lässt?

Hallo,

ich möchte in Excel jedes mal wenn ich die Rechnungs-Vorlage öffne, die nächste Rechnungsnummer eingetragen haben.

Meine Rechnungen sind alle in einem Ordner gespeichert.

Ich habe schon versucht mit VBA ein Script zu schreiben, welches alle Dateien in dem Ordner durchgeht und den Wert aus Zelle B13 nimmt und den höchsten am ende mit +1 in die Vorlage einträgt.

Da bin ich aber leider gescheitert :-)

Vielleicht kennt sich einer von euch da besser aus und könnte mit weiterhelfen.

Vielen Dank im Vorraus,

LG, Julian

Hallo zusammen

Kann man mittels VBA im Word ein Bild an einer bestimmter Position einfügen? Also nicht dort wo der Cursor sich befindet?

Ich möchte nämlich ein Bild am Rand des Blattes einfügen, wo man den Cursor nicht hinstellen kann.

Ich weiss es würde mit Textfeldern gehen, aber dann müsste man ca. 1500 Vorlagen anpassen.

Besten Dank für eure Hilfe

Hallo,

ich habe folgendes Problem: Ich habe meine Exceldatei (Excel 2007 / xlsb-Datei) mit dem Blattschutz geschützt und möchte trotzdem, dass Gruppierungen geöffnet bzw. geschlossen werden können. Das funktioniert auch wunderbar mit der hier gefundenen Lösung:

http://www.office-loesung.de/ftopic60153_0_0_asc.php

Allerdings möchte ich jetzt noch die Spaltenbreite und Zeilenhöhe ändern können, während der Blattschutz aktiv ist. Man kann zwar beim Aktivieren des Blattschutzes den Haken bei „Spalten formatieren“ und „Zeilen formatieren“ setzten, allerdings werden bei der nächsten Öffnung der Datei diese Haken wieder heraus gelöscht. Ich glaube das es aufgrund des oben stehenden Makros nicht funktioniert aber den genauen Grund verstehe ich leider nicht, da ich mich mit dem VBA nicht auskenne und das Makro in dem Link auch nur kopiert habe.

Kann mir bitte jemand helfen und das Makro dementsprechend umschreiben oder mir eine andere Lösung nennen?

Vielen Dank!

Hallo Community,

ich habe ein Makro geschrieben, das auf eine Excel-Datei zugreift. Der Pfad für die Datei steht in meinem Makro drin und ist als String abgespeichert.

Ich möchte aber, weil sich der Name der Excel Datei von Monat zu Monat ändert, dass sich ein Fenster öffnet über das man die richtige Excel Datei auswählt und das dann den Pfad zu dieser Datei in meinem Makro speichert.

Also nicht so wie es bis jetzt ist, dass der Pfad von anfang an drin steht, sondern so dass beim ausführen des Makros ein Fenster geöffnet wird wo man selbst die Datei und somit den Pfad auswählen kann.

Liebe Grüße

Chris

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

 Ich möchte eine Listbox mit Spalten füllen. Es können neue Daten hinzugefügt oder auch gelöscht werden. Habe lange im Internet gesucht. Es gibt bestimmt eine Möglichkeit die Listbox aus den obrigen Zeilen rauszulesen und sie in die listbox zu füllen. Diese Angaben will ich später in eine Datenbank Tabelle MSSQL füllen.

Wie mache ich das am besten/einfachsten? Ich habe mal eine Beispielsdatei hochgeladen. Sage schon jetzt mal "Vielen Dank" für eure Hilfe.

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe(und mein Programm Stört). :/ Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub
   If Target.Value <> "" Then
      Target.Offset(0, 8).Value = Date
   Else
      Target.Offset(0, 8).ClearContents
   End If

End Sub

Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?...

So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.

Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wäre hilfe wirklich schön :)

mfg Dennis

Ich möchte einige zelle so "programmieren", dass sie sich z.b. nach einer woche leeren / löschen.

habe viel im internet und auf youtube gesucht aber nichts entsprechendes gefunden.

es würde schon helfen wenn ich

Sub weekly()

Range ("F2:F6") .Clear

End Sub

mit einem zeitstempel oder so versehen kann.

andere lösungen sind auch wilkommen

Hi ich habe ein VBA geschrieben, welches immer wenn in Spalte 14 "Topic" steht, dort eine Leerzeile einfügen soll und alles um eine Zeile weiter nach unten schieben soll.

Dies funktioniert aber nur, wenn ich genau diese Zeile eingeben. Kann mir jemand daraus eine Schleife bauen.. ich bekomme es nicht hin.

If ActiveSheet.Cells(4, 14).Value = Tabelle11.Cells(2, 2) Then
'Die 4 hier ist von mir eingegeben, müsste wahrscheinlich durch eine Variable getauscht werden
'Tabelle11.Cells(2,2) ist der Begriff "Topic"

ActiveSheet.Rows(4).Insert

End If

Vorher-Nachher Bilder:

Vorher:

Nachher:

Hallo zusammen,

ich habe für meine Arbeit so eine Art "Quiz" mit Excel Messageboxen erstellt.

Dem Anwender erscheinen Messageboxen mit Fragen und er kann dann bei jeder Frage auf Ja oder Nein klicken. Je nachdem, ob er auf Ja oder Nein geklickt hat kommt dann eine weitere Frage, die wieder mit Ja oder Nein zu beantworten ist und so weiter. Am Ende erscheint dann eine Messagebox mit einem Ergebnis.

Die Anwendung funktioniert auch soweit, allerdings kann ich sie nur direkt im VBA Editor starten. Was muss ich einfügen, damit die Messageboxen sofort starten, wenn der Anwender die Excel Datei öffnet?

Ich habe schon versucht, oben im Code Sub Workbook_Open () einzufügen, aber das hat nicht funktioniert.

Ich wäre dankbar für Tipps! Bitte leicht verständlich erklären, ich bin kein IT-ler :)

Ich muss eine Excel-Tabelle erstellen, wobei einige Benutzer eine bestimmte Spalte sehen können und andere wiederum nicht.

Den Benutzern, die die Spalte nicht sehen dürfen, darf es auch nicht möglich sein, die Spalte einzublenden.

Ich bin leider völlig unerfahren mit VBA und habe auch nach langem Suchen im Internet keine passende Lösung gefunden.

Sollte eine Lösung per Makro möglich sein ist es ebenfalls ganz wichtig, dass die Benutzer nicht die Möglichkeit bekommen das Makro zu deaktivieren.

Ich bedanke mich schon mal ganz herzlich!!!

LG Hafenhilde

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

Ich habe ein kleines Schere Stein Papier Programm gebaut und will jetzt, dass wenn ein Knopf gedrückt wird das Ergebnis des Computer Gegners angezeigt wird und nach einer Sekunde wieder entfernt wird. Ich habe alles fertig soweit, dass einzige, was ich noch brauche ist die Sekunde Wartezeit. Hier ist der Code:

Sub Submit_Button()
[A1] = "GO"
Application.OnTime Now + TimeValue("00:00:01"), "Spiel"
[A1] = ""
End Sub

Hallo, ich mal wieder :) Ich habe folgendes Problem: in meinem excel Makro verschieben sich die commandbuttons. "Seitenverhältnisse sperren" und "nur von zellposotion abhängig" hab ich schon eingestellt. Zusätzlich bekomme ich die Buttons nicht auf die gleiche Größe.

Die Frage wäre, wie man das am besten in den Code des Buttons integriert?

Wichtig wäre wie erwähnt Größe und Position des Buttons festzunageln.

Guten Tag

Ich will mittels eines Makros eine Excel in eine Ics datei Kopieren. Ich habe folgende Informationen in der Excel Datei: Uhrzeit und Datum.

Ich weiss jedoch nicht, wie ich die Informationen in eine Ics Datei umwandeln kann...

Kann mir einer dabei helfen?

Ich danke bereits im Vorraus

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

  Sub Test()

  ActiveCell.Offset(1, 1) = "1"

  End Sub

  Function Test()

  ActiveCell.Offset(1, 1) = "1"

  End Function

Hallo liebe Leute,

ist es grundsätzlich möglich in Excel durch VBA eine UserForm zu generieren, die nichts anderes tut, als in dem Fenster eine Webseite darzustellen bzw. diese zu öffnen?

Ich möchte nicht, dass der Explorer sich öffnet und die Webseite aufgerufen wird. Das weiß ich schon. Vielen Dank!

Hallo nochmal

Ich habe vorhin bereits eine ähnliche Frage gestellt. Jetzt hat sich eine weitere Frage ergeben. Ich habe ein Excelfile mit 2 Tabellenblättern (Inhalt und Template). Beim Ausführen eines Makros auf der Seite "Inhalt" soll nun folgendes geschehen:

Tabellenblatt "Template" wird kopiert. Dieses neue Blatt wird nach dem Inhalt der Zelle C8 des Tabellenblatts "Inhalt" benannt.

Wäre super, wenn mir jemand ein VBA dazu machen könnte :) Vielen Dank im Voraus!

Hallo Com,

mal wieder eine Excelfrage von meiner Seite aus.

Ich möchte in einer Zelle einen Wert eingeben (Zelle befindet sich auf der Startseite meiner Excelanwendung). Wenn ich die Eingabe dann mit Enter bestätige, soll er mich direkt in die nächste Arbeitsmappe weiterleiten, wohin der Wert dann übernommen wurde.

Ich vermute das es nur eine VBA-Anwendung geht und leider bin ich darin noch nicht so firm. Also bitte ich mal ganz nett um eure Hilfe :D

MfG und Danke schon einmal.

platin90

Liebe Community,

ich habe mir eine Formel geschrieben um Werte aus einer anderen Excel Datei in meine Haupt Excel Datei einzufügen. Leider muss die Datei aus der ich die Daten haben will immer geöffnet sein. Wenn man Daten aus sehr vielen Excel Dateien braucht wird das etwas stressig. Nicht nur für mich, sondern auch für den PC.

Formel:

=(WENNFEHLER(SUMMEWENNS(INDIREKT("'[Personio "&$I$2&".xlsx]Stundenübersicht"&"'"&"!$G:$G");INDIREKT("'[Personio "&$I$2&".xlsx]Stundenübersicht"&"'"&"!$A:$A");B4;INDIREKT("'"&"["&"Personio "&$I$2&".xlsx]Stundenübersicht"&"'"&"!$B:$B");C4);0))*24

Die Frage ist nun wie baue ich die Formel um, damit ich die Datei nicht öffnen muss?

Eventuell VBA? Damit kenne ich mich aktuell leider null aus ^^

Würde auch einen Kaffee spendieren wenn mir das jemand richtig umbaut :)

Vielen Dank im Voraus!

Ich kann in Python gut programmieren und bin sehr gut in Excel allgemein (VBA ausgenommen), aber mit VBA habe ich null Erfahrung. In meinem Traumjob werden "Sehr gute MS-Office Kenntnisse inklusive VBA-Programmierung" gefordert.

Wie lange braucht man, bis man "sehr gut" ist in VBA? Dauert das genauso lang wie bei "normalen" Programmiersprachen wie Python? Oder geht es schneller?

Hallo

Ich überarbeite zur Zeit mein Haushaltsbuch und habe jetzt folgendes Problem, wofür ich eine Lösung bräuchte.

Ich möchte (siehe Bild - Feste Ausgaben), wenn eine Zeile frei ist, der gesamte untere Bereich automatisch um eine Zeile nach oben verschoben wird.

Beispiel Bild in E7-H7 soll dann E8-H7, E8-H8 soll dann E9-H9 stehen usw.

bzw. wenn zwischen den Zeilen eine leere Zeile frei ist, soll der Bereich der unter der leere Zeile stehen z.B. auch um 1 Zeile automatisch nach oben verschoben werden.

Beispiel Bild: Der gesamte Bereich von E12-H12 - E16-H16 soll um 1 Zeile nach oben verschoben werden Bezieht sich aber auch darauf, wenn ggf. mehrere Zeilen untereinander frei sind

Bezieht sich aber nur auf die Tabelle "Feste Ausgaben". Die Reihenfolge soll nicht verändert werden (z.B. keine Sortierung von A-Z)

Falls relevant Desweiteren stehen in allen Zellen (außer Spalte Datum) Formeln, da die Daten die in der Tabelle stehen aus einer anderen Tabelle übernommen werden. Diese müssen beim verschieben ja eigentlich nur gelöscht bzw. überschrieben werden.

Danke für die Hilfe im vorraus

Hallo zusammen

Ich würde gerne ein Makro ausführen, immer wenn ich das Tabellenblatt wechsle.

Also wenn ich bspw. von Tabelle1 in Tabelle2 wechsel, soll das Makro ausgeführt werden

Bis jetzt habe ich nur eine Möglichkeit gefunden, bei der bei jedem Zelleneintrag das Makroausgeführt wird. Das ist viel zu häufig und macht alles langsam. Super wäre es, wenn es erst beim WEchsel der Tabelle stattfindet.:

mein bisheriges:

Private Sub Worksheet_Change(ByVal Target As Range)

Frohes Neues liebe Community,

ich möchte in meinem VBA-Programm ein Userform direkt durch einen Befehl im Code schließen. Auf dem Userform befindet sich ein Button, welcher das Programm startet, dass am Ende eine Messagebox öffnet und nebenbei zum Schluss das Userform schließt. Sicherlich ist es ein ganz einfacher Befehl, aber ich bekomme es einfach nicht hin. Unloadme hat nicht funktioniert.

LG Patrick

Würde gerne ein Drehfeld in Excel programmieren ich finde im Internet immer diese Codes.

Private Sub SpinButton1_SpinDown()
Range("A1") = Range("A1") - 0.1
End Sub

Private Sub SpinButton1_SpinUp()
Range("A1") = Range("A1") + 0.1
End Sub 

Aber wie gebe den Code ein? Wenn ich auf Code anzeigen kommt dann kommt etwas mit SpinButton_Change und es macht wohl wenig Sinn das dort einzugeben. Und einzeln kann ich die Felder nicht aussuchen.

Kann mir jemand helfen? Gruß

Guten Abend,

Ich brauche Hilfe bei der Erstellung eines Makros in Excel:

Die Excelmappe besteht aus mehreren Tabellenblättern. Eine Datenbank und ein übersichtlicheres Datenblatt.

Ich möchte es hierbei ermöglichen, dass der Anwender über die Übersicht die Datenbank abändern kann.

Bei einem Klick soll folgendes geschehen:

Der Wert einer Zelle der Datenbank soll mit dem Wert aus R18 überschrieben werden. Die Spalte der Datenbank ist fest (B).

Die Zeile ergibt sich aus der Nummer des Datensatzes (wird in R10 angegeben) +1. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Wie würde die Formel aussehen, wenn statt eines Ersetzen des Inhalts, der Wert aus R18 hinzuaddiert wird?

Bsp Datenbank!B10(neu)=R18+Datenbank!B10(alt)

Gibt es eine Möglichkeit, diese über ein Makro auszuführen?

Vielen Dank!

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

Hi, ich würde gerne immer die Zellverknüpfung eines Kontrollkästchens auf die überliegende Zelle beziehen. Jetzt habe ich ein Makro gefunden, welches scheinbar immer die rechte Nachbarzeile zuweist, ich hätte aber gerne die darüberliegende, wie muss ich dieses Skript anpassen?

Option Explicit 
Sub
 zellverknuepfung()
Dim Cb As CheckBox
For Each Cb In Tabelle1.CheckBoxes
Cb.LinkedCell = Cb.TopLeftCell.Offset(0, 1).Address
Next Cb
End Sub

Habe ca. 100 Kästchen und finde das per Hand sehr mühsam.
Bin froh um jeden Tipp :)

Hallo,
Ich habe eine Tabelle, in der ich die erste Spalte auf Duplikate überprüfen möchte.
Dazu sorteiere ich diese Spalte (alles Zahlen) in aufsteigender Reihenfolge und möchte nun die "Zählenwenn"-Funktion verwenden, um die Duplikate zu zählen.
Da die Spalte ja sortiert ist kann ich sicher sein, dass gleiche Zahlen immer übereinander liegen, sodass ich in der "Zählenwenn"-Funktion folgendes haben möchte:

=ZÄHLENWENN(Bereich;Inhalt=Inhalt der Zelle oberhalb)

Die Zählenwennfunktion durchläuft ja alle Zellen im Bereich, weshalb (theoretisch) die Funktion "Adresse()" mit "Zeile()" und "Spalte()" als Parameter die aktuelle Zelle referenzieren/sich darauf beziehen.
Das würde bedeuten, dass ich in der "Zählenwenn"-Funktion als zweiten Parameter eigentlich nur folgendes eingeben müsste:

Adresse(Zeile()-1;Spalte())

Funktioniert nicht.
In einigen Beispielen habe ich gesehen, dass Bezüge auf andere Zellen in der "Zählenwenn"-Funktion mit einem "&" beginnen, also habe ich folgendes versucht:

=ZÄHLENWENN(A2:A3000;&ADRESSE(ZEILE()-1;SPALTE()))

Wieder kein Erfolg.

Deshalb die Frage: Wie kann ich in der "Zählenwenn"-Funktion in Excel mich auf eine Zelle, relativ zur aktuellen beziehen? Das hier genannte Beispiel wird sicher auch anders zu lösen gehen, aber den genannten relativen Bezug (also relativ zur Aktuellen Zelle) könnte man in der Zählenwenn schon öfters brauchen. Danke und lg, Springrbua

Ich sollte haufenweise Werte einzeln nacheinander von Excel in ein SAP Texfeld kopieren, weiss jedoch nicht, wie ich dies automatisieren kann, da der Befehl leider immer so ausschaut: ... session.findById("wnd[0]").resizeWorkingPane 115, 38, False

session.findById("wnd[0]/usr/ctxt").Text = "525445"

session.findById("wnd[0]/usr/ctxt").caretPosition = 6

session.findById("wnd[0]").sendVKey 0

anstatt bei .Text="525445" sollte wahrscheinlich irgend ein paste Befehl stehen.

Kann mir irgendwer helfen bitte?

Ich soll für einen Bekannten in der Feuerwehr ein Makro zu einer Excel Liste schreiben. Konkret: - Wenn in Spalte B ein "A" für Atemschutz steht, soll die Zeile rot hinterlegt werden. Das Makro dazu habe ich auch schon geschrieben. Das Problem: Ich müsste dieses Makro jetzt für jede Zeile neu kopieren und abändern. Gibt es eine Möglichkeit das Makro für jede Zeile zu wiederholen?

Tabelle und Makro anbei.

Ich möchte mehrere Zip-Ordner (alle in einem Ordner) entpacken lassen. Diese haben alle ähnliche Namen (Stundendaten...). Sie sollen nach dem entpacken die Zip Ordner ersetzen, sodass ich in dem Ordner dann nur noch die entpackten Ordner und keine Zip mehr habe.

Danke schonmal im voraus :)

Hallo,

gibt es die Möglichkeit mittels Excel Makro alle Spalten außer folgende mittels eines Buttons auszublenden:

A – E

H – J

M – R

W – Y

AA

AC

AE

AZ – BF

Habe bereits etwas ähnliches, funktioniert aber klarerweise nur mit dem bereich von bis:

rivate Sub ToggleButton1_Click()

If Columns("D:E").EntireColumn.Hidden = False Then

  Columns("D:E").EntireColumn.Hidden = True

  ElseIf Columns("D:E").EntireColumn.Hidden = True Then

    Columns("D:E").EntireColumn.Hidden = False

End If

End Sub

Danke

Hi,

ich möchte mithilfe einer VBA Schaltfläche eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler

With ThisWorkbook.Worksheets("Tabelle1").Activate

Range("K20").Value = "=WENN(B25="4:3";E10/0,8;WENN(B25="16:9";E10/0,87;"Fehler"))"

End With

End Sub

Wie kann ich in einer Zeittafel in Excel eine mitlaufende Hilfslinie erstellen? Geht es auch ohne VBA? Beispiel siehe Bild. Die Linie ging mal automatisch mit dem aktuellen Datum mit, jetzt muss man manuell verschieben.

Wenn ich bei mir in Excel 2007 die Tastenkombination Alt-Enter drücke zeigt er rechts immer den "Recherchieren"-Dialog an. In älteren Excel-Versionen macht er das nicht.
Wie kann man das verhindern?
Gibt es irgendwo einen Dialog wo man die Tastatur-Belegung ändern kann?

Wie kann ich den Inhalt einer Zelle an eine andere Zelle Übertragen?

Genauer möchte ich in bspw. Zelle A5 einen Wert eintragen, der dann zum Wert in Zelle addiert wird. Dann soll der Wert in Zelle A5 gelöscht werden und für die nächste Eingabe bereitstehen.

Ist wahrscheinlich ein VBA Problem und da ich in dieser Materie noch nicht so tief drinstecke seid nun ihr gefragt. Bitte um Hilfe

Hallo zusammen,

ich suche nach einer Zeile Code, mit der ich dynamisch die gesamte Tabelle auswählen kann.

Bislang habe ich verwendet:

Range("A1:U76").Select

Nun kann die Tabelle aber auch mehr oder weniger als 76 Zeilen haben (wenn sich die monatlichen Werte ändern).

Daher hatte ich an folgendes gedacht:

Range("A1:U" & ???).Select

(Zum inhaltlichen Verständnis: Danach werden Teilergebnisse hinzugefügt, und damit das funktioniert, ist die Tabelle "nicht intelligent/formatiert", also kein Listobject. Dafür habe ich allerdings schon funktionierenden Code.)

Die Frage ist jetzt, was ist ???.

Meine bisherigen Experimente waren leider nicht erfolgreich, deswegen frage ich nach einer Universallösung nach. Gerne neu aufschreiben.

Falls dies noch wichtig ist: Aufgrund der Datenlage sind nur die Spalten A-E vollständig mit Inhalten gefüllt, die weiteren Zellen weisen aufgrund der Datenlage Leerzellen ("null") auf.

Danke schon mal im Voraus.

Mithilfe eines Makros in VBA erstelle ich ein Rechteck an einer bestimmten Stelle, was wiederum dann beim nächsten Öffnen der Datei an einer anderen Stelle erstellt wird. Dass dann nicht nach einer gewissen Zeit das Blatt voll ist mit Rechtecken, würde ich gerne bei bei Start eine Range nach diesem Rechteck durchsuchen und löschen, bisher mache ich das so:

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
           If shp.Name = "HeuteRechteck" Then
              shp.Delete
           End If
Next

Hier bekomme ich allerdings "Objekt unterstützt diese Eigenschaft oder Methode nicht", was womöglich an der Benennung liegt. Benennen u.a. tue ich das Rechteck so:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 12, 795).Select
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill.Shapes(1)
    .Visible = msoTrue
    .ForeColor.RGB = RGB(146, 208, 80)
    .Transparency = 0.5
    .Name = "HeuteRechteck"

Mach ich beim Benennen was falsch?

Habt ihr irgendwelche Ideen oder Ansätze?

Moin,

ich brauche ein Makro um folgendes zu Erstellen.

Ich möchte ein Excel Blatt Bsp. 10 mal Drucken, dort soll beim Drucken immer die fortlaufende Zahl stehen. Bisher tragen wir die Zahlen immer Manuell ein und dies ist zu arbeitsaufwendig :-( Wir sind jetzt auf Blatt 770, wenn ich jetzt sofort 10 Seiten hintereinander Drucke soll das letzte Blatt Seite 780 in der Zelle L1 stehen.

Ich hoffe ich konnte mich gut genug ausdrücken.

Ich danke euch für die Hilfe :-)

Bin absoluter VBA-Neuling! Ich möchte von einem Arbeitsblatt "Tabelle1" jeweils 2 Zellen aus Spalte B summieren und in "Tabelle2" Spalte B anzeigen lassen. Also quasi Tabelle1(B1+B2) in Tabelle2(B1), Tabelle1(B3+B4) in Tabelle2(B2) und so weiter. Wie geht das?

Hallo,

seit einem halben Jahr arbeite ich nebenberuflich als VBA für die deutsche Vermögensberatung. Nun habe ich mich wegen privaten Gründen mit meinem Vermögensberater verstritten und eine weitere Zusammenarbeit ist derzeit nicht gewährleistet. Trotz allem möchte ich weiter bei der DVAG bleiben.

Kann ich ohne Probleme mir einen neuen Vermögensberater suchen und bei diesem weiter machen sowie auch "meine" Kunden welche ich zur DVAG geholt habe mitnehmen?

Wie verhält sich das ganze, wenn mich der Vermögensberater kündigt oder schlecht dastehen lässt und seitens der DVAG mir eine Kündigung ausgesprochen wird?

Ich habe Spalten mit unterschiedlicher Länge: A geht bis Zeile 9 hat dann eine Leerzeile und dannvon 11 weiter bis 23, B geht bis 18, C bis 25.

Ich möchte aber immer die erste leere Zelle in A ermitteln, also im Beispiel die Zeile 10 Das geht natürlich mit einer For Next Schleife, aber es soll auch eine einfachere Formel dafür geben. Und ich brauche nur die Nummer der Zeile (Row)

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

Ich möchte mithilfe von VBA eine bedingte Formatierung (Hintergrundfarbe) von einzelnen Zellen(jede zweite im Bereich von 2 - 34) innerhalb einer Spalte durchführen. Ist der Wert der entsprechenden Spalte gleich des Wertes in der Zelle links daneben (B), soll die Zelle einen grünen Hintergrund bekommen, ansonsten gelb. Die Spaltenbezeichnungen wollte ich mithilfe einer For-Schleife hochzählen lassen. Wie kann ich dies möglichst einfach realisieren?

Ich bin gerade dabei VBA zu erlernen und dementsprechend noch unerfahren.

Hallo, ich habe folgenden Code:

ComboBox1.RowSource = Worksheets("tabelle3").Range("intelligentetabelle[spalte1]").Address

Diesen Code führe ich auf einer Userform auf einem anderen Tabellenblatt, dem ersten, aus. Das Problem ist, jedes mal zieht sich die ComboBox die daten aus dem ersten Tabellenblatt und nicht aus dem dritten der intelligenten Tabelle. Wie kann ich das beheben?

Danke!

Ich habe eine Exceltabelle in der ich durch Zahleneingabe, bestimmte Zellen in den Indexfarben einfärben kann. Ich gebe eine Zahl ein und die Zelle und alle damit verbunden Zellen oder Zellen, welche die gleiche Funktion vorweisen müssen färben sich.

Nun gibt es nur 56 Indexfarben, welche zudem auch noch ziemlich grelle Farben sind. Ich hätte gerne ein größeres Spektrum an Farben, welches ich durch die RGB Farben bekommen kann. Nur weis ich nicht wie ich dies jetzt in meine Funktion einsetzen soll.

Ich habe nur ein Feld um eine Zahl reinzuschreiben und nicht 3, also ein Feld für R, eins für G und eins für B ist nicht umsetzbar.

Anbei meine VBA Programmierung:

Sub Farbe_Topic()

' Farbe_Topic Makro: Hier wird jetzt das "Status-Feld" in der gleichen Farbe formatiert, wie die, die auch in den ARbeitsblättern gewünscht ist

' Tastenkombination: Strg+w

  Range("B2:C2").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(2, 3) ' In dieser Zelle steht zum Beispiel eine 3 --> somit Farbe rot

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(2, 11)

  End With

  Range("B3:C3").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(3, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(3, 11)

  End With

  Range("B4:C4").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(4, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(4, 11)

  End With

  Range("B5:C5").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(5, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(5, 11)

  End With

  Range("B6:C6").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(6, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(6, 11)

  End With

  Range("B7:C7").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(7, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(7, 11)

  End With

  Range("B8:C8").Select

  With Selection.Interior

    .Pattern = xlSolid

    .PatternColorIndex = xlAutomatic

    .ColorIndex = Tabelle11.Cells(8, 3)

    .TintAndShade = 0

    .PatternTintAndShade = 0

  Selection.Font.ColorIndex = Tabelle11.Cells(8, 11)

  End With

Vielleicht hilft dieses Bild noch dabei:

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

• Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden

• Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden

• Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.

• Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.