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

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 Leute. Ich habe ein Makro geschrieben, dass zurzeit den Output in einen Ordner ablegt der im selben Verzeichnis liegt wie das Makro selbst.

Nun hätte ich es gerne so, dass egal welcher Nutzer das Makro nutzt der Output bei ihm auf dem Desktop gespeichert wird.

Mein Savepfad ist zurzeit so:

savePfad = ThisWorkbook.Path & "\Makro Output" & Auftraggeber & "(" & OhneSonder & ").docx" 

Wie müsste ich das jetzt abändern, dass er es auf dem Desktop speichert.

Also C:\Users\Name\Desktop .. Name wär ja dann variabel, gibts da irgendwie eine Möglichkeit?

Danke im vorraus.

Hallo Leute, ich würde gerne meine beiden Input Elemente nebeneinander in die Mitte des Bildschirms haben. Habe schon versucht ein DIV außenrum zu erstellen und diesem text-align:center zu geben. Hat leider nicht geholfen.

Mein Code:

<div class="upperForm form-row">
  <div class="form-group">
    <label for="name1">Name</label>
    <input type="text" class="form-control main-input" id="name1" placeholder="">
  </div>
  <div class="form-group">
    <label for="exampleInputEmail1">Email</label>
    <input type="email" class="form-control main-input" id="exampleInputEmail1" aria-describedby="emailHelp" placeholder="">
    <small id="emailHelp" class="form-text text-muted">We'll never share your email with anyone else.</small>
  </div>
</div>

Servus Leute,

ich möchte einen Serienbrief mit Word und Excel erstellen.

Ich habe zwei Word Vorlagen erstellt, eine für die Menschen die ich Duzen möchte und eine Vorlage für Leute die ich siezen möchte.

In der Excel Datenbank gibt es ein Feld für Duzen, dieses ist entweder mit einem x gefüllt oder leer. Anhand dieses Feldes soll jetzt entschieden werden, ob ich für die Person die Sie oder Du Vorlage brauche.

Außerdem gibt es ein Feld für Weihnachten, dass auch mit einem x gefüllt sein muss.

Also Bedinung für Du Vorlage: Duzen = x und Weihnachten = x und die Bedingung für die Sie Vorlage: Duzen ungleich x und Weihnachten = x

Im Prinzip würde ich jetzt die Du Vorlage öffnen, dort alle Briefe erstellen und anschließen das selbe mit der Sie Vorlage machen. Mit Hilfe der Regeln möchte ich bezwecken, dass keine Person zwei Briefe bekommt, also einmal mit Sie und einmal mit Du.

Die Frage ist jetzt wie mach ich das mit den Regeln?

Die Vorlage für den Du-Brief sieht wie folgt aus:

«Anrede» «Vorname», Ich wünsche Dir und Deiner Familie schöne Weihnachtstage und für das Jahr 2017 Glück, Gesundheit und viel Erfolg! «Persönlicher_Gruß_zu_Weihnachten»

Die Felder Anrede, Vorname und Persönlicher Gruß sind natürlich auch in der Excel Tabelle eingetragen.

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu:

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Hallo Community,

ich habe ein Makro geschrieben, das auf eine Excel-Datei zugreift. Der Pfad für die Datei steht in meinem Makro drin und ist als String abgespeichert.

Ich möchte aber, weil sich der Name der Excel Datei von Monat zu Monat ändert, dass sich ein Fenster öffnet über das man die richtige Excel Datei auswählt und das dann den Pfad zu dieser Datei in meinem Makro speichert.

Also nicht so wie es bis jetzt ist, dass der Pfad von anfang an drin steht, sondern so dass beim ausführen des Makros ein Fenster geöffnet wird wo man selbst die Datei und somit den Pfad auswählen kann.

Liebe Grüße

Chris

Servus Leute, ich hätte eine kleine Frage zu VBA:

Wie schaffe ich es, dass mein Programm eine bestimmte Zeile von unten nach oben durchläuft.

Hier meine Variante für das durchlaufen von Oben nach Unten

maxRow2 = sheet2.Cells(sheet2.Rows.Count, "A").End(xlUp).row

