Nehmen wir mal an, ich habe eine ACCESS-Datenbank.

In der Datenbank gibt es N Datensätze mit M Datenbankfeldern.

Von den M Datenbankfeldern sollen Z Datenbankfelder in einem QR-Code verschlüsselt und ausgedruckt werden.

Wie kann man die QR-Code-Verschlüsselung implementieren?

Hallo,

ich habe ein Problem mit Excel VBA. Ich habe eine Arbeitstabelle, die inzwischen über 76000 Zeilen beinhaltet. Deshalb möchte ich mit VBA eine Userform erstellen, die das Suchen einer bestimmten Zeile leichter macht.

Bis jetzt läuft es ganz gut, aber ich habe 1. das Problem, dass wenn ich einen Suchbegriff in eines der Textfelder eingebe, er mir immer nur die erste Zeile markiert, in der der Begriff steht. Da aber der Begriff noch öfter vorkommt, bringt es mir ja nichts, nur die erste Zeile markiert zu bekommen.

Das 2. Problem ist, dass bis jetzt nur die gesuchte Zeile farbig markiert wird. Ich möchte es aber hinbekommen, dass alle Zeilen, bei denen der Suchbegriff nicht vorkommt, ausgeblendet werden.

Hier mein bisheriges Skript für das erste Suchkriterium:

Sub Suche_Click()

Dim x As String

Dim Z As Integer

Dim temp As Integer

Z = Sheets(1).UsedRange.Rows.Count

x = Belegnr1 [Textbox-Name]

temp = 0

For i = 2 To Z

    If Cells(i, 1) = x Then

        temp = 1

        Exit For

      End If

Next

If temp = 1 Then

  ActiveSheet.Rows(i).Interior.ColorIndex = 6

  ' ActiveSheet.Rows(i).Hidden = False [Hier Problem Nr.2 ! ]

  ' ActiveSheet.Rows.Hidden = True

Else

' ActiveSheet.Rows.Hidden = True

MsgBox "Belegnummer nicht vorhanden. Bitte prüfen Sie ihre Eingabe."

End If

End Sub

Danke im Voraus!

Hallo!

Ich möchte ein Tool in VBA erstellen. Basis bildet eine Tabelle, in der Teile gelistet und deren Zustand eingetragen werden sollen. Entsprechend dem Zustand ergibt sich ein Wert von 5EUR doer 10EUR. Soweit habe ich es in VBA schon regeln können, nur soll die Liste beliebig lang werden und ich möchte nicht für die kommenden 300+ Zeilen die If-Else Formel immer aufs neue tippen. Gibt es eine Vereinfachung dafür?

Danke Im Voraus!

Hallo,

ich würde gerne eine Zeilenumbruch in einem Listenfeld machen kann mir jemand sagen wie das geht?

(das der Text automatisch in die nächste Zeile gesetzt wird.) Ich habe schon im Internet gesucht doch nur irgendwelche VBA Schleifen gefunden. Ich möchte das allerdings NICHT mit einer Schleife machen wollen. Gibt es irgendwo einen Harken den ich übersehen habe? oder eine VBA Funktion?

Danke und Schönes Wochenende

Dennis

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

Hallo ich habe gerade folgende Situation:

Ich habe zwei Dateien die identisch Aufgebaut sind.

Datei1 wird auf SAP exportiert und sieht wie folgt aus: Spalte B User 1 - 80; Spalte M Anmeldedaten für die jeweiligen User.

Datei2 auf dem PC als Übersicht: Spalte F User1-80 und Spalte M die Anmeldedaten welche aus der exportierten Datei eingetragen und aktualisiert werden sollen. Nun kann es sein dass aus Datei ein zb User 2 oder 33 etc fehlt, deshalb soll er mit datei 2 vergleichen und zu den richtigen Usern die Anmeldedaten eintragen.

Ich habe da schon folgendes Programmiert aber es wird nichts eingetragen ich hoffe ihr könnt mir helfen:

Dim aktuelleZelle As Range
Stamm = datei2
Quelldatei = datei1
For Each aktuelleZelle In Sheets("SAP-Abfrage_GEN-User_SUIM.xls")
  If datei1.Sheets("SAP-Abfrage_GEN-User_SUIM.xls").Range("M29:M105") = datei2.Sheets("Tabelle1").Range("M2:M81") Then
    Workbooks(Quelldatei).Sheets("SAP-Abfrage_GEN-User_SUIM").Range("M29:M105").Copy
    Workbooks(Stamm).Sheets("Tabelle1").Range("M2:M81").PasteSpecial xlPasteValues
    Application.CutCopyMode = False

    End If
Next aktuelleZelle

Hallo,

gibt es die Möglichkeit mittels Excel Makro alle Spalten außer folgende mittels eines Buttons auszublenden:

A – E

H – J

M – R

W – Y

AA

AC

AE

AZ – BF

Habe bereits etwas ähnliches, funktioniert aber klarerweise nur mit dem bereich von bis:

rivate Sub ToggleButton1_Click()

If Columns("D:E").EntireColumn.Hidden = False Then

  Columns("D:E").EntireColumn.Hidden = True

  ElseIf Columns("D:E").EntireColumn.Hidden = True Then

    Columns("D:E").EntireColumn.Hidden = False

End If

End Sub

Danke

EDIT: bereits kurz nach Fragestellung selbst gelöst mit cancel =true nach Print background.... Verzeihung, war in der Arbeit und konnte erst jetzt eure Antworten sehen. Trotzdem vielen Dank!

Hallo zusammen.

Ich würde gerne einen commandButton kurz vor dem Drucken verkleinern und nach dem Drucken wieder groß anzeigen. Leider wird das Dokument zweimal ausgedruckt.

es soll beim normalen drucken passieren.

der befehl für das Druck event:

Private Sub appWord_DocumentBeforePrint _
 (ByVal Doc As Document, _
 Cancel As Boolean)
CommandButton1.Height = 0.75
CommandButton1.Width = 0.75
CommandButton2.Height = 0.75 CommandButton2.Width = 0.75


ActiveDocument.PrintOut Background:=False


CommandButton1.Height = 24 CommandButton1.Width = 100 CommandButton1.PicturePosition = fmPicturePositionRightTop

