VBA – die neusten Beiträge

Hey. Ich weiß zu diesem Thema gibt es schon ein paar Einträge im Netz. jedoch habe ich es nie für mich umformuliert bekommen. Vielleicht kann mir hier jemand helfen?

In Zelle G6 steht ein Wert von 1-6. Abhängig davon sollen dann immer andere Spalten ausgeblendet werden. Mein Code zur Zeit:

Sub Ausblenden()
'
' Ausblenden Makro
'
' Tastenkombination: Strg+a
'
    If "G6" = "1" Then
                Columns("v:bn").EntireColumn.Hidden = False
                Columns("v:bn").EntireColumn.Hidden = True
            Else
                If "G6" = "2" Then
                    Columns("v:bn").EntireColumn.Hidden = False
                    Columns("ae:bn").EntireColumn.Hidden = True
                Else
                    If "G6" = "3" Then
                        Columns("v:bn").EntireColumn.Hidden = False
                        Columns("an:bn").EntireColumn.Hidden = True
                    Else
                        If "G6" = "4" Then
                            Columns("v:bn").EntireColumn.Hidden = False
                            Columns("aw:bn").EntireColumn.Hidden = True
                        Else
                            If "G6" = "5" Then
                                Columns("v:bn").EntireColumn.Hidden = False
                                Columns("bf:bn").EntireColumn.Hidden = True
                            Else
                                If "G6" = "6" Then
                                    Columns("v:bn").EntireColumn.Hidden = False
                                End If
                            End If
                        End If
                    End If
                End If
    End If
End Sub

Ich bin ein VBA anfänger, also bitte seit nachsichtig x). Danke schon einmal im voraus!

Hallo :)

ich arbeite gerade an einer Excel Tabelle, bei der ich etwas in das Formular eingebe und der Inhalt dann via Speichern-Button in Tabellenblatt 2 automatisch in eine Tabelle eingetragen wird.
Nun ist alles fertig, nur habe ich es bis jetzt nicht hinbekommen, dem Speichern-Button die benötigten Befehle zuzuordnen, den Inhalt der TextBox und ComboBox in die Tabelle auf Tabellenblatt 2 einzutragen.

Ich benutze bewusst Excel und nicht Access.
Kann mir jemand helfen?

Mit freundlichen Grüßen :-)

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

Hallo meine Lieben!

Wenn mein Makro eine Datei öffnet, die schreibgeschützt ist, kommt ein Warnhinweis, den ich nicht haben möchte. Der Code Application.DisplayAlerts = False bringt nix.

Was kann ich machen?

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

ich hätte gerne (bei Zelle A1 und B1 beginnend) ein VBA, dass beim öffnen der Arbeitsmappe, das Datum und die Uhrzeit sich auflistet, bzw. Fortführt.

D. h. beim 1. öffnen der Arbeitsmappe soll die Zelle A1 mit Datum und B1 mit Uhrzeit versehen werden (ungefähr so siehe Abb.)

Jetzt möchte ich, dass beim 2. öffnen der Arbeitsmappe, die Daten in A1 und B1 bestehen bleiben und das neue Datum und Uhrzeit in A2 (Datum) und B2 (Uhrzeit) eingetragen wird.

Beim 3. öffnen, A3 und A4 aktualisiert wird, u.s.w., aber die vorherigen Daten sollen stets erhalten bleiben.

Gibt es einen Möglichkeit dies stetig fortzuführen, optimal wäre sicherlich die Spalte A und B ohne Begrenzung, außer der möglichen Zeilenmenge-Verfügbarkeit von 1.048.576 Zeilen (so bei EXCEL 2019).

Ich habe keine VBA-Syntax-Kenntnisse !

Freue mich über eine Idee Eurerseits.

Gruß Tron

Hallo,

ich möchte für einen Verein ein Spielplan erstellen. Dazu brauche ich die Fahrzeiten von uns zum entsprechenden Gegner, damit ich daraus Abfahrtszeit etc. berechnen kann.

Ich habe dazu schon zu jeder Begegnung automatisch eine URL erstellen lassen, die direkt Google Maps mit der entsprechenden Route öffnet.

Jetzt wäre es allerdings enorm hilfreich, wenn ich irgendwie direkt die von Google Maps berechnete Fahrzeit in die entsprechende Zelle bekommen könnte.

Geht das? Wenn ja, wie? Kann mir jemand vielleicht einen Ansatz nennen? Bin da mit Google leider gar nicht weiter gekommen...

