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

Guten Abend zusammen.

Kurze Frage:

Wie kann ich so ein Uhrzeit-Rechner in Excel erstellen? (ohne VBA und großes Design)

Danke im Voraus!

Mit freundlichen Grüßen: Robin | TechBrain. :)

Hallo zusammen,

Ich habe ein Problem mit Makros in Excel.

Meine Tabelle beinhaltet mehrere Spalten, die durch einen VBA-Code Mehrfachauswahl in Dropdown-Listen möglich machen.

Zur Benutzerfreundlichkeit habe ich versucht über Schaltflächen, denen ich Makros zugewiesen habe, Filter einzubauen.

Die Makros habe ich nicht geschrieben, sondern versucht über die Aufzeichnungsfunktion zu definieren.

Die Filter funktionieren aber leider nicht wirklich.

Das Problem ist, dass wenn ich in der Spalte "Themen" versuche über die Schaltfläche "Kommunikation" zu filtern, werden mir Zeilen angezeigt in der nur "Kommunikation" steht, aber nicht z.B. "Kommunikation", "Qualität" oder "Kommunikation", "Kosten", "Sonstige".

Kennt sich hiermit jemand aus?

Hallo zusammen,

Ich habe ein Excel-Dokument mit mehreren Markos und einem visual basic for applications-Code für mein Unternehmen erstellt. Dadurch, dass auf dieses Dokument alle Abteilungen zugreifen können müssen, wird es in einem Dokumentenablagesystem abgelegt. Ich habe es schon als "Microsoft Excel-Arbeitsblatt mit Makros" gespeichert. Trotzdem sind die Makros und der VBA-Code für alle anderen nach Öffnen nicht aktiv. Kennt hier jemand einen Trick?

Danke!

Wie kann ich dieses Makro schneller und effektiver machen und wie bekomme ich es hin, dass es beim Neustart nicht schon wieder die Werte erkennt, die schon einmal  dran waren? Sodass die 50 nach dem ersten Mal Abspielen des Sounds ignoriert wird.

Code:

Sub PlaySound()
  Dim ws As Worksheet
  Dim rng As Range
  Dim cell As Range
  Dim goals As Long
  Dim soundFile As String
  Dim thresholds As Variant
  Dim i As Integer
  Set ws = ThisWorkbook.Worksheets("Spielplan")
  Set rng = ws.Range("O1:O" & ws.Cells(ws.Rows.Count, "O").End(xlUp).row)
  soundFile = "Sound_pfad.mp3"
  'Array of threshold values
  thresholds = Array(50, 100, 150, 200, 250, 300, 350, 400, 450, 500,550,600,650,700,750,800,850,900,950,1000)
  Do While True 'Endlosschleife hinzugefügt
    For Each cell In rng
      If IsNumeric(cell.Value) Then
        goals = goals + cell.Value
        'Check if goals is equal to any of the threshold values
        For i = LBound(thresholds) To UBound(thresholds)
          If goals = thresholds(i) Then
            Application.ScreenUpdating = False
            Application.EnableEvents = False
            ActiveSheet.OLEObjects.Add(Filename:=soundFile, Link:=False, DisplayAsIcon:=False).Select
            Selection.Verb Verb:=xlPrimary
            Selection.Delete
            Application.ScreenUpdating = True
            Application.EnableEvents = True
          End If
        Next i
      End If
    Next cell
    'Verzögerung hinzugefügt, um die CPU-Auslastung zu reduzieren
    Application.Wait (Now + TimeValue("0:05:00"))
  Loop
End Sub

Moin,

Ich habe eine Excel-Tabelle angelegt. Ihr seht einen Teil auf dem Bild. Nach dem Zahlenwert in der rechten Hälfte werden die Zeilen geordnet, allerdings nur im grünen Bereich. Der Rest wird nicht geordnet. Wie erweitere ich den Bereich? Ich würde gerne alle Zeilen filtern können, da auch zukünftig noch mehr Zeilen dazukommen werden.

Hallo zusammen,

Ich versuche gerade ein Excel-Dokument zu erstellen, bei dem eine Mehrfachauswahl aus Dropdown-Listen möglich ist. Das heißt aus einer Liste sollte es möglich sein mehrere Werte anzuwählen. Das habe ich auch mit dem untenstehenden VisualBasic-Code gemeistert. Allerdings habe ich erstens das Problem, dass auch eine Mehrfachauswahl des immer gleichen Wertes möglich ist. Theoretisch könnte also in einer Zelle x-mal derselbe Werte auftauchen. Dies soll natürlich nicht möglich sein. Bei Doppelauswahl desselben Wertes soll dieser aus der Zelle wieder verschwinden.

Mein zweites Problem ist, dass ich bislang nur 2 zwei Dropdown-Listen mit Mehrfachauswahl eingefügt bekomme. Sobald ich eine dritte Spalte versuche zu implementieren, bekomme ich eine Fehlermeldung für meinen Code.