CommandButton2.Height = 24
CommandButton2.Width = 461
  End Sub

Das intializieren

Private Sub Document_New()
Set appWord = Word.Application
End Sub
' Private Sub Document_Open() Set appWord = Word.Application

End Sub

Hallo,

ich bin leider noch eine niete was VBA angeht, weshalb ich gerade auf externe Hilfe angewiesen bin. Und zwar habe ich eine Excel Datei in dem z.B ab Zelle A15 bis A90 verschiedene Daten(Datum ebem) stehen.

Es kann auch sein dass manche Zellen ohne Datum sind. Nun versuche ich ein VBA Makro zu erstellen, welches sobald man die Datei öffnet durch ein MsgBox abfrage diese Daten mit dem heutigen Datum vergleicht und mir im Outlook einen Reminder eine Woche vorab erstellt wenn diese Daten älter als 5 Wochen sind und diese bald ablaufen.

Ich wäre euch äußerst Dankbar wenn man mir die Bausteine dazu zur Verfügung stellt.

Grüße

für beide brauche ich keine großartige IDE installieren (was mir sehr entgegenkommt)

In dem Formular wird in ein Feld gescannt, wodurch ein Druck eines Etiketts ausgelöst wird.

Wie bekomme ich es hin damit der Cursor nach dem Druck wieder in dem Scanfeld ist, damit reibungslos weiter gescannt werden kann?

Moin, Ich habe in Zelle A3 eine Formel hinterlegt.

in Zelle A5 soll nun der Wert ausgegeben werden FEST (also einmalig, nicht, dass sich A5 ändert, wenn sich A3 ändert, dann ware es ja einfach =A3...)
Jemand eine Idee? Auch gerne VBA.

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der wert/Value geändert werden soll. aber es passiert nichts.....

in modul3:

sub test() 

UserForm1.Show

 UserForm1.TextBox1.Value= "test"

end sub

der inhalt bleibt gleich und wird nicht auf "test" geändert...

Ich bin am verzweifeln. seit längerer zeit verzweifle ich an einem absoluten basic.

ich habe eine userform angelegt. auf dieser eine textbox gezeichnet.

in einem anderen modul schreibe ich, dass der caption geändert werden soll. aber es passiert nichts.....

in modul3:

sub test() 

UserForm1.Show

 UserForm1.Label1.Caption = ""

end sub

der caption bleibt...

Ist es möglich via VBA von einem Etikett zum anderen zu springen und diese zu füllen?

ich erstelle mittels vba ein neues Etiketten Dokument und möchte dieses mit einem Array füllen. Wie kann ich von einem Etikett zum nächsten Springen?

Moin,

Ich möchte aus einer UserForm (Textbox) einen wert (numerisch) als Zahlenwert in eine Zelle ausgeben.

Mein Problem besteht darin, dass Excel den wert als Text erkennt...

Public gewicht As Single
'----
ActiveSheet.Cells(7 , 6).Value = gewicht

Hat jemand eine Idee, wie ich da eine Zahl, mit der ich in Excel selber rechnen kann, draus macht

Hallo,

Ich habe ausversehen bei einer Userform oben rechts aufs X geklickt.

Wie bekomme ich die nun wieder zurück?

Erstellt mir immer nur neue Userforms, sprich Userform2 Userform 3 etc.

LG

Marius

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

Servus Leute,

Ich habe ein Userform in Excel mit Multipage erstellt.

Nun möchte ich auf der letzten Multipage Seite einen Button einbauen. Auf Knopfdruck sollen dann alle Eingaben die vom User auf den einzelnen Multipageseiten gemacht worden sind in ein Excel Tabellenblatt übertragen werden.

Mein Ansatz war dem Button folgenden Code zu geben:

    Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
    If CheckBox1.Value Then
      sheet2.Cells(maxRow2 + 1, 9).Value = "ja"
      Else
        sheet2.Cells(maxRow2 + 1, 9).Value = "nein"
        End If
              sheet2.Cells(maxRow2 + 1, 13).Value = TextBox4.Value

Das funktioniert leider nicht wie ich es mir erhofft habe, auf Knopfdruck werden keine Daten übertragen. Ich habe die vermutung, dass nicht auf die Felder wie z.B. TextBox4 zugegriffen werden kann, weil die auf einer anderen Seite im Multipage sind.

Wie schaffe ich es an die Variablen ranzukommen. Ich hatte noch überlegt, im Code der jeweiligen Seite den Wert aus der Textbox in eine Variable zu setzen, die z.B. Global ist. Aber da bin ich auch schon wieder überfragt wie man das macht.

Außerdem habe ich noch eine Frage zu den Checkboxen.

Es soll folgende Möglichkeiten geben:

1. Wenn Checkbox nicht angeklickt, dann kann man immer zu nächsten Kategorie ( Nächste Seite im Multipage)
2. Wenn Checkbox angeklickt ist und variable x leer, dann soll man nicht weiter kommen (Msgbox)
3. Wenn Checkbox angeklickt ist und variable x befüllt, dann kann man zur nächsten Kategorie (Nächste Seite im Multipage)

Für eine Checkbox habe ich das schon hinbekommen, aber wie mach ich das wenn es mehrere Checkboxen gibt. Weil ich glaube wenn ich das so mache wie bisher, dann wird das eine endlose anreihung von if bedingungen.

Diesen Code habe ich dann auf den Button gelegt, mit dem man zur nächsten Kategorie kommen soll oder eben halt nicht.

  Dim sheet2 As Worksheet
    Dim maxRow2 As Long
    Dim check3 As Boolean
    Set sheet2 = ActiveWorkbook.Worksheets(1)
    maxRow2 = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row
   
    If CheckBox3.Value Then
    If Test = False Then
    MsgBox ("Kein Pfad angegeben")
    Else
  Dim iNextPage As Long
    With Me.MultiPage1
        iNextPage = .Value + 1
        If iNextPage < .Pages.Count Then
            .Pages(iNextPage).Visible = True
            .Value = iNextPage
        End If
    End With
    End If
    Else
    Dim iNextPage2 As Long
    With Me.MultiPage1
        iNextPage2 = .Value + 1
        If iNextPage2 < .Pages.Count Then
            .Pages(iNextPage2).Visible = True
            .Value = iNextPage2
        End If
    End With
    End If

