VBA – die besten Beiträge

Hallo,

idch moechte im MS-Excel ein kleines Programm schreiben und mit VBA-commands aus dem Clipboard Daten auf ein Excel Blatt kopieren. Ich kann das mit einer Zeile machen, aber wie kann ich mehrere Daten auf verschiedene Zeile kopieren? Ein Beispiel um es klar zu machen:

Ich gehe im Firefox und klicke auf die URL-Adresse, ctrl-c; dann auf den Namen des videos ctrl-c; dann auf den Vergasser ctrl-c.

Gehe wieder zurueck auf Excel und eine function soll nun es uebernehmen und diese Daten die sich im Clipboard gesammelt haben auf mehrere Zeilen uebertragen.

Das geht sehr einfach mit einem Datum, aber wie mache ich es mit mehreren Data?

ActiveCell.paste uebertraegt immer die neueste copy, nicht die aelteren. Ich moechte aber an alle 3 daten zugreifen und auf dem Blatt haben.

Ich hoffe das wahr eindeutig.

Hallo Zusammen,

ich hab ein Problem in VBA. Ich muss bei jedem klicken auf Raten den counter +1 erhöht werden. Leider ergibt sich bei mir eine Endlos-Schleife. Brauche Hilfe.

Private Sub btnRaten_Click()
Dim Userzahl As Integer 'Eingegebene Zahl
Dim PCzahl As Integer 'Zufallszahl
Dim anzahl As Integer
Dim Ende As Boolean


anzahl = 0


PCzahl = Int((Rnd() * 100) + 1)


Userzahl = Val(tbxEingabe.Value)


Ende = False


Do Until Ende = True


anzahl = anzahl + 1


If Userzahl < PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu klein"
Ende = False


ElseIf Userzahl > PCzahl Then
lblAusgabe = "Die Zahl " & Userzahl & " ist zu groß"
Ende = False


ElseIf Userzahl = PCzahl Then
lblAusgabe = "Gewonnen!"
Ende = True


End If


lblCounter.Caption = anzahl
Loop


End Sub

Danke für eure Hilfe.

Hallo miteinander.

Ich bräuchte unbedingt mal ein paar Profi-Tipps.

Ich habe einen Code, welcher eingetragene Daten aus der UserForm abspeichert und in verschiedene Tabellen übernimmt.

Soll die Textbox jedoch einen höheren Wert als 100 beinhalten, soll das hineinschreiben und alle weiteren Befehle abgebrochen werden.
Eine weitere UserForm soll als popup auftauchen. bzw. mit popup.show

Die frage, welche ich mir stelle ist:

Wie bekomme ich es hin, dass sich das Popup-Fenster öffnet und das Eintragen der Textbox in die Tabellen gar nicht erst stattfindet.

Guten Tag,

ich muss ein eindimensionales Array erstellen, welches 3 Namen aus dem ersten Tabellenblatt von A1-A3 speichert. Diese sollen dann auf dem zweiten Tabellenblatt von A1-C1 wieder ausgegeben werden. Dabei müssen die Namen in die Tabelle eingetragen werden und daraus entnommen werden. Ich soll dabei "ReDim Preserve" benutzen, doch ich habe keine Ahnung wie ich das machen soll.

Hallo zusammen,

ich habe momentan ein Problem, ich möchte, dass ich verschiedenen Tabellen auf einem Tabellenblatt habe. 

Es soll jede Tabelle im Reiter "Kundengruppe" von A->Z (Aufsteigend) sortiert werden, ohne, dass das VBA direkt einen Zellenbezug herstellt, da die höhe und tiefe der Tabellen mal nach Anzahl der Eintragungen variieren kann.

Hier der Link zur Datei:

https://www.herber.de/bbs/user/147794.xlsm