Dadurch, dass ich mich mit dem Ganzen nicht so wirklich auskenne, wäre es sehr nett, wenn mir jemand helfen könnte.

Danke!

Bisheriger Code:

Private Sub Worksheet_Change(ByVal Target As Range)

** Mehrfachauswahl über DropDown-Liste

'** Einfügen im Code-Container des betreffenden Arbeitsblattes

'** Dimensionierung der Variablen

Dim rngDV As Range

Dim wert_old As String

Dim wertnew As String

'** Errorhandling

On Error GoTo Errorhandling

'** Mehrfachauswahl im definierten Bereich "Abteilungen" und "Themen" (Bsp. J2:J2000, I2:I2000) durchführen

If Not Application.Intersect(Target, Range("J2:J2000", "I2:I2000")) Is Nothing Then

 '**Range definieren

 Set rngDV = Target.SpecialCells(xlCellTypeAllValidation)

 If rngDV Is Nothing Then GoTo Errorhandling

 '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen

 If Not Application.Intersect(Target, rngDV) Is Nothing Then

   Application.EnableEvents = False

   wertnew = Target.Value

   Application.Undo

   wertold = Target.Value

   Target.Value = wertnew

   If wertold <> "" Then

     If wertnew <> "" Then

       Target.Value = wertold & ", " & wertnew

     End If

   End If

 End If

 Application.EnableEvents = True

End If

Errorhandling:

Application.EnableEvents = True

End Sub

Hallo, ich möchte wissen wie ich einen Wert einer Zelle um eins erweitere, in dem ich in eine andere Zelle immer wieder in einer anderen Zelle ein "+" oder so eintippe.

Um zu wissen was ich meine, lässt sich das mit einen Programmcode darstellen.

if(C1=="+")
{
  B1++;
}

Guten Abend zusammen.

Ich baue mir eine Lebensmittel Datenbank in Excel auf die bisher 10.000 Lebensmittel haben soll. Allerdings möchte ich nicht ständig alle ID Nummern von Hand eingeben.

Wie kann ich das Automatisieren das überall von 1-10.000 die nächsten Nummern dran stehen?

Hinweis:

ID 1 steht in Spalte A2 da in A1 diverse Überschriften vorhandenen sind.

Vielen Dank im voraus.

Mit freundlichen Grüßen

Robin | TechBrain. :)

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!

Hallo zuammen,

Ich habe mir für einen Sanitätsdient mit Excel ein kleines Tool gebaut um ein Einsatztagebuch zur Dokumentation zu führen.

In der linken hälfte tauchen durch Ausführen der Farbigen Schaltflächen bestimmte kurz Meldungen auf, wie abgebildet.

Ich möchte in der Spalte D einen automatischen Zeilenumbruch, ohne das sich die Position der verschiedenen Farbigen Schaltflächen und Überschriften der Schaltflächen ändert. Das ganze kann auch gerne Zellen unabhänig sein. Hat jemand eine Idee?

Grüße und Danke im vorraus

Guten Tag zusammen.

Wie manche wissen arbeite ich an einem Projekt in MS Excel das auch einen eigenen Nährwertrechner beinhaltet.

Nun ist es so das ich nicht weiss wie ich diese Funktion einfügen kann das man auch ein Lebensmittel mit "Stück" auswählen kann. Hierfür kenne ich leider die Formel nicht. Ich hätte das auch gerne im Dropdown Menü auswählbar. Und dieses "Stück" soll mit den Nährwerten aus der Datenbank 1:1 Identisch sein so wie bei Yazio woher auch dieser Screenshot stammt.

Außerdem möchte ich auswählen können wie viel Stück es sind. Diese Angaben sollen dann zu dem entsprechendem Lebensmittel passen.

Kann mir da vielleicht wer weiterhelfen? Wenn möglich ohne VBA.

Danke im Voraus.

Liebe Grüße

Robin | TechBrain. :)

Hi, ich hab folgendes Problem. Und zwar hab ich eine Excel Tabelle mit Stunden der Form 7.50, 1.25, 8.00, usw. und möchte diese aufsummieren. Allerdings funktioniert die Summe nicht und es kommt immer 0 raus. Dachte es geht über "formate cells", hat aber soweit nicht geklappt... Region settig ist German (Germany).

Danke für alle Antworten!

Hallo zusammen,

ich soll ein Formular erstellen, bei welchem nach Aktivierung des Kontrollkästchens (Formularsteuerelement) weitere Zeilen eingeblendet werden, wie bspw. Tabellen Text oder weitere Kontrollkästchen.
Die Nutzer des Formulars sollen beim auswählen (Haken setzen) des jeweiligen Kontrollkästchens immer nur die relevanten Felder angezeigt bekommen.

