VBA – die besten Beiträge

Hallo Leute

Ich habe folgendes Problem: Mein Chef hat mir folgende Aufgabe erteilt. Er hat mir in excel eine Liste gegeben in der in der ersten Spalte immer nur jeweils Kunde oder Mitarbeiter steht. In der dritten Spalte stehen für die jeweiligen Kunden und Mitarbeiter die Kundennummern. Da unsere Mitarbeiter meistens auch gleichzeitig Kunden sind möchte er dass diese nur noch als Kunden eingetragen sind da er bereits eine separate Liste angefertigt hat. Meine Frage ist wie ich Mithilfe von vba die doppelten Kundennummern abhängig von der ersten Spalte löschen kann. Wäre da jemand möglicherweise bereit ein solches Programm zu schreiben oder hat bereits jemand das selbe Problem gehabt

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

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

Hallo zusammen,

ich habe vor in mehreren Spalten zu kontrollieren, ob sich eine leere Zelle befindet. Wenn ja soll eine Msgbox angezeigt werdne und der Sub soll beendet werden. Wenn nicht soll er fortfahren. Allerdings kommt es bei mir zu einer Fehlermeldung "Typen unverträglich". Wo hat sich der Fehler eingeschlichen? End If befindet sich weiter unten.

Sub SendMeetingRequest_2()

   Dim Bereich As Range

   Set Bereich = Range("F2:H41", "B2:B41") 'Zellbereich

   With Application.WorksheetFunction

   Dim objOL As Object  'As Outlook.Application

   Dim objAppt As Object 'As Outlook.AppointmentItem

   'Const olAppointmentItem = 1

   Const olMeeting = 1

   Dim ReminderTime As Long

   Dim lfdnr As Integer

   lfdnr = 2

   'Überprüfung erstellen falls Aufgaben leer sind

'lfdnr = 4

If Bereich.Value = "" Then

MsgBox "Bitte fehlende Daten eintragen"

Call Leere_zellen_hervorheben

Exit Sub

Else

Danke für eure Hilfe!

Hallo zusammen,

ich kann Userformen anlegen und auch Felder zuweisen etc. Aber nach dem ersten Start kann ich diese nicht mehr im Entwurfsmodus öffnen um diese weiter zu bearbeiten.

Wer kann mir helfen?

Hi,

ich möchte mithilfe einer VBA Schaltfläche eine Formel in eine Zelle schreiben, bekomme aber mal den Fehler: erwartet Anweisungsende und mal einen Syntaxfehler

With ThisWorkbook.Worksheets("Tabelle1").Activate

Range("K20").Value = "=WENN(B25="4:3";E10/0,8;WENN(B25="16:9";E10/0,87;"Fehler"))"

End With

End Sub

Hallo,

ich habe durch den unten beigefügten Code versucht eine E-Mail samt Signatur automatisch kommen zu lassen. Nun habe ich das Problem, dass die Absätze in der Mail weg sind und alles in einer Zeile ist. Wie behebe ich das?

Private Sub CommandButton2_Click()

Dim objOutlook As Object

Dim objMail As Object

Dim S As String

Dim body As String

Dim htbody As String

Set objOutlook = CreateObject("Outlook.Application")

Set objMail = objOutlook.CreateItem(0)

If TextBox2.text = "" Or TextBox2.text = TextBox1.text Then

   body = "Sehr geehrte Frau x," & vbCrLf & _

   vbCrLf & _

   "Folgende/r Mitarbeiter/in ist erkrankt:" & vbCrLf & _

   vbCrLf & _

   ComboBox1.text & vbCrLf & _

   vbCrLf & _

   "Zeitraum: " + TextBox1.text

Else

   body = "Sehr geehrte Frau x," & vbCrLf & _

   vbCrLf & _

   "Folgender Mitarbeiter ist erkrankt:" & vbCrLf & _

   vbCrLf & _

   ComboBox1.text & vbCrLf & _

   vbCrLf & _

   "Zeitraum: " + TextBox1.text + " bis " + TextBox2.text

End If

htbody = fnConvert2HTML(htbody)

S = Environ("appdata") & "\Microsoft\Signatures\autoE-Mailsenden.htm"

If Dir(S, vbDirectory) <> vbNullString Then

   S = S

   S = CreateObject("Scripting.FileSystemObject").GetFile(S).OpenAsTextStream(1, -2).readall

       With objMail

            .To = "x.de"

            .Subject = "Krankmeldung " + ComboBox1.text + " x"

            htbody = body & "<br><br>" & S

           .htmlbody = "<font face=""Arial"">" & htbody & "</font>"

        .Display       'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

       End With