For row2 = 1 To maxRow2
Do something     
Next row2

Wie muss ich das abändern, damit die Spalte von Unten nach Oben durchgelaufen wird?

Hallo liebe Leute,

ich habe mal wieder ein Problem. Ich möchte gerne Daten wie Anschrift, Firma, Ansprechpartner, Anrede usw. aus Emails auslesen und in Excel einfügen. Bisher habe ich das alles von Hand gemacht, aber es muss doch auch eine Möglichkeit geben um das zu vereinfachern.

Die Emails sehen nicht alle immer unbedingt gleich aus, was die Aufgabe meiner Meinung nach sehr viel schwieriger macht. Die Mails sind in keinem besonderen Format vorhanden, am coolsten wäre es, wenn man beim Start des Makros eine Email eingeben kann, und das Makro dann die passende Mail aus meinem Outlook Maileingang auswählt.

Am Liebsten wär mir ein Makro in Excel, dass dann diese Mail durchgeht und Adresse, Anrede, Firma, PLZ usw. raussucht und in Excel einfügt. Z.b. if ( untersuchtes wort = zahl zahl zahl zahl zahl ) dann soll das Makro darauf kommen, dass hier wahrscheinlich die PLz zu finden ist. Oder irgendwo steht mfg und das was danach kommt ist dann wahrscheinlich der Ansprechpartner.

Habe allerdings keinen Schimmer wie ich da ran gehen soll und ob das überhaupt geht.

Ich hoffe jemand kann mir da weiterhelfen :)

Beste Grüße

Chris

Hallo!

Zurzeit versuche ich mich an VBA. Ich habe ein Makro erstellt, dass aus einer Excel Tabelle z.B. eine Rechnung erstellt ( durch befüllen der Texftfelder einer Vorlage )

Nun wollte ich das Makro so umändern, dass automatisch der richtige Pfad zum Speichern bzw Öffnen der Vorlage, für den jeweiligen Windows Nutzer benutzt wird. ( Das habe ich mithilfe von Workbook.Path gemacht.

Allerdings gibt er mir jetzt immer Laufzeitfehler 429 aus und ich weiß nicht was zu tun ist.

Bitte helft mir. ( Office und Word sind up to date )

Grüße

Chris

Hier mein Code: https://paste2.org/E8ZmvBXk

Hallo liebes Gute Frage Forum,

ich bin ein blutiger Anfänger im Programmieren und möchte mich trotzdem an eine, wie ich finde, nicht ganz so leicht Aufgabe wagen.

Ich hoffe es erbarmt sich jemand und hilft mir weiter.

Meine Aufgabe:

Ich habe eine ExcelDatenbank die mehrere Einträge für mehrere Kunden verwaltet. ( Name, Anrede, Straße usw. )

Außerdem habe ich ein Word Dokument erstellt in das ich die Word Textmarken eingefügt habe ( Ebenfalls so benannt Name, Straße, Anrede usw. )

Nun möchte ich in Excel eine Zeile anklicken und anschließend das Makro ausführen. ( Das Makro soll dann nur für die Ausgewählte Zeile ausgeführt werden )

Die Vorlage soll aber nicht überschrieben werden, es soll ein neues Word Dokument erstellt werden, in dem die Felder dann ausgefüllt sind ( Am besten mit anderem Speicherpfad den ich dann auch direkt im Makro eingeben kann. )

Natürlich habe ich es auch schon selber versucht, allerding haben mir die Codeschnipsel die ich aus dem Internet geholt habe nicht ganz geholfen.

Hier mein Code: http://paste2.org/wFtw5UId

Mein Problem ist es nun, dass nur das letzte Textfeld wo ich die Referenz auf "Hallo" gesetzt habe befüllt werde, die anderen jedoch nicht obwohl excel keine fehlermeldung ausspuckt..

Außerdem hätte ichs gerne so wie oben beschrieben, dass er nur die Vorlage mit den Textmarken öffnet aber nicht überschreibt sondern ein neues Dokument mit den ausgefüllten Textmarken erstellt. (Pfad soll im Makro bestimmt werden)

Ich hoffe sehr das mir jmd. weiter helfen kann

Einen wunschönen Tag noch :)