Und als letztes würde ich gern noch wissen ob es möglich ist, zu unterbinden, dass der User oben im Multipage die Kategorie direkt anklicken kann und man halt nur über den "weiter" button zur nächsten kategorie kommt.

Gruß Chris

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 möchte ein VBA-Programm schreiben, dass mir aus einem eingegeben Wort alle möglichen Anagramme erzeugt und auflistet.

Ob die erzeugten Wörter einen Sinn ergeben oder nicht ist dabei irrelevant.

Was gibt es da für Möglichkeiten? Lässt sich das als Anfänger durch For/Next und Do/Loop schleifen mit simplen Befehlen lösen?

Ich würde iwie den Buchstaben Variablen zuordnen, sowie den möglichen Stellen (Anzahl der Buchstaben). Wie erzeuge ich einen Befehl, der mir die Buchstaben durcheinanderwürfelt?

MfG und Vien Dank!  

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?

Guten Tag zusammen,

Beim Programmieren ist folgendes Problem aufgetreten:

Beim anklicken des Button, soll der Bereich (z.B.) A27 bis AC61 in eine .ics Datei umgewandelt werden.

Leider weiss ich nicht, wie das funktioniert.

Danke bereits im Voraus.

Ich möchte bei einer Medikamentenliste in Excel den Verbrauch pro Woche in Zelle K vom Ist Bestand in Zelle M für die ganze Tabelle (Zeilen 5 -19) mit einem Klick mutieren. Verbrauch pro Woche vom Ist Bestand abziehen. Wie sieht das Makro dazu aus?

Hallo, ich bitte um eine schnelle Antwort.

Ich habe ein Makro geschrieben mit hilfe von DaCrypher. Mit einen Button speicher ich die datei unter einen Namen ab, der in einer Zelle steht.

Jetzt will ich einen Button erstellen, der nur den inhalt einer Zelle löscht

Range("A4,A37,B7,B9,B11,B13,B15,B17,B19,B21,B23,D9,D11,D13,D15,D17,D19,D21,D23,D25,D27,D29,E4,G9,G11,G13,G15,G17,G19,G21,G23,G25,G27,G29,G31,G33").ClearContens

Das habe ich bereits. Doch ich kriege immer die fehlermeldung: "Laufzeitfehler '438':

Objekt unterstützt diese Eigenschaft oder Methode nicht"

Wie kann ich dieses Problem lösen?

Danke für die Hilfe im Voraus!

LG
Luke

Hallo,

Ich würde gerne bei Excel einen Button erstellen, der die Excel mappe auf dem Desktop abspeichert. Der Name der Datei soll in Zeile A1 stehen.

Den Button habe ich bereits erstellt. Ich scheitere noch bei dem Makro, weil ich keine ahnung davon habe. Ich habe etwas im Internet gefunden, was meinen Vorstellungen nahe kommt. Ich habe versucht es anzupassen, aber irgendwie klappt das alles nicht.

Sub Schaltfläche1_Klicken()
Dim lw_pfad As String
lw_pfad = ActiveSheet.Range("A1").Value
lw_pfad = InputBox("Geben Sie hier das Laufwerk und den Pfad an, wo die Datei gespeichert werden soll." & Chr(13) & Chr(13) & "(Ihre Eingabe wird in A1 als neuer Default-Wert gespeichert.)", "Datei speichern unter...", lw_pfad)
If lw_pfad = "" Then
  MsgBox "Die Datei wird nicht gespeichert, da Sie [Abbrechen] gedrückt oder nichts eingegeben haben.", , "Abbruch"
  Exit Sub
Else
  If Right(lw_pfad, 1) <> "\" Then lw_pfad = lw_pfad & "\"
  ActiveSheet.Range("A1").Value = lw_pfad
Rem MsgBox lw_pfad
ActiveWorkbook.SaveAs lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls"
MsgBox "Die Datei wurde unter " & lw_pfad & ActiveSheet.Range("B2").Value & ActiveSheet.Range("C4").Value & ".xls gespeichert.", , "OK"
End If
End Sub

Das ist, was ich bis jetzt habe.

Vielen Dank für die Hilfe im Voraus!

Hallo zusammen,

wie kann ich einen Text mittels einer TextBox ändern?

Im Anhang sieht man die UserForm, sowie den Code für die suche.

Beispiel:

Damit nicht immer der code in den einzelnen Zellen (zwecks) suche geänder/gelöscht werden kann, man aber die Datensätze ergänzen oder neue anlegen muss, habe ich mich für eine Userrform entschieden.

Man gibt die Artikelnummer ein und bekommen die Informationen (Artikelbezeichnung und Index) aus der selben Zeile wieder.

Ich möchte, dass man die TB für Index nur ändern braucht und mit dem Button "Speichern" soll die Tabelle (Datenblatt) aktualisiert werden.

(Der Index gibt an, das Änderungen an dem Standart Artikel vorgenommen wurden)

Ich habe nun schon in mehreren Foren nachgelesen, bin aber leider nicht weiter gekommen.

Danke euch .... :)

 Ich möchte eine Listbox mit Spalten füllen. Es können neue Daten hinzugefügt oder auch gelöscht werden. Habe lange im Internet gesucht. Es gibt bestimmt eine Möglichkeit die Listbox aus den obrigen Zeilen rauszulesen und sie in die listbox zu füllen. Diese Angaben will ich später in eine Datenbank Tabelle MSSQL füllen.

Wie mache ich das am besten/einfachsten? Ich habe mal eine Beispielsdatei hochgeladen. Sage schon jetzt mal "Vielen Dank" für eure Hilfe.

Guten Morgen. Habe ein falsches Ergebnis mit folgender Formel. Es sind ca. 250 Zeilen worauf die Formel angewendet wird. Dabei wird immer ein Datensatz zu wenig addiert. Kann und wenn ja wie die Gausche Formel etwas bewirken. Habe darüber gelesen, kann sie aber nicht korrekt einfügen. Hat da vielleicht jemand eine Lösung parat. Gruß Emilian



Hallo zsm,
ich möchte durch ein Button-klick vier Textboxe anzeigen lassen.
Ein Beispiel code würde mir sehr dabei helfen.  

Hallo Zusammen,

