VBA Excel – die besten Beiträge

Hallo, ich hätte mal eine Frage zu Excel. Ich greife mit einem weiteren Programm auf eine Excel-Tabelle zu und ziehe mir aus der Tabelle Daten. Zum Beispiel werden Bilder eingepflegt dessen Speicherort als Link in Excel hinterlegt ist. Jetzt das Problem, wenn ich diesen Ordner verschiebe, dann ändert sich ja auch der Link und funktioniert nicht mehr. Kann ich den Link relativ angeben? Als Beispiel: auf Festplatte c: liegt der Ordner "Karten". In diesem befindet sich die Excel-Datei und ein Ordner Namens "Bilder". In diesem Ordner befinden sich die Bilder auf die Excel verlinkt. Also Quasi so c:/Karten/Bilder/Bild_1 oder so ähnlich. Wenn ich jetzt aber den ganzen Ordner "Karten" auf die Platte d: packe, dann funktionieren die Links ja nicht. Kann ich den Pfad nicht irgendwie so angeben dass der Bezug der Bilder relativ zum Speicherort der Excel-Datei definiert wird. Also Beispielsweise so, dass ich sage "die Bilder liegen immer im Unterordner des Ordners in dem sich die Excel-Datei befindet". Keine Ahnung wie ich es Euch anders erklären soll.

Vielen Dank schon einmal im voraus für Eure Mühe.

Hallo,

zum 1. Thema. Ich mache eine Excel mit Makros für meine Firma und in meiner Datei kann ich alle Makros ohne Probleme abspielen. Wenn ich die Tabelle aber nur in ein anderes Programm z.B OneNote kopiere, kann ich die Makros nicht mehr aktivieren. 

Es kommt dann "Das Makro ... kann nicht ausgeführt werden . Das Mako ist möglicherweise in dieser Arbeitsmappe nicht verfügbar, oder alle Makros sind deaktiviert.

=> ich habe bei dem Trust Center die Makros aktiviert

Wenn ich dann in der Mappe bei einem Objekt ein Makros zuweisen will, kommt diese Tabelle wo alle meine Makros da sind aber wenn ich dann zuweisen will kommt "Aufgrund von Sicherheitseinstellungen wurden Makros deaktiviert. Zum Ausführen von Makros müssen Sie diese Arbeitsmappe erneut öffnen und dann Makros aktivieren. ...

Wisst ihr wie man das beheben kann um das auch für mehrere Personen verfügbar zu machen?  

Zum zweiten Thema konnte ich nicht das finden was ich brauchte. Ich z.B zwei Tabellenblätter (A und B). A stellt die Startseite dar und B ist unten in der Liste/Leiste ausgeblendet. Klicke ich auf ein Makro auf A soll das Blatt B eingeblendet werden und A in der Leiste ausgeblendet werden. Widerum soll es dann möglich sein durch ein Makro von B auf A zu gelangen und dass sich B wieder in der Leiste ausblendet?

Ich hoffe das ist nicht zu wirr geschrieben und bitte habt erbarmen mit mir, ich mache das hier zum ersten Mal.

Viele Grüße und danke im Voraus

Jamie

Hallo an alle Excel-Profis,

Die Namen in der Tabelle sind in einzelne Zellen aufgeteilt. Nun sollen die Buchstaben us den Reihen 1,2 und 3 (leere Zellen ausgeschlossen) der Reihe nach in Zeile 4 geschrieben werden. Wäre dankbar für eine Formel dafür.

Hallo Community!

Ich habe mir im Excel ein kleines Makro erstellt, das dazu führt wenn ich die Plus-Taste auf meinem Nummernblock betätige, der Wert in der aktuellen Zeile verschoben wird.

Allerding funktioniert das ganze nicht, wenn ich in einer Zelle aktiv etwas schreibe. Wenn ich dann die Plus-Taste betätige, wird das Pluszeichen geschrieben und das Makro wird nicht ausgeführt.

Gibt es dort eine Möglichkeit um diese Aufgabe zu bewältigen?