(Mit VBA kenne ich mich leider noch kaum aus)

Danke und Grüße!

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

Next

End Sub

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

=WENN(ODER(ISTLEER(A1);ISTLEER(B1));"";A1-B1+1)

Bin absoluter Anfänger

Guten Tag,

gerne möchte ich per Makros eine Grafik in die Kopfzeile packen. Dabei habe ich folgendes zusammengebastelt:

With Sheets("Kundenbeleg").PageSetup
.CenterFooterPicture.Filename = "C:\Users\Robin\Desktop\Test.png"
.CenterFooter = "&G"
End With

Der Sheets ist korrekt und der Speicherpfad auch. Der Quelltext ist ein Auszug aus einem Makro, in dem die Seite Kundenbeleg als PDF gespeichert wird.

Die Speicherung funktioniert, nur leider ohne die "Test"-Grafik.

Habe ich noch etwas vergessen?

Gruß

Hallo

Ich würde gern nach dieser csv Ordner erstellen und updaten, jedesmal wenn sich etwas in der CSV verändert hat (zb ein Ordner dazu gekommen ist). Wie kann ich das machen?

LG und vielen dank.

Ich kann ja auch einfach Summand1 * Summand2 schreiben und es kommt das gleiche raus. Also, wann braucht man das?

Guten Abend,

ich möchte den Zelleninhalt bestimmter Zellen löschen, wenn eine gewisse Bedingung erfüllt ist. Dazu ist zu wissen, dass ich zwei Tabellen haben.
Tabelle 1: Rechungsliste
Tabelle 2: Uebersicht

Wenn ich in der Tabelle "Rechnungsliste" in Spalte I "erledigt" eintrage, soll in der Tabelle "Uebersicht" der dazu passende "Datensatz" (Spalte A-D) gelöscht werden. Jedoch nur der Inhalt, nicht die Zeile. Der Spalteninhalt aus Tabelle A dient als Suchkriterium. Die Range der Tabellen ist von A3:A100.

Beispiel:
Rechnungsliste: RE19002 (Spalte A) wird in "Spalte I" als "erledigt" markiert, dann soll in Tabelle "Uebersicht" der Inhalt der Spalten A-D von RE19002 gelöscht werden.

Ich weiß, dass dies als Funktion direkt im Tabellenblatt eingebaut werden muss, nur leider habe ich durch meine andere offene Frage kein Ansatz.

Das Prinzip müsste wie bei meiner anderen offenen Frage sein:

https://www.gutefrage.net/frage/vba-daten-in-zweite-tabelle-uebertragen#answer-328499597

Gruß

Hallo,

ich habe mehrere hundert Zellen in einer Spalte die jeweils eine Beschreibung und eine dazugehörige AA Nummer innerhalb einer Zelle beinhaltet. Nun möchte ich aber die ganze Beschreibung raushaben und im Prinzip nur die AA-Nummer rausfiltern, bzw. die Zelle auf diese Nummer reduzieren. Gibt es solch eine Funktion bei Excel oder vielleicht mit VBA? Beispiel  wie diese Zellen aktuelle aussehen im Bild (s.u.)

LG Aseterus

Guten Tag zusammen,

kurz und knapp: Ich möchte beim verlassen des Blattes, dass dieses ausgeblendet wird. Folgenden Code nutze ich:

Option Explicit
Sub FAQ_schliessen() 
Sheets("FAQ").Visible = False
End Sub

Den Code habe ich beim entsprechenden Tabellenblatt (FAQ) über "rechtsklick" "Code anzeigen" geschrieben. Jedoch passiert beim verlassen der Tabelle nichts. Hab ich bzw. muss ich noch etwas beachten oder hab ich etwas falsch gemacht?

Gruß

Guten Tag,

ich möchte gerne per Input-Abfrage ein Tabellenblatt löschen. Sie Eingabe in der Abfrage entspricht den Namen des Tabellenblatt. Leider komme ich nicht weiter, wie ich den Bezug von der Eingabe zum Tabellenblatt bekommen.

Hilfe wäre sehr nett

Gruß

Guten Abend zusammen,

eine kleine Frage am Rande, kann man die Range in der u.g. Quelle auch dynamischer bzw. flexibler machen? Gemeint ist damit die Zeile 102.

If myInput <> "" Then
FindData = Application.Match(myInput, Worksheets(myTab).Range("A3:A102"), 0)
If IsError(FindData) Then