ich würde gerne wissen, wie ich bei Word in einem Dokument von 9 Seiten einen Knopf auf die erste Seite (Deckblatt) packen kann, sodass ich dann bei Betätigung der Taste Seite 2-9 drucken kann? Ich kenne mich mit visual basic leider nicht gut aus und bräuchte daher Ihre hilfe! Vielen Dank :)

Tim

Hallo Vielen Dank für eure Hilfe,

Ich möchte Werte die ich in A1 eingebe , in A2 addieren.

Das heist :

ich gebe heute in A1 10 ein in A 2 erscheint 10

ich gebe morgen in A1 20 ein in A2 erscheint 30

ist das so möglich ?

Wenn das nur mit VBA funktioniert würde ich mich über eine genaue Erklärung freuen.

DANKE IM VORAUS !!!

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

Hallo, ich suche seit gut 8 Monaten (ja.. eine lange Zeit bis dato ohne Lösung) einen Weg um folgendes Umzusetzen:

Makro-Ausführung:

In eine Zelle soll ein Buchstabe eingegeben werden, diese Zelle soll vom Makro kopiert werden, den Textinhalt in die Suche eingefügt werden, das Blatt nach dem Text durchsuchen und die Zelle bei einer Liste finden, mit den Pfeiltasten einmal auf die Zelle rechts davon springen, diesen Text kopieren und in eine andere Zelle einfügen.

Makro-Aufnahme:

Zum aufnehmen des Makros gebe ich vor der Aufnahme in die gewisse Zelle (siehe Bild unten) einen Buchstaben (B) ein. Dann starte ich das Makro.

Die Zelle mit dem Buchstaben "B" wird kopiert, die normale Excel-Suche wird geöffnet, der Textinhalt wird bei der Suche eingefügt, Suche gestartet. Buchstabe "B" wird im aktuellen Blatt (Liste) gefunden. Ich springe mit der Pfeiltaste rechts in die benachbarte Zelle ("Baum") kopiere die Zelle und füge sie wo anders als "Ausgabe" ein. Ich beende die Aufnahme.

Problem:

Wenn ich dann in die gewisse Zelle den Buchstaben "A" eingebe, und aus "Ausführen" klicke, wird das vorherige aufgezeichnete Makro gestartet. Dann soll in der Suche der Buchstabe A eingefügt werden und nach "A" gesucht werden.

Aufgrund eines eigenartigen Fehlers wird aber der WIRKLICHE BUCHSTABE VON DER MARKO-AUFZEICHNUNG ("B") EINGEFÜGT - UND NICHT A.

(Ich habe beim Aufzeichnung natürlich über die Einfüg-Funktion den Zellinhalt ("B") eingefügt und nicht manuell eingetippt.)

Ich muss es schaffen, dass die Suche immer einen anderen Buchstaben einfügt, welcher von der Zelle kopiert wurde.

Wenn möglich, nur Methoden zur Aufzeichnung angeben, keine VBA Befehle - da ich davon nichts verstehe :P Ausser es ist wirklich anders nicht umsetzbar.

Bitte um dringende Hilfe, mit läuft die Zeit davon :p Ich hab das sicher schon 25 Mal neu gemacht, immer etwas anders und andere Methoden gesucht, ich werden nicht fündig.

Hier ein Bild darunter, für besseres Verständis. Ich freue mich über jede Hilfe!

Danke Danke Danke!

Bild in groß öffnen

Hallo zusammen,

Ich habe ein kleines Problem was ich leider nicht lösen kann. Im Bereich vba bin ich leider auch nicht so fitt & verstehe die meisten codes nicht & kann mir daraus leider auch keinen eigenen basteln.

Mein Problem:

Zelle A1 steht eine Meter Angabe von z.b 300

In Zelle B1 ist die Entnahme 30

Nun soll automatisch in Zelle A1 der Betrag 170 stehen. 

Leider weiß ich nicht wie ich das hinbekomme.

Die Zelle A1 ist variable und soll jede Zeit manuell geändert werden. Deshalb sollte dies mittels vba geschehen.

Kann mir jemand helfen?

Vieeeelen Daaaank

Moin Leute,

ich habe da ein Programm in Excel erstellt und auch den Code, um das Blatt als .pdf in ein bestimmtes Verzeichnis zu speichern. Problem ist nun, dass ich in dem Code den Dateinamen eingeben muss. Der Speichert das also immer unter dem im Code angegebenen Namen. Ich möchte jetzt, dass der Dateiname so lautet, wie ein bestimmter Zelleninhalt von z.B. J5

Wie kann ich jetzt in meinem Code sagen, dass der Dateiname einem Zelleninhalt entsprechen soll?

Sheets("Sheetname").Range("A1:G95").ExportAsFixedFormat xlTypePDF, Filename:="C:\Users\Computername\Dokumente\Ablage\Angebote\Angebot.pdf"

anstatt des Fettgedruckten soll hier der Zelleninhalt von J5 rein

Danke schonmal

Hey,

also in einer Zeile befinden sind gesperrte Zellen und ungesperrte Zellen. Zudem ist auch dem gesamten Tabellenblatt ein Blattschutz.

Ich möchte gern den Nutzer des Blattes erlaube, dass dieser einfach eine Zeile löschen kann, ohne das die gesperrten sondern ausschließlich die ungesperrten Zellen gelöscht werden.

Soweit ich mich bereits eingelesen habe, kann man da was in VBA machen?!

Vielen Dank

Ich möchte in einem Formular (UserForm) in Excel VBA einen Rahmen (Frame) erstellen, den ich mit einem Auswahlkästchen (CheckBox) in der Überschrift (Caption) als aktiv markieren kann.

Und dieser Link beweist, dass es einen Weg geben muss...

Wie kann man aus einem Feld, in der eine beliebige Zahl eingegeben werden kann, eine Abfrage starten, bei der für Zahlen in verschiedenen definierten Zahlenbereichen unterschiedliche Ergebnisse ausgegeben werden?

Hi,

ich möchte in einer Exceltabelle, in der ein Steuerelement eingebunden ist die Schriftart des Steuerelements ändern, ist das möglich und wenn ja wie?

Mit freundlichen Grüßen

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.