Hallo, kann mna in excel neben eine Zeile wie einen Button platzieren, der wenn man ihn anklickt diese Zeile ausblendet, und den eingegebenen Wert Ausblendet bzw nicht zur Summenformel zählt ?

Hallo,
Ich möchte anhand einer Exceltabelle einen Dienstplan erstellen, welcher sich automatisch kreiert:

18 Mitarbeiter welche ca 14 Schichten pro Monat arbeiten
Jeder Mitarbeiter soll hierbei im Rythmus 6/3/6/9 arbeiten, sprich 6 aufeinanderfolgende Tage arbeiten, 3 Tage frei, 6 Tage arbeiten, 9 oder 12 frei und wieder von vorne.

Könnte mir das jemand mit VBA lösen und danach auf einem Excel Kalender darstellen?

Hallo zusammen,

ich stehe vor einem Problem, woran ich schon seit Tagen arbeite und keine Lösung finde.

Meine Split-Funktion klappt soweit, die Daten werden eingefügt. Allerdings in der ersten der ersten Zeile von (D). Ich benötige die Daten aber ab Zeile (D20) und das bekomme ich nicht hin.

Hat bitte jemand einen Lösungsvorschlag, da ich nicht so fit mit VBA bin?

Dim MeinArray() As String
Dim MeineZeichenkette As String
Dim I As Variant
Dim N As Integer
Dim WB As Worksheet
Set WB = ThisWorkbook.Sheets("Abrechnung")

Dim WBlerf As Worksheet
Set WBlerf = ThisWorkbook.Sheets("Tabelle1")
Ziel = WBlerf.Range("D20")

'Beispielzeichenkette mit Semikolon als Trennzeichen
MeineZeichenkette = WB.Range("Aufmaß_srvpos")

'Die Funktion Split verwenden, um die Bestandteile der Zeichenkette aufzuteilen
MeinArray = Split(MeineZeichenkette, ";")

'Das Arbeitsblatt leeren
'ActiveSheet.UsedRange.Clear

'Durch das Array iterieren
For N = LBound(MeinArray) + 0 To UBound(MeinArray)
  'Jede E-Mail-Adresse in die erste Spalte des Arbeitsblatts einfügen
  WBlerf.Range("D" & N + 1).Value = MeinArray(N)
Next N

Lieben Dank und VG

Stefan

Hallo Zusammen

Zurzeit erstelle ich eine VBA-Basierte Excel Datei, welche eine Liste erstellt mit Positionen tabelliert. Zu jeder Position ist eine PDF-Datei zugehörig. Diese ist in einer Spalte als Hyperlink zugefügt, so dass beim Klicken sich eine PDF-Datei öffnet.

Nun möchte ich mehrere solche Positionen die jeweilige PDF-Datei (unterschiedliche Seitenanzahl) in einer PDF-Datei zusammenfügen und als eine PDF-Datei ausgeben.

• Ist sowas VBA-Basiert möglich, ich verwende den PDF24 als Creator.
• Oder ist dies mithilfe einem Python Code möglich?

(Die Lösung mit Python ist nur eine Notfalllösung, da diese Excel-Datei auf diversen Computer laufen muss und somit die Schnittstelle zwischen Python und Excel erstellen muss)

Besten Dank für eure Inputs und Hilfe.

Hallo Zusammen

Ich bin ganz neu im VBA und bin etwas am Herumprobieren. Einen Teil habe ich geschafft, aber an einem Punkt hänge ich.

Ich will, dass ein Makro läuft, welches die Datei automatisch unter dem Namen "Kundennummer_Servicedatum" abspeichert. Die Kundennummer und das Servicedatum sind beide im Dokument unter separaten Zellen hinterlegt, die Formel sieht jetzt so aus:

Sub Speichern_unter()

Dim SaveName As String

Dim Datum As Date

SaveName = ActiveSheet.Range("BQ11").Text

Datum = ActiveSheet.Range("BM17")

ActiveWorkbook.SaveAs Filename:="D:\ABC\Service\" & SaveName & "_" & Datum & ".xls"

End Sub

Soweit funktioniert alles, das Dokument heisst z.b. "149_31.10.23"

