VBA – die besten Beiträge

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.

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 ?

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.

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

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

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?