Ich habe es mithilfe vom Internet und einigen sehr wenigen Kenntnissen meinerseits geschafft, mir einen Code zu schreiben, mit dem ich Dateien (Fotos - also JPG-Dateien) umbenennen kann. Leider habe ich einen Teil des Codes gelöscht und dies gespeichert. Somit funktioniert leider gar nichts mehr und ich bekommen immer den Fehler, dass die Datei nicht gefunden werden kann. Die Meldung bekomme ich immer in der Zeile "Name File.Name As x".

Kann mir bitte jemand helfen?

Hier mein Code:

  Shell "Explorer.exe C:\Users\LANGEMIC.HILTI\Documents\Temp, vbNormalFocus"
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Folder = FS.GetFolder("C:\Users\LANGEMIC.HILTI\Documents\temp")
  
  Dim x As Single
  x = ActiveCell
  
  For Each File In Folder.Files
    If File.Name Like ".jpg" Then
      ActiveCell.Offset(1, 0).Select
      x = ActiveCell
      Name File.Name As x
      End If
  Next
End Sub

Gerne auch eine Lösung per VBA.

Ich habe zwei Tabellenblätter bei Excel, die vom Aufbau her identisch sind. Im Prinzip eine Liste mit Dokumenten, die benötigt werden. Sind die Dokumente dann vorhanden sollen diese abgehakt werden. Diese Liste gibt es eben einmal auf Deutsch und einmal auf Englisch. Da hier unterschiedliche Leute zusammenarbeiten, sollen beide Listen immer identisch abgehakt werden und auf dem gleichen Stand sein.

Wie bekomme ich es nun hin, dass die englische und deutsche Liste nun immer identisch sind, egal in welcher der Haken gesetzt wurde?

Hat jemand eine Idee und kann mir diese wirklich sehr einfach und genau erklären?

Vielen Dank für eure Hilfe!

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

Hallo, liebe GF-Community,

seit der Umstellung auf Microsoft Office 365 mit dem entsprechenden Microsoft Office 2016 (vorher hatte ich Microsoft Office 2010) ist mein Kalendersteuerelement in meinen UserForms verschwunden, die ich in meinen Makros für Microsoft Word verwende.

Auch existiert der Microsoft Date and Time Picker 6.0 (ich glaube so hieß das Steuerelement) bei den Steuerelementen nicht mehr.

Weiß jemand, wo ich dieses Kalender-Steuerelement für die UserForms wieder herbekommen kann? Ich habe bereits alle entsprechenden Versuche hinter mir, das Steuerelement für Excel 2016 zu registrieren, wie hier beschrieben:

https://www.gutefrage.net/frage/excel-2016-office-365-ein-kalendersteuerelement-einfuegen

Allerdings blieben auch diese Versuche ohne Erfolg, obwohl die entsprechenden Meldungen der Registratur positiv ausfielen. Das Steuerelement bleibt (auch in Excel) verschwunden.

Vielen Dank im Voraus. Die hilfreichste Antwort wird ausgezeichnet.

Gruß, BerchGerch

Hallo Leute,

ich bekomme bei einer Web Abfrage in Excel die Fehlermeldung

"Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoben würden."

Klingt erstmal ganz logisch, aber wie behebe ich den Fehler?

Guten Morgen,

habe eine Userform (6 Textfelder + 1 Checkbox) zur einfachen Eingabe von Datensätzen

die Checkbox legt korrekt den jeweiligen Wert WAHR/FALSCH (in deutsch) in der Tabelle ab

sobald man speichert ist die Checkbox ausgegraut (nutzen könnte man die Checkbox schon)

ich bin jetzt draugekommen, das die Checkbox den Wert TRUE/FALSE (englisch!!) erwartet, damit der Haken der Checkbox angezeigt wird

das Ganze funktioniert also nur, wenn ich die Werte in der Spalte der Checkbox selbst auf enlisch ändere

getestet mit verschiedenen Office-Versionen (2010 - 365)

hat jemand vielleicht eine Idee woran das liegen könnte ?

und bitte Nachsichtig sein, ich bin Anfänger in VBA

Hallo zusammen,

ich habe gefühlt das ganze Internet auf den Kopfgestellt um mir meine Fragen selbst zubeantworten, aber leider habe ich nichts gefunden was mir weiterhelfen konnte.

Ich wollte, dass wenn CheckBox1 aktiviert ist, sich die Schriftfarbe in Zeile B15 in schwarz ändert. Davor ist sie grau.

Mein Code:

Private Sub CheckBox1_Click()

If CheckBox1= True Then

Range("B15").Font.ColorIndex = 1

Else

Range("B15").Font.ColorIndex = 17

End if

End Sub

End If

WEiß jemand was ich falsch gemacht hat & kann mir helfen?

Vielen Daaank

Hallo,

seit einem halben Jahr arbeite ich nebenberuflich als VBA für die deutsche Vermögensberatung. Nun habe ich mich wegen privaten Gründen mit meinem Vermögensberater verstritten und eine weitere Zusammenarbeit ist derzeit nicht gewährleistet. Trotz allem möchte ich weiter bei der DVAG bleiben.

Kann ich ohne Probleme mir einen neuen Vermögensberater suchen und bei diesem weiter machen sowie auch "meine" Kunden welche ich zur DVAG geholt habe mitnehmen?

Wie verhält sich das ganze, wenn mich der Vermögensberater kündigt oder schlecht dastehen lässt und seitens der DVAG mir eine Kündigung ausgesprochen wird?

Hallo,

ich habe in meiner Excel Arbeitsmappe in unterschiedlichen Tabellenblättern mehrere Pivots. Ich möchte allerdings, dass wenn ich in einer den Filter ändere, dass alle anderen auch automatisch aktualisiert werden. Ich kam bisher nur soweit, indem es sich aktualisiert, wenn ich den Reiter wechsel. Wie muss ich das ganze anpassen, dass es wie gewünscht funktioniert?

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   Dim pt As PivotTable
   For Each pt In Sh.PivotTables
        pt.RefreshTable
   Next
End Sub

LG Syrena

Hallo,

ich schreibe gerade an einem Drucker Makro mit UserForm.

Auf der UserForm sind mehrere CheckBoxen, und ein Durck-Button.