Ich habe mir jede Menge Tutorials angeschaut zum Thema Formulare erstellen und VBA jedoch noch nichts wirklich gefunden. Vor allem aber auch nichts zu dem Thema: Kontrollkästchen Auswählen und dadurch Zeilen einblenden bzw. beim abwählen wieder ausblenden.
Ich würde mich sehr freuen wenn mir jemand die Vorgehensweise erklären könnte oder vielleicht sogar einen Code für so etwas hätte.

Bin langsam echt am verzweifeln :(

Vielen dank im Voraus !

Wie aufwändig ist es als nicht-Informatiker gewisse Daten aus einer Exceltabelle zu extrahieren? Um meine Situation zu beschreiben ich habe eine Excel Tabelle mit sehr vielen unterschiedlichen Spielen (Namen), das Genre zu dem das Spiel gehört und einem Wert. Dieser Wert ist immer unterschiedlich und wird aus mehreren Faktoren zusammenaddiert, aber das ist glaube ich irrelevant. Was ich nun möchte ist erstens eine neue Tabelle zu erstellen, wo die Spiele nach der Größe ihres Wertes von oben nach unten sortiert werden und zweitens mehrere Tabellen erstellen die unterschiedliche Genres darstellen und diese sollen dann automatisch auf meine erste Tabelle zugreifen und alle Spiele die in ihr Genre fallen von oben nach unten mit den höchsten Werten auflisten. Der Name des Spieles soll immer dabei stehen.

Wenn das zweite zu aufwändig ist, würde ich auch einfach selbstständig die Genres sortieren, so viel kenne ich mich nämlich nicht mit Informatik aus. Dann müsste ich nur wissen wie man mehrere Werte von oben nach unten sortiert angefangen mit dem höchsten wert.

Hallo,

im Informatikunterricht stehe ich vor dem Problem aus einer Zelle mit einem langen Text, nur jedes vierte Zeichen in z.B eine andere Zeile kopieren.

Gibt es dafür eine Formel oder muss ich das ganz mühsam rausschreiben.

Liebe Grüße

gespielt wird 2vs2, der Partner und die Gegner werden jede Runde neu ausgelost. Jedoch soll man nicht den gleichen Partner nochmal bekommen. Es gibt insgesamt 64 Spieler. Heißt eine Matrix mit 4 Spalten und 16 Zeilen. Hat jemand eine Idee wie ich es umsetzen könnte oder hat eine ähnliche Software schon mal programmiert und könnte sie mir zukommen lassen als Vorlage? Es soll so wenig wie möglich VBA benutzt werden.

Also um es in ein Beispiel zu setzen, ich möchte das jede einzelne Zeile so formatiert ist, das sie zwar leer steht, aber wenn ich eine Zahl dort rein schreibe, sie automatisch mit einer Formel berechnet wird.

Das soll den Sinn haben, das ich jede einzelne Zeile eine Gewichtung gebe z.B. 5. Wenn ich dann in die Zeile z.B. 10 eintrage, dann diese Summe automatisch mit 5, der Gewichtung, multipliziert wird und dort 50 steht.

Funktioniert diese Methode über Excel? Ich kenne das in Excel nur so, das ich zwei Zeilen miteinander addieren kann. Die stehen dann aber jeweils in zwei unterschiedlichen Zeilen (Tabellen) und in der dritten steht dann eben das was ich möchte. Aber ich möchte eben das alles in einer Zeile passiert und nicht über mehrere Tabellen.

Hallo zusammen,

mir geht es darum, dass eine Excel Datei nach einer bestimmten Zeit unbrauchbar wird / sich selber zerstört. Ist das möglich?

Vielen Dank im Vorraus.

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

Hallo zusammen,
gibt es eine Möglichkeit in Excel in einer Tabelle, das eine Funktion (Formel) automatisch mit "runtergezogen" wird, desto größer die Tabelle wird ?

Hey, es folgt eine etwas kompliziertere Frage:

Ich habe 2 Excel-Tabellen. Eine Pivot Tabelle und eine Tabelle, in die ich bestimmte Daten einpflegen möchte.

Hierbei muss ich Daten aus der Pivot Tabelle finden. Ich muss anhand einer jeweils einmaligen Nummer (Projektnummern, die hier die Oberkategorien darstellen) die Daten finden, die jeweils nochmal in 3 Unterkategorien sind. Jede Oberkategorie (A - nicht das ReihenA aus Excel) hat also eine Hand voll Unterkategorien (B), die jedoch an sich identsich sind. Jede Oberkategorie hat also dieselben Unterkategorien, die jedoch natürlich allesamt unterschiedliche Werte enthalten.

Ich möchte dann quasi aus der Pivot Tabelle dem Wert B3 aus Oberkategorie A97.

Welche Formel kann ich für diese zweifache Suche verwenden?

Danke!

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,

wir stehen derzeit vor einer kleinen Umstrukturierung und sind uns nicht sicher in welcher Art und Weise wir es am Besten machen wollen.

Zur Situation. Aktuell haben wir viele Leute die für ein gemeinsames Projekt verschiedenste Dateien führen. Grundrisse, Excel-Daten, PDF´s und noch mehreres anderes. Leider wurde dies nie wirklich zusammengeführt, sondern man teilweise 4 verschiedene Bearbeitungsstände oder muss bei einer Änderung mehrere Dateien parallel bearbeiten und ändern. (Bsp: MAC-Adresse ändert sich: muss man in mehreren Dateien nachbearbeiten, damit es aktuell bleibt.) Das ist das Hauptproblem derzeit, welches geändert werden soll. Der erste Gedanke ging in die Richtung Access Datenbank. Hier sehe ich verschiedene Problematiken, bzw. habe verschiedene Fragen die vielleicht jemand Beantworten kann:

1. Es wäre notwendig verschiedene Ansichten/ Listen zu generieren: Bsp. alle Daten mit einem Bestimmten Atribut X sollen in einer Liste ausgegeben werden.
2. Ist es möglich einen Dateipfad zu verlinken?: Nach dem Motto ich hinterlege in einer Ordnerstruktur Grundrisse und kann mir diese in Access anzeigen lassen oder aufrufen lassen. Als Link zum Ordner zum Beispiel?
3. Ist es möglich (Stichpunkt Grafiken und allgemeine Übersichtlichkeit verschiedener Gewerke) eine grafische Abbildung einzubringen und diese mit Links zu einzelnen Unterdatenbanken zu versehen?

Soweit erstmal ein sehr grober Überblick zu unserer Thematik. Es sind sehr viele Daten die wir einpflegen würde und die auch ineinander Greifen.

Ich bin mir unsicher, ob Access wirklich die perfekte Lösung ist?

Habt ihr damit Erfahrungen und evtl. andere Lösungsansätze? Oder würdet ihr doch Access empfehlen, weil ich einige Funktionen vielleicht nicht kenne?

Vielen Dank und liebe Grüße

Williwasi

Hallo Zusammen ich habe ein Problem und irgendwie bin ich mittlerweile zu blind um dies zu lösen. Folgende Situation:
Ich habe eine Excel Liste mit allen meinen Produktdaten Name, Artikelnummer, Stockbestand etc. Von meinem Großhändler bekomme ich täglich eine Stockliste in der aber nur die Artikelnummer und der aktuelle Stockbestand ist. Jetzt führe ich nicht alle PRodukte des Lieferanten sodass ich nicht alle Artikelnummern pflege. Daher kommt ein einfaches Copy an Paste nicht in Frage.
Wie löse ich dieses Problem? Im Grunde brauche ich eine Formel die folgendes besagt: Finde in Liste 2 Zeile 1 den identischen Wert aus Liste 1 Zeile 1 (die identische ArtikelNummer) - Wenn du die identische Nummer gefunden hast. Kopiere den Stockbestand aus Liste 2 Zeile 2 in Liste 1 Zeile 2. Sodass der aktuelle Stockbestand zur richtigen Artikelnummer passt. Könnt ihr mir hier weiterhelfen? Ich finde langsam echt nicht mehr die richtige Formel. Hab schon soviel rumprobiert. Bin aber zu keinem richtigen Ergebnis gelangt. Vielen Dank an jeden der mir hier weiterhelfen kann.

Kann ich in Excel einfach einen Button einfügen, hinter dem ein Stück Code steckt, der dann das Sheet durchsucht und auf die richtige Zelle springt?

Kann mir jemand den Link auf die MS Dokumentation schicken oder ein gutes Tutorial?

Die Anforderung ist in etwa so:
* Klick auf Button
* ermittle_Uhrzeit()
*springe in die Zelle rechts neben der Uhrzeit ( gerundet )

danke{};

Hallo

Im Anhang sind die beiden Tabellen zu sehen. Der gelbe Inhalt

soll in die Lücken unter das jeweilige stichwort in der 2. Tabelle gelangen.

Hat Jemand eine Idee, wie das geht, ob makro oder Befehl ist egal.

( Hab es per Makro und sverweis versucht und in beiden Fällen ging es leider nicht auf)

Außerdem wird es ca 32. Seiten der 1. Tabelle geben und somit auch 32 Zeilen in Tabelle 2.

Ich freue mich über jede Hilfe und Rückfrage.

Danke

Hallo, ich versuche für eine exeltabelle einen befehl zu erstellen der immer dann ausgeführt wird wenn Zelle 1 weniger als 25% von Zelle 2 Beträgt, wie kann ich das machen?

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

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,

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

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