Das Datum ist als dd.mm.yy in der Zelle, zum Abspeichern brauche ich aber folgendes Format: yymmdd. Ziel ist also der Name "149_231031"

Kann mit jemand helfen, wie ich das Datum umgedreht bekomme? Danke im Voraus :)

Ich habe eine Tabelle mit folgendem Aufbau (die Anzahl der Namen variiert):

Zielbild ist folgendes:

Es sollen in Spalte C die Duplikate entfernt werden, wenn es sich hierbei um ein Duplikat für die Person in Spalte A handelt.

Meine Frage ist, wie ich das Löschen per VBA abbilden kann. Leider sind meine Kenntnisse eingeschränkt (einfache Makros kann ich zwar schreiben, aber das übersteigt meine Kenntnisse). Da die Namen variabel sind, wäre es gut, wenn die Prüfung bis zur letzten Zeile durchgeführt wird.

Danke vorab für eure Hilfe!!

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

Die Formel die Kopiert werden soll ist:
=SVERWEIS(B3;Data!A1:C26;2;FALSCH)*F3

Die Kopierte Formel erscheint so:
=@SVERWEIS($B4; Data!$A$1:$C$26; 2; FALSCH)*F4

Mein VBA Makro ist :

Sub HinzufuegenUndKopieren()

  Dim WertAusSpalte2 As Variant

  WertAusSpalte2 = Cells(3, 2).Value

  Rows(4).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

  Cells(4, 2).Value = WertAusSpalte2

  Cells(4, 5).Formula = "=$B$4"

  Cells(4, 6).Value = Cells(3, 6).Value

  Cells(4, 7).Formula = "=SVERWEIS($B4, Data!$A$1:$C$26, 2, FALSE)*F4"

End Sub

Wie bekomme ich es hin, dass die Zeile ohne @ Kopiert wird ?.

Ich bekomme regelmäßig Nutzerlisten, die eine unterschiedliche Anzahl an Nutzern umfasst. Diese Nutzerliste muss ich in ein bestimmtes Format überführen.

Ausgangsdatei:

Zielbild: In einem neuen Tab.

Gerne würde ich das per VBA automatisieren. Kann mir hier bitte jemand weiterhelfen?

Hello World an alle Programmierer da draußen. Ich muss das ggT zweier Zahlen in Excel berechnen. Ich bekomme es einfach nicht gebacken, den Code in Makro zu schreiben. Das ist Hausübung, keiner von uns kriegt das hin. Unser Lehrer will auch noch ein Flussdiagramm (???) und einen Programmablaufplan. Send help!

Guten Tag zusammen,

Undzwar geht es darum das ich ein Makro erstellt habe der sieht so aus :

Sub Makro1()

' Makro1 Makro

'

  Range("D3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C6").Select

  ActiveSheet.Paste

  Sheets("Tabelle1").Select

  Range("J3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C7").Select

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

    :=False, Transpose:=False

  Sheets("Tabelle1").Select

  Range("R3").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("1M").Select

  Range("C13").Select

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

    :=False, Transpose:=False

  Range("D26").Select

  Application.CutCopyMode = False

  Selection.Copy

  Sheets("Tabelle1").Select

  Range("H3").Select

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

    :=False, Transpose:=False

End Sub

Das Problem ist jetzt das ich möchte das er in der Excel Tabelle jede Zeile mit diesem Makro ausfüllt sprich er soll bei Zeile 3 anfangen und bis 322 weiterführen ich habe 2 Mappen 1. "Tabelle1" und "1M"

Tabelle1 hatt die 322 Zeilen aber er springt nicht zur jeder Zeile und die Zelle "D3" , "J3", "R3", "H3" sollten dann auf die nächste Zeile Springen Sprich "D4", "J4" , "R3" , "H4" wenn er auch in der 4 Zeile ist

die restlichen Zellen sollen festbleiben zugehörig zu Mappe "1M"

ich hoffe es ist verständlich was ich meinte :'D

Hallo zusammen