Else

'   With objMail

'                 .To = Empfänger

'                 .Subject = Betreff

'

'

'                   htbody = body '& "<br><br>" & S

'                  .htmlbody = "<font face=""Arial"">" & htbody & "</font>"

'                  .Display

'

'

'          '    .Display       'Erstellt die Email und öffnet diese. Der Versand erfolgt anschließend manuell vom User!

'   End With

End If

End Sub

Zudem noch folgende Funktion:

Function fnConvert2HTML(myText As String) As String

   Dim bldTagOn, itlTagOn, ulnTagOn, colTagOn As Boolean

   Dim i, chrCount, n As Integer

   Dim chrCol, chrLastCol, htmlTxt As String

   Dim myChar As String

   bldTagOn = False

   itlTagOn = False

   ulnTagOn = False

   colTagOn = False

   chrCol = "NONE"

   htmlTxt = "<html>"

   chrCount = Len(myText)

End Function

Danke im voraus!!!

Hallo Excel Freunde,

ich führe in Excel eine Preisliste soweit die Gültigkeit überschritten wird erscheint ein Roter Trauriger Smilie. Wäre dies möglich soweit dies passiert das die ZEILE leuchtet?

Hallo,

ich erstelle gerade einen Projektplan und würde gerne ein Makro einbinden das ein Untergruppierung für eine Zelle einbindet wenn ich die Zelle anklicke.

z.B. ich klicke Zelle B22 an und es wird eine neue Zeile darunter mit "Plus" Gruppierung angelegt.

VG

Guten Tag

Ich will mittels eines Makros eine Excel in eine Ics datei Kopieren. Ich habe folgende Informationen in der Excel Datei: Uhrzeit und Datum.

Ich weiss jedoch nicht, wie ich die Informationen in eine Ics Datei umwandeln kann...

Kann mir einer dabei helfen?

Ich danke bereits im Vorraus

Hallo liebe Helferinnen

Ich möchte eine Spalte mit Preisen so sortieren, dass es von teuer nach günstig geht. Mit der Option Sortieren von Z nach A funktioniert das leider nicht.

Kann mir da jemand eine einfache, aber effektive Lösung zeigen, um von Bild 1 direkt auf Bild 3 zu kommen?

Danke und liebe Grüße

Nachtrag:

In der kleinen Beispieltabelle mit den 10 Zeilen hat es hervorragend funktioniert, aber in der großen Tabelle mit tausenden Zeilen und 15 Spalten klappt es nicht.

Woran könnte es liegen? Also ich bin folgendermaßen vorgegangen:

1- Ursprungsdatei ist eine Textdatei.

2- Dieser habe ich in Excel geöffnet und die Spalte Preise als Text formatiert, damit es nicht als Datum umgewandelt wird..

3-Habe dann alle Punkte mit Kommas ersetzt

4-Sortiert von Z nach A, aber leider sortiert es nach der Zahl z.b. 99->8,5->77->6,31 und nicht 99->77->8,5->6,31 und nicht von der größten zur kleinsten Zahl