Das Ziel ist es: Z.b. dass man CheckBox1 und CheckBox3 anklickt und so die beiden Druckbereiche ausgewählt werden. Beim drücken des "Drucken" Buttons sollen dann die beiden druckbereiche jeweils auf eine seite gedruckt werden.

Ich habs soweit hinbekommen, dass sich über die checkboxen die richtigen druckbereiche auswählen lassen. JEDOCH lassen sich zwar mehrere checkboxen ankreuzen, jedoch druckt es letzendlich immer nur eine seite mit dem Druckbereich des letzt gedrückten checkbox.

Also prinzipiell könnte man wenn man z.b. Checkbox1 und checkbox 3 gedruckt haben will. Nacheinander die 1 anwählen drucken drücken und dann die 3 anwählen drucken drücken.

Das Ziel ist es aber dass beide gleichzeitig angewählt sein können und dann auch beide gedruckt werden auf jeweils eine seite.

Welchen code muss ich ergänzen? und vorallem wo?

Vielen dank

Hallo Leute, habe eine Frage, habe eine kleine Aufgabe bekommen, nämlich mit VBA über Inputboxen die Fallbeschleunigung bzw. die Zeit zu berechnen sowie die Geschwindigkeit. Wie macht man das? MfG

Hallo, ich habe ein Sheet 1 mit X Zeilen. Ich möchte genau diejenigen Zeilen in ein neues Sheet 2 kopieren, die noch keinen Eintrag in der Spalte D haben. Das Ganze soll synconisiert geschehen, sprich, ich trage eine neue Zeile in Sheet 1 ein ohne Eintrag in Spalte D, dann kopiert er die Zeile gleich ins Sheet 2. Sobald etwas in Zeile D in Sheet 1 eingetragen wird, wird die Zeile in Sheet 2 wieder rausgelöscht. Hat jemand eine Idee wie ich das umsetzen kann? Freue mich über jede Hilfe!

Hallo,

ich habe ein Excel Tabellenblatt. Dieses habe ich mit einem Blattschutz versehen. Die Zellen AF7:AG136 sind von diesem Schutz befreit bzw. nicht gesperrt. Jetzt möchte ich allerdings, dass diese Zellen eingefärbt werden können. Ich dachte zunächst an eine bedingte Formatierung, jedoch funktioniert dies nicht, da der einzutragende Text zudem noch variabel ist. Gibt es ein Makro, was mir das Einfärben des genannten Bereiches ermöglicht?

LG Syrena

Hallo,

ich benötige eure Hilfe und zwar möchte ich alle Datenreihen auswählen beginnend mit der fünften.

ActiveChart.FullSeriesCollection(5).Select

Das bedeutet, dass ich quasi alle Datenreihen von 5 bis unendlich auswählen möchte, und sollte das nicht funktionieren, 5 bis 99.

Hallo,

ich habe eine ziemlich schwierige Aufgabe zu lösen, zumindest für mich als VBA Amateur und bräuchte deswegen eure Hilfe, da ich daran schon seit Tagen verzweifle.

Die Aufgabenstellung ist folgende:

Es soll durch ein Kontrollfenster (1. Bild links) möglich sein, einen neuen Datensatz anzulegen, der dann automatisch in der Tabelle (1. Bild rechts) davon erscheint. Die Erstellung der Datensätze soll fortlaufend geschehen, d.h. falls bereits ein Datensatz in Zeile 4 vorliegt, dass der neue Datensatz automatisch in Zeile 5 (usw.) angelegt wird. Zuletzt soll dann das Kontrollfenster geleert werden, sodass es theoretisch möglich wäre, direkt einen weiteren Datensatz anzulegen.

Weiterhin soll dieser neu angelegte Datensatz mit dem "DiagrammA" im Reiter "Diagramm" verknüpft werden (X/Y-Werte und Name in der Legende), sodass dort auch automatisch dieser Datensatz erscheint (2. & 3. Bild).

(Optional): Die Möglichkeit zum Entfernen eines Datensatzes.

Vielen Dank!

Hi,

in der Spalte B2 steht entweder: Leer, Auto1 und Auto2

Jetzt möchte ich folgendes:

Auto 1 -> ausblenden der Zeilen A5 bis A1500. Auto 2 -> ausblenden der Zeilen A1501 bis A3000 Leer -> ausblenden der Zeilen A5 bis A3000

Geht sowas? Könnt Ihr mir helfen?

Hallo,

ich weiß, in verschiedenen Foren gibt es schon Hilfestellungen zu VBA, PDF und Co. - jedoch war nach tagelanger Suche nicht das RICHTIGE dabei, weshalb ich hoffe, dass man mir hier weiterhelfen kann.

Ich möchte, dass das ausgefüllte Formular (Formularfeld wurde per VBA erstellt), welches in Form eines Word-Dokuments vorhanden ist, durch einen Klick umgewandelt wird als PDF und dann als E-Mail (via Outlook) verschickt werden kann.

Ich hoffe, es kann mir jemand weiterhelfen.

Grüße

helppppppppp

Ich möchte mit einem CommandButton einige Zelleninhalte auf anderen Tabellenblättern löschen. Mein Gedanke war so etwas:

Private Sub Reset_click()

Sheets("Tabellenblatt").Range("Zellenname").ClearContents

End Sub

Leider funktioniert das nicht.

Vielen Dank für Hilfe. Liebe Grüße

Guten Morgen,

Ich würde gerne in Excel eine Spalte mit den Beispielhaften Daten (s.o.) sortieren lassen. Leider gibt er mit der Excel-Standartsortierung folgende Reihenfolge aus: (1.1; 1.11; 1.11.1; 1.2; 1.22). Ich hätte aber gerne die oben beschriebene Reihenfolge. Ist dies irgendwie möglich? Gerne auch per Makro.

Aufgrund der Verwendung und da ich in den einzelnen Zeilen vorher nicht sagen kann, wie viele Unterpunkte ein Punkt haben wird, habe ich die Zellen als 'Text' formatiert. Vielleicht gibt es hier ja auch eine sinnvollere Lösung.

Vorab schon mal vielen Dank!

Hallo,

ich habe mal wieder ein VBA Problem. Folgendes versuche ich zu realisieren:

Ich habe eine Variable mit Namen: Zeichen_Concern

