Hallo, ich fülle eine Form mit einem Bild aus. Leider wird dieses Bild immer verzerrt. Besteht die Möglichkeit, dieses Bild unverzerrt in die Form zu laden, ohne die Maße der Form anzupassen?

Bsp: Durch ChatGPT spare ich auf Arbeit viel Zeit, ich bspw. 20 Ideen, um meinen Mitarbeitern eine Freude zu machen, benötige.

Konstruktive Beiträge und Ideen zum Thema sind willkommen!

Hallo,

ich möchte bei Excel VBA aus einer Arbeitsmappe eine zwei seitige Pdf. Exportieren (mittels Makros).

Mein Code sieht bisher wie folgt aus:

Sub SeiteExportieren ()

Dim DateiName As String

Dateiname = "Speicherort"

Tabelle1.PageSetup.PrintArea = "C7:T70, C71:T120"

Tabelle1.ExportAsFixedFormat Type:=xlTypePDF, FileName:=sFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

Bei dieser Funktion werden zwar zwei vorgegeben Bereiche herausgezogen, diese jedoch beide auf einer Seite dargestellt. Wie kann man die Funktion so verändern, dass die Seiten nach den angegebenen Bereichen trennt?

Danke im Voraus

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

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 würde gerne den Text aus meiner Textbox kopieren anhand eines Buttons.

Zudem muss ich sagen das die Textbox nicht aktiv ist (vlt. ein Problem?)

Folgendes funktioniert leider nicht ..

Private Sub CopyPhLoc1_Click()

   Dim MyData As New DataObject

   MyData.SetText PhLoc1Text.Text

   MyData.PutInClipboard

End Sub

genauso wie Me.PhLoc1Text.Copy bzw. Me.PhLoc1Text.text.copy

bitte um Hilfe!

Falls es keine möglichkeit gibt überlege ich den Text in ein worksheet umzuleiten und daraus zu kopieren. Direkt kopieren allerdings wäre natürlich besser.

Hi, ich würde gerne, dass er eine Reihe von Werten findet und die Tabelle, in der sie sich befinden, von A bis Z sortiert.

Hat jemand eine Ahnung, wie ich ihn durch Montag-Samstag loopen lasse, ohne dass ich das 100 Mal kopieren muss?

Vielen Dank im Voraus

Sub Sort()