Was mache ich falsch? .(

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?

Moin,

gibt es eine Möglichkeit einem Makro in Word eine Tastenkombination zum starten zuzuweisen?

Ich habe mich schon etwas eingelesen und oft den Hinweis gefunden, unter "Makros" und "Optionen" dem Makro eine Tastenkombination zuzuweisen.

Optionen fehlt mir aber in dem Menü, dafür habe ich dort "Organisieren" stehen. Eigentlich möchte ich das ganze im VBA Code hinterlegen, damit das Makro auf jedem PC immer gleich ausgeführt werden kann.

Ich hoffe ihr könnt mir helfen.

Gruß

Guten Morgen zusammen

Ich wollte wissen, wie ich eine Tabelle mittels einem Multidimensionalem Array einlesen kann. Jedoch soll es dynamisch eingelesen werden, also nicht Hardkodiert. Also der Array(1, 1) hätte den Wert "1", der Array(1, 2) hätte den Wert "Aufbau", der Array(2, 1) hätte den Wert "2", usw. Es werden jedoch nur die Zellen eingelesen, welche grün sind. Wenn in der Zelle der Spalte B kein Wert drin steht (z.B. B33) dann wird die ganze Zeile nicht eingelesen.

Ich benötige nur den Anfang, also das Einlesen der Art und noch nicht den Teil mit Projekte.

Ich danke bereits im Vorau

Hallo Community,

ich bin ein Anfänger in Microsoft Access. Ich habe bis jetzt eine Tabelle erstellt (TableTest) in dieser gibt es unter anderem das Feld "Name".

Nun möchte ich ein Formular für diese Tabelle erstellen, das hat soweit auch geklappt. Mein Problem ist jetzt, dass ich gerne eine Schaltfläche in das Formular einbauen würde, diese Schaltfläche soll dann ein Modul ausführen, welches prüft ob der Formular Eintrag bereits in der Tabelle enthalten ist.

Ich verstehe nicht so ganz wie ich das Modul an die Schaltfäche binden kann.

Durch recherche im Internet bin ich auf folgenden Code für mein Modul gekommen:

Option Compare Database
If DCount("Feldname", "Tabellenname", "Feldname = " & Me!FormularFeld) > 0 Then MsgBox ("Eintrag schon vorhanden") Cancel = True End If

Später möchte ich dann noch ein else einbauen, und mit dem Feldnamen weiter arbeiten, falls dieser schon vorhanden.

Falls ihr weitere Informationen braucht, meldet euch gerne.

Gruß

Chris

 with Range("K2").validation
      .Delete
      .add xlValidateList, AlertStyle:=xlValidAlertStop, _ 
      Operator:=xlBetween, Formula1:="=BEREICH.VERSCHIEBEN _
       (kunde1;0;0;ANZAHL2(kunde1)-ZAEHLENWENN(kunde1;0))"
end with

Wäre sehr dankbar für Hilfen.

Mit freundlichen Grüßen

Matze

Hallo^^

Also ich soll gerade ein Userform erstellen mit einer Textbox und 2 Schaltflächen bei der ersten schaltfläche soll der Textbox mein Name zugewiesen werden, allerdings bekomm ich das irgendwie nicht hin. Ich weiß zwar wie man etwas aus der Textbox in eine Zelle einfügt, aber nicht wie man etwas in die Textbox bekommt.

Wie funktioniert das ???

Hallo Community,

ich habe folgendes Problem.

Ich habe eine Excel Tabelle mit vielen ID's (Spalte B) und einen Ordner mit HTML-Dateien, die den IDs zugeordnet sind.

Im ersten Schritt bin ich alle ID's durchgegangen und habe falls vorhanden, die passende HTML Datei in einen Ordner abgespeichert.

Nun kommt der zweite Schritt bei dem ich eure Hilfe brauche. Ich möchte alle gefunden HTML Dateien durchgehen und nach einem bestimmten Bereich suchen. Im HTML Code sieht das ungefähr so aus:

<td class="category">
 <a name="attachments" id="attachments">Angehängte Dateien</a> </td>
<td colspan="5">
<a> unwichtig </a>
<a> WICHTIG </a> <- Hier steht der gesuchte Dateiname
<a> Unwichtig </a>
</td>

Das Ding ist, dass in diesem <td> Tag auch mehrere Dateien aufgeführt sind, der Aufbau ist aber immer gleich. Pro Datei gibt es 3 mal ein <a>-Tag und im mittleren stehen die wichtigen Informationen. Es gibt auch den Fall, dass dort keine Dateien und somit auch keine <a>-Tags vorhanden sind.

Mein bisheriges Makro sieht wie folgt aus:

 Const path = "M:*"
    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.Worksheets(2)
    maxRow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).Row
    Dim id As String
    Dim sourcePath As String
    Dim destPath As String
    Dim Filename As String
    For Row = 2 To maxRow
      sourcePath = path & "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      Filename = "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      MkDir (path & "gefunden\" & sheet.Cells(Row, 2))
      destPath = path & "gefunden\" & sheet.Cells(Row, 2) & "\" & sheet.Cells(Row, 2) & ".html"
      If Dir(sourcePath) = Filename Then
      FileCopy sourcePath, destPath
      Else
      MsgBox (sheet.Cells(Row, 2) & " nicht gefunden")
      End If
    Next Row

Um das alles nochmal zusammenzufassen, ich weiß nicht wie ich an die Namen der aufgeführten Dateien im HTML Dokument komme.

Wenn ich die Namen der Dateien erstmal habe, könnte ich auch weitermachen und die HTML-Doks mit passendem Anhang in einen Ordner kopieren.

Ich hoffe ihr verstehe was ich meine, für Fragen stehe ich gerne zu verfügung.

Grüße

Chris

Hallo,

Wie kann ich eine Userform aufrufen sobald Zelle I4 = 1 wird?