Diese Variable hat je nach Fall folgenden Inhalt:

Fall A: Zeichen_Concern = Sign1 Fall B :Zeichen_Concern = Sign2

wobei

Sign1 = Array(23,225,0...........) 'Insgesamt 30 Werte Sign2 = Array(21,125,3...........) 'Insgesamt 30 Werte

Nun möchte ich Zeichen_Concern mit Select Case abfragen:

Select Case Zeichen_Concern Case Sign1: machwas Case Sign2: machwasanderes End Select

Leider kommt die Meldung "Typen unverträglich". Ist es nicht möglich mit Select Case diese abfrage zu starten? Die Variable Zeichen_Concern ist in diesem Falle ein Variant 0 to 29, ist somit der Name der Variable (also Sign1 oder Sign2) nicht mehr existent ?

Ich hoffe mein Anliegen ist verständlich.

Ich bin im VBA-Bereich ein Neuling und arbeite mich da erst rein also bitte um Verständnis wenn ich was nicht gleich verstehe.

Nun zu meinem Problem:

Ich habe derzeit in VBA ein Macro das wie folgt lautet (nur Ausschnitt des gesamten):

Range( _

      "C8:E8,G8:H8,C10,....).ClearContens

die Punkte stehen verständlicherweise für weitere Zellangaben.

Da ich das Ganze aber dynamisch benötige aber nicht weiß wie bitte ich um eure Hilfe.

Die Adressbereiche werden in 2 Spalten durch eine Formel ausgegeben (in Spalte P: die Adresse der benötigte Spalte - als Buchstabe und in Spalte Q die Adresse der benötigten Zeile - als Zahl)

Allerdings sind diese zwei Spalten Bestandteil einer "intelligenten Tabelle" und wird mit der Zeit immer größer. Sprich es kommen im Laufe der Zeit weitere Einträge dazu, wobei jede Zeile der Spalten P und Q einen anderen Adresswert ausgeben und im VBA benötigt wird. Sprich heute ist es z.B. A:1 und C:22, morgen kommt noch B:33 und D:8 hinzu.

Mir ist klar, dass ich das Ganze in einem Array einarbeiten muss und dann mittels Schleife die Adressbereiche für Range mittels dem Array übergeben muss.

Wie geht das kann mir jemand da helfen?

Wenn möglich mit Code?!

Ich möchte diese Frage mit einem Beispiel stellen und anmerken, dass ich vorher noch nie Makros oder VBA benutzt habe.

Ich habe eine Spalte mit Zelleninhalten (z.B."a" bis "k") und möchte über ein Makro das Ergebnis in Spalte 2 erhalten (vorzugsweise auf einem anderen Tabellenblatt). Der Abstand zwischen den gefüllten Zellen soll dann immer gleich sein.

Edit:
Die Spaltenbreite ist nicht mein Problem.

Ich möchte die Inhalte aus Zelle "Tabelle1!A3" in "Tabelle2!C1" kopieren

Der Inhalt von Zelle "Tabelle1!A4" in "Tabelle2!C85"

Der Inhalt von Zelle "Tabelle1!A5" in "Tabelle2!C169"

Der Abstand beträgt immer 84 Zellen in Tabelle 2. Das ganze sollte dann 367 mal passieren, theoretisch bis Zelle "Tabelle2!C30829"

Weiß nicht ob es verständlich ist :/

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, ich möchte gerne das datum automatisch in eine textbox haben weiss jemand die programmierung dafür?

Hallo zusammen,

ich versuche gerade eine Datenbank in Excel anzulegen.

Jetzt möchte ich, dass egal in welchem Textfeld ich einen Suchbegriff eingebe, die entsprechende Spalte in Excel durchsucht wird und mir die Ergebnisse in einer Listbox angezeigt werden. Idealerweise soll man dann auf die Zeile in der Listbox klicken können und die Textfelder in meiner Userform Maske werden automatisch ausgefüllt. Ich bin ein totaler Neuling in Excel VBA und freue mich wenn mir jemand weiterhelfen kann!

Liebe Grüße

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

Hallo, ich habe verschiedene Tabellen, in denen sich durch Löschen einer Spalte Leerzeilen ergeben haben. Diese kann ich leider nicht per Makro löschen; es kommt eine Fehlermeldung wegen der vertikal verbundenen Zellen. Daher würde ich gerne die vertikal verbundenen Zellen trennen.

Etwas genauer vielleicht noch

Es bleiben zwei Spalten übrig.

Spalte 1 enthält keine verbundenen Zellen.

Spalte 2 enthält die verbundenen Zellen, die unterschiedlich vielen Zeilen in Spalte 1 entsprechen. Mal sind nur zwei Zeilen verbunden, mal 10.

Vielen tausend Dank für eure Hilfe!

Hallo, Ich möchte gerne eine Eingabemaske für eine Word-Datei erstellen. Die Userform habe ich bereits und auch die Textmarker, in denen die TextBoxen füllen sollen bzw. auch Daten automatisch aus den textmarker ziehen sollen. So sollen z.B. bei dein Empfängerdaten die Felder Abteilung, PVB und Tel.Nr. aus dem Dokument automatisch übernommen werden da diese in der Regel immer gleich sind, sollten aber auch bei Änderung übernommen werden. Bei den Absenderdaten ist es ähnlich. Hier sollen Abteilung und PVB übernommen werden. nachdem man dann auf übernehmen und drucken gedrückt hat sollten die Eingaben in den entsprechenden Textmarken geändert werden und die Seite gedruckt werden. Könnt Ihr da evtl. helfen?

Vielen Dank

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then  

TextBox1.Text = "5"  

End If

End Sub

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 Zusammen,ich bastel gerade an einem urlaubsplan. Im Hauptblatt habe ich alle Namen, wo ich Zeiträume eingeben kann. In den jeweiligen monatsblättern möchte ich diesen Zeitraum dann tageweise übernehmen lassen. Gibt es eine Möglichkeit, dass ich kein Makro schreiben muss? Hat jemand schon mal einen ähnlichen Plan gesehen, den ich evtl. nur geringfügig anpassen müsste? Vielen Dank

Ich möchte aus dem zu öffnenden Workbook das Blatt "Berechnung" (das einzige Blatt) in die aktuelle Datei kopieren. Die schon geöffnete Datei wird in Zukunft allerdings einen anderen Namen haben, deswegen dachte ich, mach ich das mit einem zugewiesenem Namen. Bei Sheets.Select bekomme ich allerdings einen Laufzeitfehler '9': Index außerhalb des Bereichs. Was mache ich falsch?

Dim PEMS
PEMS = ThisWorkbook.Name

Application.DisplayAlerts = False
Workbooks.Open Filename:="Dateipfad", ReadOnly:=True
Application.DisplayAlerts = True
Sheets("Berechnung").Select
Sheets("Berechnung").Copy Before:=Workbooks("PEMS").Sheets(2)

Wie kann ich zum Beispiel aus Tabellenblatt Zelle A11 Werte in Tabellenblatt 2 kopieren und dabei Spaltte "B" hineinkopieren? Außerdem soll Excel immer in die nächste frei Zeile die Werte hineinkopieren.

Hallo,Kann mir jemand sagen, wie ich mittels VBA einen Text genau 2 Zeilen unter dem letzten Eintrag einfügen kann?Vielen Dank im Vorraus

Mithilfe eines Makros in VBA erstelle ich ein Rechteck an einer bestimmten Stelle, was wiederum dann beim nächsten Öffnen der Datei an einer anderen Stelle erstellt wird. Dass dann nicht nach einer gewissen Zeit das Blatt voll ist mit Rechtecken, würde ich gerne bei bei Start eine Range nach diesem Rechteck durchsuchen und löschen, bisher mache ich das so:

    Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
           If shp.Name = "HeuteRechteck" Then
              shp.Delete
           End If
Next

Hier bekomme ich allerdings "Objekt unterstützt diese Eigenschaft oder Methode nicht", was womöglich an der Benennung liegt. Benennen u.a. tue ich das Rechteck so:

ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Top, 12, 795).Select
Selection.ShapeRange.Line.Visible = msoFalse
With Selection.ShapeRange.Fill.Shapes(1)
    .Visible = msoTrue
    .ForeColor.RGB = RGB(146, 208, 80)
    .Transparency = 0.5
    .Name = "HeuteRechteck"

