Excel VBA – die meistgelesenen Beiträge

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

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

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

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

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

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

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,

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.

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

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

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

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.

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

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

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.

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

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

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

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 habe in Spalte H eines Worksheets habe ich folgende Informationen (das ist nur ein Beispiel. In meiner Tabelle sind das mehrerer 100 verschiedene Varianten) stehen:

Da ich das Kürzel (ETL) nicht benötige, soll das in Spalte I wie folgt ausgegeben werden:

Wie kann ich das automatisieren, dass immer wenn das Kürzel ETL vorhanden ist, dass dieses entsprechend gelöscht wird (inkl. des Leerzeichens)?