Kann man die Zeile ändern, quasi aus einer anderen Zelle/anderen Tabelle die Zeilenanzahl entnehmen? Sprich sollte in Tabelle 2 A1 die Zahl 200 stehen, sollte die Range von A3:A200 gehen.

Wenn ja, wie müsste der Quellcode dann aussehen? Ich meine, dass es mit "i" irgendwie geht, aber keine Ahnung wie.

Gruß

Ich habe folgenden Code:

Private Sub Fertig_Click()

  Dim last As Integer

   last = Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row + 1

   Tabelle9.Cells(last, 1) = Format(Eingabe.Antragsdatum.Value, "dd.mm.yyyy")

End Sub

In der Zelle nachher wird es nicht als Datum erkannt.
Muss es aber als Datum sortieren können.

Ich habe schon viele Foreneinträge zu dem Thema gelesen, doch nichts davon funktioniert bei mir.

Meine ersten Schritte nach 20 Jahren Pause. Ich will etwas tun, wenn eine Zelle den Text "crash" enthält. Welche Eigenschaft der Zelle ist der Text (VBA)?

Hallo zusammen.

Ich komme leider beim meinem Problem nicht alleine weiter.

In meiner Tabelle werden in Spalte 2 und Zeile 4 Zeichen angezeigt, sobald ein Bereich selektiert wird. Die Zeichen sollen sich allerdings nur auf die Range J7:OJ57 beschränken, auch wenn die Selektion über die Range hinausgeht.

Denn jetzt, wenn ich z.B. eine Spalte markiere, schreibt der Code mir alle Zeichen in jede Zeile der Spalte, was fatal ist.

Kann ein Profi kurz helfen? :)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("J6:OJ57")) Is Nothing Then
Dim cell As Range
  Application.Calculation = xlCalculationManual
  Application.ScreenUpdating = False
  Application.EnableEvents = False
   Range("B6:B57").ClearContents
   Range("J4:OJ4").ClearContents
For Each cell In selection
  With cell
   Range(cell(.Row, 2), Cells(.Row, 2)) = ">>"
   Range(cell(4, .Column), Cells(4, .Column)) = "V"
  End With
Next
   Application.ScreenUpdating = True
   Application.EnableEvents = True
   Application.Calculation = xlCalculationAutomatic
End If
End Sub

Hallo, ich würde gerne die Hintergrundfarbe beliebig markierter Zellen durch einen Klick auf den CommandButton ändern. ZB ich markiere die Zelle A1:B1, klicke auf den Button und die Farbe der Zellen wird zb Rot.

Wer kann mir bitte den Code hierfür geben? Ich bin im Internet leider nicht fündig geworden.

Hallo,

gibt es eine Möglichkeit dies zu bewerkstelligen und wie sieht der Script aus?

Hintergrund ist, dass eine Anwendung nur auf einen PC erlaubt sein soll.

Mit VBA kenne ich mich nur mit "Aufzeichnen" aus.

Hatte mal eine Anfrage mit der IP-Nummer, die ich auch realisiert habe. Erstaunlicherweise musste ich feststellen, dass es nicht nur eine IP-Nummer gibt, zumindest bei einem Rechner.

Guten Tag,

ich habe eine Frage und zwar geht es um VBA.

Ich möchte gerne über die MSG input?Funktion einen gewissen Wert abfragen. Die Werte befinden sich in Tabelle 2 Range (A1:A20).

Sollte sich der eingegebene Wert nicht in dieser Tabelle befinden, dann soll eine Fehlermeldung zurückgegeben werden.

Wird der gewünschte Wert gefunden bzw. existiert er in der Tabelle 2 Spalte A, soll in der dazugehörigen Zeile (Tabelle 2 Spalte B) das Wort "erledigt" stehen.

Danach soll der Prozess geschlossen werden. Das Wort "erledigt" soll natürlich bestehen bleiben.

Leider komme ich da nicht weiter.

Hat jemand eine Idee? Hoffe habe mich verständlich ausgedrückt. Leider habe ich auch nicht so Ahnung von VBA.

Vielen Dank schon mal.

Gruß.

Guten Tag,

Ich möchte gerne zwei Tabellenblätter aus Excel (Tabellenblatt 1und 3) auf dem Desktop als .pdf speichern.

Der Name der Pdf sollte wie der Zelleninhalt aus Tabelle 1 Zelle G10 lauten.

Leider bekomme ich dies nicht hin.

Kann mir da jemand bitte helfen?

Mit freundlichen Grüßen

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

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?

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

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