Ich suche nach einer schnelleren Formellösung, welche alle Zeilen ausblendet, wenn in Spalte A der jeweiligen Zeile das Formelergebnis 0 steht und wieder einblendet, wenn das Ergebnis 1 ist. Die Rechnung passiert dabei auf einer anderen Tabelle; in der Tabelle mit dem Makro steht dann lediglich: ='Tabelle2'!A11 (Dieser Wert wird somit übertragen und ändert sich demzufolge)

Makro:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Range("A11") = 0 Then

Rows("11:12").EntireRow.Hidden = True

End If

If Range("A11") <> 0 Then

Rows("11:12").EntireRow.Hidden = False

End If

If Range("A13") = 0 Then

Rows("13:14").EntireRow.Hidden = True

End If

If Range("A13") <> 0 Then

Rows("13:14").EntireRow.Hidden = False

End If

If Range("A15") = 0 Then

Rows("15:16").EntireRow.Hidden = True

End If

If Range("A15") <> 0 Then

Rows("15:16").EntireRow.Hidden = False

End If

...

(UNTERBRUCH) ...........das geht weiter bis "A360"

...

End Sub

Dieser Ablauf dauert jedoch eine gefühlte Ewigkeit; geht das schneller?

Danke euch.

Gruss Swen

Mir werden folgende Daten angeliefert (mit etwa 200 Anwender, die 2 bis 8 Rollen haben). Ich muss für jeden aktiven (Spalte B = Y) Anwender (Spalte A) die Rollen in separate Zeilen umwandeln, um die Daten weiterverarbeiten zu können.

Ausgangslage:

Zielbild:

Für Anwender A habe ich schon passende Formeln gefunden, wie ich die Daten aus Spalte C einzelne auslesen kann:

=LINKS(A2; FINDEN(ZEICHEN(10);A2)-1)

=TEIL($A2;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";1))+1;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))-FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";1))-1)

=TEIL($A2;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))+1;FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";3))-FINDEN("#";WECHSELN($A2;ZEICHEN(10);"#";2))-1)

=RECHTS(A2;LÄNGE(A2)-FINDEN("#";WECHSELN(A2;ZEICHEN(10);"#";LÄNGE(A2)-LÄNGE(WECHSELN(A2;ZEICHEN(10);"")))))

Ich würde das gerne automatisieren und könnte mir vorstellen, dass dies mit VBA machbar ist. Leider kenn ich mich damit nur sehr begrenzt aus. Kann mir jemand bitte weiterhelfen?

Hallo,

Meine eigentliche Frage ist folgende:

Wie lese ich aus einer Textzeile die Daten aus und speichere sie in einer anderen Arbeitsmappe mittels vba?

ich kenne mich nicht mit excel vba aus

möchte dennoch ein Regal Programm erstellen. Wie in beiden Bildern mit gelb markiert ist lese ich den Inhalt der Textzeile aus und gebe ihn in der Arbeitsmappe bei a1 aus. Jedoch bekomme ich es nicht hin es in die 2. arbeitsmappe (blau markiert) auszugeben und nicht in die aktuelle. Geht das?

Ergänzung: falls sich noch jemand damit auskennt wie man das in der zweiten speichert und Dan tabellarisch immer einen darunter speichert und das andere nicht überschreibt kann das am Ende auch noch anmerken. Danke im Voraus schonmal.

Hey, im Bild ist der ausgeschnittene Code. Rot unterstrichen ist die Zeile die Probleme macht. Der Code sollte von dem Sheet "hidden" die Range F5:F&lastRow haben. Beim ausführen ignoriert er aber das "hidden" und nimmt stattdessen das Sheet "dashboard".

Ablauf des Codes:

Letzte Reihe im sheet hidden herausfinden

dropdownRange definieren (Von wo welche Daten?)

dropdownCell definieren (Wo soll dropdown Menü aufrufbar sein?)

Löschen von Dateneinschränkung in dropdowncell

Dateineinschränkung einfügen (Einschränkung nur Inhalte der dropdownRange von Spalte hidden)

Das Programm arbeitet wie gesagt als wäre statt dem rot markierten dieser Code:

Set dropdownRange = dashboard.Range("F5:F" & lastRow)

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 ! 😅