Range(Selection, Selection.End(xlDown)).Select

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Clear

  ActiveWorkbook.Worksheets("OP").AutoFilter.Sort.SortFields.Add2 Key:=Range( _

    "Q16:Q18"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _

    xlSortNormal

  With ActiveWorkbook.Worksheets("OP").AutoFilter.Sort

    .Header = xlYes

    .MatchCase = False

    .Orientation = xlTopToBottom

    .SortMethod = xlPinYin

    .Apply

  End With

Das ist der aktuelle Code, der Bereich mit <b>Range( _"Q17:Q18")</b> soll im besten fall weg, da das der punkt ist, wo die höhe der Tabelle variieren kann..

Der   Range(Selection, Selection.End(xlDown)).Select befehl, sucht ja in dem fall schon den richtigen anfang, und ab da soll dann der Filter gesetzt werden und gefiltert werden

Ich hoffe man versteht es einigermaßen...

Danke & LG

Chris

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

   ActiveSheet.Unprotect

   ' einblenden:

   ActiveWindow.DisplayHeadings = True

Else

   ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

   ' ausblenden:

   ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

Ich habe die Variable a formuliert und diese auf True gesetzt, nun soll wenn in einer Textbox keine nummerischen Zeichen eingetragen werden, die letzte Zeile gelöscht werden. In meinem Makro habe ich noch weitere Bedingungen formuliert, die dasselbe bereits tun, allerdings jetzt bei der Variable bekomme ich nur Fehler raus.

Hallo zusammen,

ich habe folgendes Problem:

Ich habe eine Excel Datei erstellt, welche mit dem Solver eine Kostenfunktion unter gewissen Nebenbedingungen minimieren soll. Der Solver wird über VBA angesteuert und spuckt dann auch das korrekte Ergebnis aus, alles kein Problem. ABER wenn ich dann die Solver Lösung akzeptieren will und den Grenzwertbericht anklicke um diesen zu generieren wird die Spaltenbreite meines Sheets total verändert und auch die Werte aus einigen Zellen gelöscht. Bei den anderen Berichten (Antwort und Sensitivität) passiert dies nicht.

Hatte einer das gleiche Problem bereits oder wüsste eine Lösung hierzu? 

Meine einzige Idee wäre, ein kurzes Makro zu programmieren, welches die ursprüngliche Spaltenbreite einstellt und die gelöschten Werte wieder einträgt... diese Lösung finde ich aber leider bisschen unzufriedenstellend.

Vielen Dank und liebe Grüße 

Manu

Hallo zusammen,

Ich habe ein Makro geschrieben, mit welchem jeweils via Button eine neue Spalte eingefügt wird.

Über den Button Spalten entfernen wird die jeweils ausgewählte Spalte gelöscht.

Private Sub CmdSpaltePlus_Click() 'Test Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "Perfektion"

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

 

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

 

Private Sub CmdPerfektionPlus_Click() 'Perfektion Spalte hinzufügen

Dim spalte, zeile As Integer

Application.ScreenUpdating = False

spalte = 4

Do Until Cells(2, spalte).Value = "F.n.B."

   spalte = spalte + 1

Loop

Columns("D:E").Copy

Columns(spalte).Insert Shift:=xlToRight

Range(Cells(2, spalte - 2), Cells(2, spalte + 1)).Merge

Range(Cells(4, spalte), Cells(4, spalte + 1)).Merge

Cells(3, spalte).Value = ""

Cells(3, spalte + 1).Value = ""

Cells(4, spalte).Value = ""

Cells(4, spalte + 1).Value = ""

zeile = 6

Do Until zeile = 1000

   If Left(Cells(zeile, 1).Value, 1) = "S" Then

        Cells(zeile, spalte).Value = ""

       Cells(zeile, spalte + 1).Value = ""

    End If

   zeile = zeile + 1

Loop

Application.ScreenUpdating = True

End Sub

Spalten löschen

Private Sub Kompetenzenentfernen_Click() 'Spalten löschen

ActiveSheet.Unprotect Password:="MNPS"

If Cells(5, ActiveCell.Column) = "Schicht" Or Cells(5, ActiveCell.Column) = "Nr." Or Cells(5, ActiveCell.Column) = "Name" Or Cells(3, ActiveCell.Column) = "A1" Or Cells(3, ActiveCell.Column) = "D1" Or Cells(9, ActiveCell.Column) = "." Or Cells(3, ActiveCell.Column) = "E1" Or Cells(3, ActiveCell.Column) = "F1" Or Cells(3, ActiveCell.Column) = "G1" Or Cells(3, ActiveCell.Column) = "H1" Or Cells(2, ActiveCell.Column) = "." Or Cells(1, ActiveCell.Column) = "Zielwert" Then

MsgBox "Spalte kann nicht gelöscht werden"

Else

Selection.EntireColumn.Delete Shift:=xlUp

End If

'ActiveSheet.Protect Password:="MNPS"

End Sub

Die Buttons funktionieren auch alle, nur leider kommt oft eine Laufzeitfehlerneldung oder das ganze Programm hängt sich auf wenn ich erst mit dem einen Button eine Spalte eingefügt habe und im Anschluss mit dem anderen Button eine Spalte einfügen.

Es funktioniert also leider nicht verlässlich. Hat jemand eine Idee woran das liegen könnte?

Vielen Dank im Voraus!

Wie schreibe ich das in VBA? Dankeschön

Hallo Zusammen,

ich habe eine Arbeitsmappe mit Tabellenblätter, wo sich die Namen variieren.

Da aber im jeden Tabellenblatt in Zelle A1 ein Datum Steht, will ich jedes Tabellenblatt dem Heutigen datum suchen, zellen aus dem blatt kopieren und in eine Andere arbeitsmappe einfügen, danach das gleiche noch einmal mit dem gestrigen datum.

Aktuell sieht mein Code so aus, aber der gibt mir nur die MsgBox, dass nichts gefunden worden ist.

  'Aktuelles Datum auswählen bei Start
Dim bolHabWasGefunden As Boolean
Dim wksTabelle As Worksheet
Dim rngSpalteA As Range
Dim rngZelleGefunden As Range
For Each wksTabelle In ThisWorkbook.Worksheets
 Set rngSpalteA = wksTabelle.Columns(1)
 Set rngZelleGefunden = rngSpalteA.Find(Date, LookIn:=xlValues)
 If Not rngZelleGefunden Is Nothing Then
  wksTabelle.Activate
  rngZelleGefunden.Select
  bolHabWasGefunden = True
  Exit For
 End If
Next
If bolHabWasGefunden = False Then
 MsgBox Date, , "Hab ich nicht gefunden:"
End If

Kennt da jemand einen ansatz bzw, eine lösung?

Hallo liebe Community,

ich habe schon wieder eine Excelfrage, hoffentlich vorerst meine Letzte:

Kann man für eine Zelle eine Formel erstellen, diese Formel schützen und dennoch einen manuellen Eintrag ermöglichen?

Es geht um folgendes: Ich habe einen Stundenzettel, in welchem sich die Stunden automatisch zusammenrechnen mit 0,75 Stunden Pause.

Ein Arbeitstag von 8:00 bis 16:00 Uhr hat also 7,25 Stunden. Arbeisstart werden in C und D eingetragen. Um die Pausen auszurechnen existiert folgende Formel:

=WENN(ISTLEER(D18);"";((D18-C18) 24)-0,75)

Nun soll die Zelle aber auch per Hand eingetragen werden können, wenn z.B. Urlaub genommen wurde oder die Pausenzeit von den 0,75 Stunden abweicht oder KRankheit oder ... Daher kann ich die Formel nicht schützen.

Wenn jetzt jemand per Hand 8 Stunden einträgt, ist die Formel weg. Daher würde ich sie gerne schützen.

Geht dies und wenn ja wie?

LG Karsten

Hallo ich hoffe Ihr könnt mir helfen :/

Folgendes Problem: Wenn ich die Mail versende, öffnen sich für jede Zeile eine extra Email und leider auch nur jeweils ein Empfänger und einer in cc.

Was muss ich nun in der Programmierung hinzufügen, um nur eine Email geöffnet zu bekommen, mit mehreren Empfängern (Falls mehrere Kreuze gesetzt worden sind). Ich danke euch echt wenn Ihr mir helfen können :/

Ich habe mir die Bausteine aus dem Internet zusammengesetzt, bin daher kein Profi darin.

Programmtext:

Private Sub Send_Email()
   '-------------< Send_Email() >-------------
   Dim sTitle As String
   sTitle = "Test-HTML Email from Excel"
   '< HMTL holen >
   Dim sTemplate As String
   sTemplate = Sheets("ini_Vorlage").Shapes(1).TextFrame2.TextRange.Text
   '</ HMTL holen >
   '----< Send with Outlook >----
   Dim app_Outlook As Outlook.Application
   Set app_Outlook = New Outlook.Application
   '--< Email einstellen >--
   Dim objEmail As Outlook.MailItem
   Dim sEmail_Addresscc As String
   Dim sEmail_Address As String
   Dim iRow As Integer
   For iRow = 4 To 100
       If Cells(iRow, 21) = "x" Then
           '< get Email Address >
           'Column 2, B
           sEmail_Address = Cells(iRow, 19)
           sEmail_Addresscc = Cells(iRow, 20)
           '</ get Email Address >
           '< Fill Placeholders >
           Dim sHTML As String
           sHTML = Replace(sTemplate, "[@Name]", sEmail_Address)
           '</ Fill Placeholders >
           '--< Send Email >--
           Set objEmail = app_Outlook.CreateItem(olMailItem)
           objEmail.To = sEmail_Address
           objEmail.CC = sEmail_Addresscc
           objEmail.Subject = sTitle
           'objEmail.HTMLBody = sHTML 'use .HTMLBody for HTML
           objEmail.Body = sHTML      'and .body for pure Text
           objEmail.Display
           '--</ Send Email >--
       End If
   Next
   '< Abschluss >
   Set objEmail = Nothing
   Set app_Outlook = Nothing
   '</ Abschluss >
   MsgBox "Emails erstellt", vbInformation, "Fertig"
   '----</ Send with Outlook >----
   '-------------</ Send_Email() >-------------
End Sub

In Spalte C:C soll je ausgefüllter Zeile in Abhängigkeit von Wert in A:A und B:B folgende Berechnung stattfinden:

Zelle (A) = TT.MM.JJ hh:mm Zelle (B) = Werte 1,2,3 oder 4 ("Prioritäten")

• Zelle (C) = wenn B = 1; (A) +1/24 (Wert A plus eine Stunde)

• Zelle (C) = wenn B = 2; "Datum A! 16:30 Uhr!

• Zelle (C) = wenn B = 3; "Freitag der Woche aus Datum A! 12:00 Uhr!

• Zelle (C) = wenn B = 4; "Letzter Tag im Monat von Datum A! 00:00 Uhr!

Die Bedingung zu (1) bekomme ich noch hin, dann hakt es leider, ....

Ich suche ein VBA-Script mit deren Hilfe ich einen Bereich in meiner Tabelle nach einem Kommentar durchsucht, der den Inhalt von Zelle XY enthält. Die Zellen, sollen dann durch bedingte Formatierung eingefärbt werden. (Damit in Zelle XY dann etwas anderes reingeschrieben werden kann und die bedingte Formatierung darauf eingeht.)

Kann mir da jemand weiterhelfen? Ich versuche soetwas mit der Aufzeichnungsfunktion hinzubekommen, aber das klappt nicht!

Danke!

Hallo kann man irgendwie umändern bei den Tabellen, dass da wo jetzt 1, 2, 3 ... steht das steht was oben steht, also A, B, C ... und andersherum???

Guten Morgen zusammen, ich habe eine Tabelle, in der Audits geplant werden. Von Spalte K bis Spalte BI sind die einzelnen Kalenderwochen eingetragen und bei den jeweiligen Produkten darunter steht immer eine 1 wenn ein Audit in der KW erfolgen soll. In Spalte I möchte ich mir jetzt durch Komma getrennt die KW anzeigen lassen, in der das Audit geplant ist. Mein VBA sieht folgendermaßen aus:

Function VerbindeKW(Bereich As Range) As String

   Dim Zelle As Range

   Dim Ergebnis As String

   Dim KW As Integer

   For Each Zelle In Bereich

       If Zelle.Value = 1 Then

           KW = Zelle.Column - 10 ' K = Spalte 11 = KW1

           Ergebnis = Ergebnis & "KW" & KW & ", "

       End If

   Next Zelle

   If Ergebnis <> "" Then

       VerbindeKW = Left(Ergebnis, Len(Ergebnis) - 2)

   Else

       VerbindeKW = ""

   End If

End Function

Jetzt gibt die Funktion mir die allererste Kalenderwoche korrekt zurück (aber auch nur in der ersten Zelle) und danach ist es immer eine KW zu wenig. Ich habe mich fest auf Spalte K festgelegt, weil dort KW1 hinterlegt ist. Kann mir jmd da weiterhelfen? Herzliche Grüße Annette

Hallo Zusammen,

Frage 1:
ich habe folgende Situation, ich darf und möchte in einer Tabelle ein Kontrollkästchen einfügen, welches dazu dient spalten anzeigen oder verschwinden zu lassen.
Sieht aktuell wie folgt aus.

Soll: Wenn ich in B2 das Kästchen anklicke, dann soll sich Spalte "C" auf oder zu klappen, je nachdem of die funktion "WAHR" oder "FALSCH" ist.
Ich habe bereits auf einigen Foren herumgestöbert aber bisher hat es die Formeln die ich eingegeben habe nicht übernommen. Welche Angabe in der Formel ist nicht korrekt?

Frage 2:
Ich würde zusätzlich in einer Spalte daneben ein Dropdown menü einbinden und unsere Lieferanten mit angeben. Ist dies in der Kombination möglich?

Frage 3:
Werden die Formeln in eine Mail mitübernommen? Ich möchte dies als Grundlage zur Preisanfragen an unsere Lieferanten nutzen. Es soll einheitlich sein und die Optionen bspw. Preis und/oder Muster anzufragen.

Ich danke euch für eure Hilfe.

Mit freundlichen Grüßen
Ark

Hallo Community.

Ich kann folgendes Problem nicht lösen:

Ich möchte in einem geschützen Excel-Tabellenblatt in eine Zelle, zB G21, ein Datum eintragen. Wenn man mit Tab oder durch Anklicken die Zelle erreicht, soll sich ein Mini-Kalender öffnen, bei dem man das entsprechende Datum einfach anklicken kann. Nun habe ich schon viel recherchiert. In meiner Liste der ActiveX-Steuerelemente ist der Mini Date and Time Picker nicht enthalten. Gehe ich über die verfügbaren Add Ins wird der Kalender zwar eingefügt, bleibt aber auch da und steht quasi "mitten im Weg".

In der Zusammenfassung: Zelle wird erreicht oder angeklickt, Kalender öffnet sich, Datum anklicken und es wird in eine bestimmte Zelle übernommen. Entweder unmittelbar danach oder beim Verlassen der Zelle soll der Kalender wieder ausgeblendet werden.

Gibt es dafür eine Lösung? VBA kann ich leider (noch) nicht.

Vielen Dank für eure Informationen, Ratschläge und Lösungen.

Piper Kasi

Hallo!

Wir arbeiten mit einer Excel Tabelle und haben verschiedene Spalten, die alle gefiltert werden können. Die Tabelle ist auch als Tabelle formatiert.

Um einen neuen Datensatz einzugeben, müssen alle Filter zurückgesetzt werden. Also nicht gelöscht, sondern wieder auf Standard zurückgesetzt werden.

Ist das irgendwie möglich? Evtl. Mit einer Tastenkombination oder sogar mit einem Button?