Cells.Find(What:="Montag", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Select

ActiveSheet.AutoFilter.Sort.SortFields.Clear

ActiveSheet.AutoFilter.Sort.SortFields.Add Order:=xlAscending, _

SortOn:=xlSortOnValues, Key:=ActiveCell.CurrentRegion

ActiveSheet.AutoFilter.Sort.Apply

End Sub

Hallo, ich hänge mich wieder auf. Ich habe den Wunsch über den Ablauf einer Prozedur in Excel, Bilder zu öffnen, welche in ein bestimmtes Word-Dokument eingefügt werden.

Ich dachte ggf. sogar, diese in eine Tabelle einzufügen und die Größe der Bilder automatisch anzupassen, sodass auf einer Word-Seite maximal zwei Bilder angezeigt werden.

Ist das möglich und wie geht das?

Danke im Voraus.

Hallo,

vielleicht seit ihr wieder schneller als ich, ich suche schon länger. Ich möchte dass der Text unter einem bestimmten Umstand blinkt. Etwa so:

    If Not wks.Cells(Zeile, abschlussd).Value = "erledigt" Then
    Me.TimerInterval = 500
    Else
    End If

Der Code steht im userForm Initialize

Ich möchte diesen Code sozusagen aufrufen:

Private Sub Timer_Timer()
    Me.Label37.Visible = Not Me.Label37.Visible
End Sub

Mit Timern habe ich noch nie gearbeitet und ich verstehe nicht den Aufbau.

Vielleicht kann jemand helfen und die Lücken schließen?

Danke.

Hallo, ich suche schon die ganze Zeit aber ich werde nicht schlau. Es ist ja möglich über Excel VBA eine E-Mail zu senden, das bekomme ich auch hin. Aber ist es möglich, dass zunächst gesucht wird, ob es zu diesem Thema (Durchsuchen der Betreffzeile) bereits eine E-Mail im Posteingang oder angelegten Ordner im Postausgang gibt und auf die aktuellste davon zu antworten?

Finde ich speziell, aber vielleicht geht es ja?

Danke im Voraus.

Hallo

Ich habe ein kleines Problem wo ihr mir sicher helfen könnt.

Ein habe ein kleines makro gefunden welches allen Bilder in meiner Excel gewisse Funktionen gibt.

Nun müsste ich es aber noch hinbekommen das beim öffnen der Excel ein klickt mit der linken Maustaste auf alle bilder durchgeführt wird.

Könntet ihr mir bei diesen Code helfen:

Klick auf alle bilder in der Excel

Danke

Hallo,

ich habe mich in letzter Zeit in VBA eingearbeitet und bräuchte etwas Hilfestellung. Ich möchte, dass der User mehrere Zeilen untereinander markiert und diese daraufhin auf ein anderes Tabellenblatt genauso untereinander eingefügt werden. Hab es mit der application.InputBox Type 64 schon probiert, aber das klappt nicht ohne manuelle Eingaben.

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

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

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

Hallo,

ich schaffe es leider nicht einen VBA Code zusammenzubauen, welcher folgendes kann:
Klickt man auf Tabelle 1 eine Zelle mit Inhalt an, dann soll Tabelle 2 geöffnet werden und es soll in der Spalte A die erste Zelle angewählt werden die exakt den gleichen Namen hat wie die angeklickte Zelle bei Tabelle 1.

Beispiel: Man klickt auf Tabelle 1 die Zelle an mit dem Inhalt "Lagerhalle". Dann springt Excel in Tabelle 2 und wählt die erste Zelle aus, worin der Inhalt "Lagerhalle" ist.

Danke im Voraus

Hallo,

wenn eine 1 in der Zeile L oder M oder N steht, soll die Zeile ausgeblendet und im Blatt "Monat" eingefügt werden.

Was mache ich hier falsch?

Sub Copy()
  Sheets("Offen").Select
  LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

  For i = 1 To LetzteZeile
    If Cells(i, 12) = 1 Then
      Rows(i & ":" & i).Select
      Selection.Copy
      Sheets("Monat").Select
      LetzteZeileZwei = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
      LetzteZeileZwei = LetzteZeileZwei + 1
      Rows(LetzteZeileZwei & ":" & LetzteZeileZwei).Select
      ActiveSheet.Paste
      Sheets("Offen").Select
      Section.EntireRow.Hidden = True
    End If
  Next i
End Sub

Hallo,

Ich habe ein Problem bei Excel Vba und hoffe ihr könnt mir weiterhelfen.

Und zwar habe ich eine größere Excel Datei wo täglich neue Daten automatisch hinzukommen.

Beim Öffnen der Excel wird automatisch die Seite Info geöffnet mit den neuesten Informationen.

Nun möchte ich aber folgendes:

Auf der Seite Fehler werden täglich die fehlerhaften Produkte eingetragen und zwar in den spalten, Lackfehler, rost, gebrochen, defekt.

In der spalten Artikelnummer wird natürlich die Artikelnummer eingetragen und in den oben erwähnten spalten die Anzahl der Fehler pro Artikelnummer.

Also zb. Artikelnummer: 123455 hat bei spalten rost 4 und bei Spalte lackfehler 5

Und nun kommt meine frage:

Ich möchte das beim Öffnen der Excel eine Messagebox erscheint wo die Artikelnummern der letzten 5 Tage mit Anzahl der jeweiligen Fehler automatisch angezeigt wird.

Kann mir hier jemand den Vba Code dafür sagen?

Danke im Vorhinein.

Hallo,

Ich habe da ein Problem was ich lösen möchte. Ich arbeite im Parkhaus und betreue weit über 100 Parkhäuser. Manchmal ist es so das die Schranken kaputt sind und ich dann alles von Hand mit Kunden abrechnen muss was echt nervig ist. Deswegen wollte ich gern wissen ob man mit Excel nicht irgendwie einen Gebühren Rechner bauen kann ?

Es müsste wie folgt sein: Man sollte die Einfahrts Zeit eingeben können und die Gebühren die je nach Parkhaus ja unterschiedlich sind und daraus wird dann die System Zeit ermittelt vom PC beispiel und so sollte dann die Summer angezeigt werden.

Beispiel:

Feld A Uhrzeit (Einfahrt)

Feld B Gebühren Pro Stunde = 2,00 (Beispiel)

Feld C ist die Summe die je nach Uhrzeit dann angezeigt werden würde.

Wie Excel dann die Systemzeit übernimmt oder mit der Einfahrtszeit kontrolliert bzw. addiert das weiß ich nicht.

Ich kenne mich mit Excel leider nicht aus mir wurde aber gesagt das es damit funktionieren müsste.

Ich denke so ein Profi könnte das schnell erstellen oder mir es für Laie gut erklären.

Ich bedanke mich für jede Hilfe

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

• Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
• Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

Ich habe laut einer Anleitung auf YouTube

Hier ist der Link

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

=$A$1=ZEILE()

Hierzu wird noch ein VBA Code gebraucht:

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

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

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

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

Danke vorab

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

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

  Sub Test()

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

  End Sub

  Function Test()

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

  End Function

Hallo ich würde gerne mit einer UserForm meine Tabelle befüllen wie kann ich es machen das das was ich in ein Textfeld eingetragen habe in ein bestimmtest Feld eingetragen wird z.B. D12

Würde gerne sowohl nach den Monaten als auch nach den einzelnen Rubriken 1-9 filtern können um mir beispielsweise in Monat X-Y nur die Werte für 1 und 2 oder so ansehen zu können. Leider finde ich keine Lösung... das einzelne Ausblenden der Spalten scheint mir deutlich zu umständlich 

Hallo zusammen,

Ich habe in einem Arbeitsblatt in Excel ein Formular angelegt. Dabei soll man per Dropbox das Unfallland auswählen können. Hier fehlt ein Schlüsselwort um meine Dropdown-Liste anzeigen lassen zu.

Ich möchte das Kombinationsfeld nicht über einen Bereichbezug anlegen.

Sub Dropdown_Unfalland()

       .AddItem "Deutschland"

       .AddItem "Österreich"

       .AddItem "Schweiz"

End Sub

Könnt Ihr mit bei der Lösung helfen?

Ich will einen Taschenrechner in Excel VBA programmieren. Dieser soll auch die (erste) Wurzel einer Zahl ziehen können. Ich weiß jedoch nicht wie man das machen soll. Kann mir jemand helfen eine Sub zu programmieren?

Hallo,

Habe folgendes Problem:

Ich habe in meiner Userform eine list Box mit z.b. Einkaufsartikel.

Der Benutzer soll nun sich ein Produkt aussuchen z.b. Apfel, wenn er den Apfel ausgewählt hat mache ich Berechnungen usw. wenn der Benutzer jetzt aber noch einen Artikel oder eben den selben haben möchte soll vorher der Apfel nicht mehr selektiert sein. Wie mache ich das?

Gruß

Dennis

Sobald man z.B. in die Zelle A1 einen Wert eingetragen hat, müssen zwingendermaßen auch die Zellen C1, E1, F1 und H1 ebenfalls befüllt werden. Das ganze müsste für das ganze Tabellenblatt gelten: z.B. Wert wird in A2 eingetragen - dann müssen ebenfalls die Zellen C2, E2, F2 und H2; Wert wird in A3 eingetragen - dann müssen ebenfalls die Zellen C4, E4, F3 und H3; Wert wird in A... eingetragen - dann müssen ebenfalls die Zellen C..., E..., F... und H...; usw.

Sollte eine Zelle, zu einem Pflichtfeld geworden, beim Speichern noch nicht befüllt sein, sollte ein Fehlermeldung ausgegeben werden - Speichern nicht möglich!

Vielleicht kann man das über VBA machen.

Kann mir hier evtl. jemand weiter helfen?

Vielen Dank im Voraus!

Viele Grüße Python1860