Mach ich beim Benennen was falsch?

Habt ihr irgendwelche Ideen oder Ansätze?

Hallo nochmal

Ich habe vorhin bereits eine ähnliche Frage gestellt. Jetzt hat sich eine weitere Frage ergeben. Ich habe ein Excelfile mit 2 Tabellenblättern (Inhalt und Template). Beim Ausführen eines Makros auf der Seite "Inhalt" soll nun folgendes geschehen:

Tabellenblatt "Template" wird kopiert. Dieses neue Blatt wird nach dem Inhalt der Zelle C8 des Tabellenblatts "Inhalt" benannt.

Wäre super, wenn mir jemand ein VBA dazu machen könnte :) Vielen Dank im Voraus!

Ich sollte haufenweise Werte einzeln nacheinander von Excel in ein SAP Texfeld kopieren, weiss jedoch nicht, wie ich dies automatisieren kann, da der Befehl leider immer so ausschaut: ... session.findById("wnd[0]").resizeWorkingPane 115, 38, False

session.findById("wnd[0]/usr/ctxt").Text = "525445"

session.findById("wnd[0]/usr/ctxt").caretPosition = 6

session.findById("wnd[0]").sendVKey 0

anstatt bei .Text="525445" sollte wahrscheinlich irgend ein paste Befehl stehen.

Kann mir irgendwer helfen bitte?

Hallo zusammen. Ich habe folgendes Problem. In einer Excel-Datei (ThisWorkbook) habe ich die Tage vom 1.-letzten Tag eines Monats in Reihe 4 stehen. Ein Datum pro Spalte, beginnend in Spalte B. Darunter sollen jeweils Werte aus einer anderen Excel Datei (wbk360) eingetragen werden - mit Hilfe von VBA. In dieser zweiten Datei stehen die Tage untereinander in Spalte A. Ich benutze Worksheetfunction.Match, um die richtige Zeile in der zweiten Datei zu finden, bevor ich von dort Zahlen in meine erste Datei übertragen lasse.

Das hier ist der Teil des VBA Codes, der nicht funktioniert:

    For idatecol = 2 To 21
    On Error Resume Next
    idaterow = WorksheetFunction.Match(ThisWorkbook.ActiveSheet.Cells(4, idatecol).Value, wbk360.ActiveSheet.Range("A:A"), 0)
    
    ThisWorkbook.ActiveSheet.Cells(5, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iOccHeader).Value
    ThisWorkbook.ActiveSheet.Cells(6, idatecol).Value = wbk360.ActiveSheet.Cells(idaterow, iIndexHeader).Value
Next idatecol

idaterow sollte mir die Zeile in Datei 2 nennen, in der das Datum steht, das ich gerade in Datei 1 bearbeiten möchte. Wenn ich aber mit F8 Zeile für Zeile durch den Code gehe, bleibt der Wert für idaterow immer 0; es wird also kein Match gefunden.

Die Daten in Datei 2 Spalte A werden als Datum in Excel erkannt. Gebe ich eine Match-Formel direkt auf meinem Worksheet in Datei 1 ein, benutze dort den Datumswert aus Zelle B4 in Datei 1 und suche nach einem Match in Spalte A in Datei 2, bekomme ich 5 als Ergebnis, weil dieses Datum in Zelle A5 in Datei 2 steht.

Offensichtlich findet Excel also das entsprechende Match für jedes einzelne Datum in Datei 1. Mit VBA finde ich aber kein einziges Match.

Hat jemand eine Idee, warum das so ist??? Vielen Dank im Voraus. Rene

Hallo, ich habe eine Datenbank mit Fotos in Excel erstellt. Jetzt möchte ich aber, dass das Datum das Datum der Aufnahme ist, also das Datum, das in den Exif-Daten der Bilder angegeben ist. Ich habe die Funktion .DateTimeOriginal gefunden, aber habe gelesen, dass diese Funktion nicht in VBA arbeitet, da sie aus einer anderen Sprache, VB .NET, ist und in Visual Basic Express angewendet werden kann. Gibt es andere Möglichkeiten die Exif-Daten rauszuleiten durch VBA ?