VBA – die besten Beiträge

Guten Tag liebe GF-Community.

Ich habe gerade eben das erste Mal "Grocy" im Internet durch Zufall entdeckt.

Da ich aktuell wieder sehr viele Private Projekte (Tools) für mich selbst in Excel baue dachte ich mir gerade ob es Möglich wäre sowas ähnliches wie Grocy in Microsoft Excel zu erstellen. Jedoch habe ich selbst nur ein kleines und sehr beschränktes Wissen was Formeln betrifft. In VBA habe ich absolut keine Kenntnisse und ich denke dass das benötigt wird um die meisten Funktionen zu erstellen.

Das ist die offizielle Webseite: Grocy

Natürlich möchte/benötige ich nicht alles davon haben. Alles was ich für mich selbst benötige wäre:

• Bestand
• Rezepte (Sehr wichtig)
• Inventur
• Einkaufszettel

Jetzt weiss ich halt nicht wie & womit ich das am besten Umsetzen kann. Ich würde es dann für Private zwecke verwenden wollen.

Schaut euch unbedingt die Webseite an um zu verstehen was ich möchte. Es wäre auch wichtig um die Funktionen zu sehen.

Kennt sich mit dieser Thematik aus?

Vielen dank im Voraus!

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

Hallo,

ich habe eine Liste mit 3 Zellbereichen, jeweils 7 Spalten a`55 Zellen. Im Zellbereich 1 werden mittels QR-Scanner 7-stellige Zahlen registriert.

Meine Frage: Ich möchte, dass wenn ich eine der registrierten Zahlen nochmals mit dem Scanner registriere diese automatisch in den 2. Zellbereich springt und die leer gewordene Zelle im Zellbereich 1 gelöscht (also entfernt) wird.

Bei einer dritten Registrierung mit dem QR-Scanner soll die Zelle dann aus dem Zellbereich 2 in den 3. Zellbereich springen und aus dem 2. Zellbereich gelöscht werden.

Ist das über Excel zu realisieren oder bedarf es da ein anderes Programm?

Danke im Voraus für eure Hilfe

Kopsi

Hallo zusammen,

vorab schonmal, nein ich habe hier absolut 0% Ahnung hiervon und brauche dringend Hilfe!

Ich habe auf der Arbeit bei einer wichtigen Excel Datei eine neue Spalte eingefügt, was dafür gesorgt hat, dass eine wichtige Spalte rechts davon weiter nach rechts verschoben wurde um eine Zelle.

In dieser Spalte wurden Enddatum eingetragen und diese wurden mit einem Makro über VBA Absteigend von jüngerem Datum oben, nach späteren Datum nach unten hin sortiert.

Nachdem ich die neue Spalte zugefügt habe, funktionierte eins nach dem anderen nicht mehr richtig und ich war so dumm zu versuchen das Makro minimal anzugleichen, sodass es funktioniert und habe es dann getestet.

Dadurch habe ich es nur schlimmer gemacht...

Zudem kann ich jetzt nicht mal mehr in der Tabelle scrollen, zumindest in diesem Reiter, in einem anderen Reiter unten, kann ich scrollen in der Datei.

Der Text in VBA Stand jetzt:

Sub Sortieren()

'

' Sortieren Makro

'

'

  Rows("3:500").Select

  Range("B3").Activate

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("Übersicht").Sort.SortFields.Add Key:=Range( _

    "H4:Hl34"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("Übersicht").Sort

    .SetRange Range("A3:L500")

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

  ActiveWindow.SmallScroll Down:=3

  ActiveSheet.Range("$A$3:$L$97").AutoFilter Field:=12, Criteria1:="="

  ActiveWindow.SmallScroll Down:=-12

End Sub

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

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

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"

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

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'

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

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

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

Hallo,

ich habe im \Data-Ordner eine .cs-Datei mit einigen Variablen etc..

Ich wollte nun von einer .razor-Datei aus auf diese Werte zugreifen. Aber ich verstehe die Dependency Injection nicht so. Ich habe gegoogelt, aber irgendwie war alles schwammig erklärt.

Was ich gemacht habe:

Program.cs

builder.Services.AddSingleton<Daten>();

Daten ist in dem Fall die Klasse.

Und in der Component:

@using app.Data
@inject Daten

Aber ich kann nicht auf die Werte in der Klasse zugreifen und ich krieg den Fehler:

errorRZ1015: The ˋinject' directive expects an identifier.

Weiß jemand, was falsch ist?

Hier handelt es sich um die Programmiersprache VBA und hier sollen auf einem Array gespeicherte Strings ausgegeben werden die diesem Muster entsprechen.

Hallo zusammen,

ich stehe vor dem Problem die Inhalte von zwei Tabellen tauschen zu müssen.

Da die Daten zum Teil aus Checkboxen besteht ist das nicht so einfach.

Meine Idee ist folgende: Ich möchte z.B. die Namen der Tabellenblätter 1.11 und 1.15 tauschen. Dazu muss ich der Tabelle 1.11 erst zur Tabelle "x" umbenennen und 1.15 zu "y" umbenenen. Anschließend bekommt Tabelle "x" die Bezeichnung 1.15 und Tabelle "y" die Bezeichnung 1.11.

Welche Tabellen ihre Bezeichnungen untereinander tauschen sollen steht in Zelle K1 und K2. In diesem Beispiel 1.11 und 1.15.

folgendes habe ich mir überlegt... nur funktioniert es nicht.

Sub test()

alterName = Range("K1")

neuerName = Range("K2")

zwischenName1 = "x"

zwischenName2 = "y"

Dim WsTabelle As Worksheet

For Each WsTabelle In Sheets

   If WsTabelle.Name = alterName Then

       Sheets(alterName).Name = zwischenName1

   If WsTabelle.Name = neuerName Then

       Sheets(alterName).Name = zwischenName2

   If WsTabelle.Name = zwischenName1 Then

       Sheets(alterName).Name = neuerName

   If WsTabelle.Name = zwischenName2 Then

       Sheets(alterName).Name = alterName

       Exit For

   End If

Next WsTabelle

End Sub

Moin.
mich hab Probleme bei ner Formel in VBA. Für die Formel muss von 3 werten jeweils der höchste und der niedrigste ausgelesen werden und mit diesem muss dann weitergerechnet werden. Ich habe das bisher über die normalen Formeln gemacht und wollte es nun mit vba machen das es schneller geht. Hab aber kein Plan wie ich das programmiere das der min und Max wert ausgelesen wird.

meine formel war diese:

„ =((MAX(C5:C7))-(MIN(C5:C7)))/(SUMME(C5:C7)/3)*100“

ich würds gerne machen das ich eingebe:

=Funktion(Wert1;Wert2;Wert3)

ist das umsetzbar ?

Gruß !

Unter top oder height kann ich mir ja noch was vorstellen.

Hallo,

Ich lasse in Excel (Excel 2019) auf Knopfdruck ein Makro laufen.

Es ist eigentlich ganz simple: Es schreibt "ok" in die aktive Zelle, kopiert die linke Zelle und springt dann wieder ein runter und ein nach rechts.

Private Sub CommandButton3_Click()

Range(ActiveCell, ActiveCell.Offset(2, 0)) = "ok"

ActiveCell.Offset(0, -1).Select

Range(ActiveCell, ActiveCell.Offset(2, 0)).Copy

ActiveCell.Offset(3, 1).Select

End Sub

Das was ich nicht hinkriege:

Es wird leider die gesamte Zelle kopiert. Wenn ich die Zelle irgendwo anders einfüge wird die gesamte Zelle mit Rahmen und anderen Formatierungen eingefügt.

Nun die Frage: Kann ich anstatt die gesamte Zelle auch nur den Zelleninhalt, also nur die Schrift ohne jegliche Formatierungen kopieren lassen? Ich brauche es in den Zwischenspeicher, sodass ich es wo anders in einem Browser mit STRG+V einfügen kann.

Vielen Dank im Voraus

Wie kann man aus einem Feld, in der eine beliebige Zahl eingegeben werden kann, eine Abfrage starten, bei der für Zahlen in verschiedenen definierten Zahlenbereichen unterschiedliche Ergebnisse ausgegeben werden?

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

Hallo zusammen. Ich habe folgendes Problem. In einer Excel-Datei (ThisWorkbook) habe ich die Tage vom 1.-letzten Tag eines Monats in Reihe 4 stehen. Ein Datum pro Spalte, beginnend in Spalte B. Darunter sollen jeweils Werte aus einer anderen Excel Datei (wbk360) eingetragen werden - mit Hilfe von VBA. In dieser zweiten Datei stehen die Tage untereinander in Spalte A. Ich benutze Worksheetfunction.Match, um die richtige Zeile in der zweiten Datei zu finden, bevor ich von dort Zahlen in meine erste Datei übertragen lasse.

Das hier ist der Teil des VBA Codes, der nicht funktioniert:

    For idatecol = 2 To 21
    On Error Resume Next
    idaterow = WorksheetFunction.Match(ThisWorkbook.ActiveSheet.Cells(4, idatecol).Value, wbk360.ActiveSheet.Range("A:A"), 0)
    
    ThisWorkbook.ActiveSheet.Cells(5, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iOccHeader).Value
    ThisWorkbook.ActiveSheet.Cells(6, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iIndexHeader).Value
Next idatecol

idaterow sollte mir die Zeile in Datei 2 nennen, in der das Datum steht, das ich gerade in Datei 1 bearbeiten möchte. Wenn ich aber mit F8 Zeile für Zeile durch den Code gehe, bleibt der Wert für idaterow immer 0; es wird also kein Match gefunden.

Die Daten in Datei 2 Spalte A werden als Datum in Excel erkannt. Gebe ich eine Match-Formel direkt auf meinem Worksheet in Datei 1 ein, benutze dort den Datumswert aus Zelle B4 in Datei 1 und suche nach einem Match in Spalte A in Datei 2, bekomme ich 5 als Ergebnis, weil dieses Datum in Zelle A5 in Datei 2 steht.

Offensichtlich findet Excel also das entsprechende Match für jedes einzelne Datum in Datei 1. Mit VBA finde ich aber kein einziges Match.

Hat jemand eine Idee, warum das so ist??? Vielen Dank im Voraus. Rene

Danke für eure Antworten