Hallo zusammen,

ich habe auf meinem MacBook mein Office-Paket auf 2016 geupdatet und komme jetzt in Excel nicht mehr klar.. Ich möchte gerne eine bestehende UserForm bearbeiten. Konkret will ich noch ein paar Buttons hinzufügen. Seit dem Update weiß ich aber nicht mehr, wie ich die UserForm so öffnen kann, dass ich dort etwas bearbeiten kann. Den Code der da hinter steckt kann ich ändern, nur die Form an sich nicht.

Danke für eure Hilfe :)

Hallo, Ich habe in Excel ein Rechnungsformular geschrieben. Nun soll die erstellte Rechnung (Tabellenblatt 1) (wo z.B. Adresse, Name, Rechnungsnummer, Preis, Artikel usw.) in einem neuen Tabellenblatt (Tabellenblatt 2) gespeichert werden. (also die relevanten Daten wie oben geschrieben) Außerdem will ich auch Rechnungen anhand der Rechnungsnummer suchen lassen und sie erscheinen lassen. Ich habe einen Button erstellt wo sich eine Userform öffnet und dort soll man eine vorhandene Rechnungsnummer suchen können. Excel soll dann die Daten aus Tabellenblatt 2 nehmen und sie wieder in einem neuen Tabellenblatt (Tabellenblatt 3) einfügen, das die gleiche Formatierung hat wie Tabellenblatt 1. Also Tabellenblatt 1 dient dazu neue Rechnungen zu erstellen, Tabellenblatt 2 soll die eingegebenen Daten aus Tabellenblatt 1 übernehmen und Tabellenblatt 3 soll dazu dienen die Werte aus Tabellenblatt 2 richtig als wieder Rechnung auszugeben. Hoffentlich ist das verständlich und ihr könnt mir helfen. MFG

Hallo zusammen,Gerade bin ich dabei auf Excel eine Datei zu entwerfen (eine Art Konfigurator). Soweit bin ich fast fertig. Am Ende soll der User seinen Namen, Mail und Nummer für den Kontakt eingeben. Diese stehen in drei Textboxen. Nach klick auf einen Button werden diese drei Werte nun in eine Zelle übertragen (auf einem neuen Dokument welches Automatisch erzeugt wird). Alles klappt wunderbar. Nur wird nun bei der Telefonnummer stets (falls vorhanden) die führende Null abgeschnitten, obwohl ich das nicht möchte. Alle Variablen, die die Werte enthalten, sind als String erstellt worden. Warum schneidet er die führende Null ständig ab, bzw. wie kann ich das lösen?Vielen Dank für eure Hilfe.

Ich habe eine Userform erstellt wo man Rabatte einfügen kann und möchte das wenn die TextBox leer ist die Rabatt Zeile ausgeblendet ist und wenn sie beschrieben ist das die Zeile wieder angezeigt wird und der Text aus der TextBox in die Zeile gespielt wird

Der Titel sagt glaube ich schon alles

Die userform2 hat die gleichen Textfelder usw

Hallo,

ich möchte aus dem Bereich A2:A10 alle Werte auslesen und diese dann jeweils immer in A12 kopieren lassen (ja der Wert soll dann immer wieder überschrieben werden!!!).

Ich dachte dabei an eine For-Schleife, weil ich zuvor auslesen lasse, wie viele Werte es in Spalte A wirklich gibt und dann das entsprechend soft durchlaufen lasse. Gibt es eine Funktion, wo ich die Spalte dann festlege und bspw. mit i=2 für die Reihe in jedem Durchlauf dann die Zeile darunter nehme?

LG Syrena

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

Hallo,

ich kriege eine Fehlermeldung in VBA, finde allerdings keine Lösung, dies zu beheben. Könnt ihr mir helfen?

Sub Berichte()
    Dim Liste As Workbook
    Dim Bericht As Workbook
    Dim Dati As Variant
    
    Set Bericht = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    ActiveWorkbook.Sheets("Tabelle1").Columns("A:E").Copy
    
    Windows(Bericht).Activate
    Columns("A:E").Select
    ActiveSheet.Paste

End Sub

Danke für eure Antworten

Hallo, VBA ist nicht meine Welt, daher hoffe ich hier auf eine kleine Unterstützung. Ich brauche ein Makro, welches sich aus drei Eingabefelder ("B1"; "B2" und "B3") den "B3" Wert entnimmt und in einer Tabelle diesen Wert einträgt. Die Tabelle ist wie folgt aufgebaut: Der Wert (Text), welcher in "B1" steht befindet sich irgendwo zwischen "A7" und "A65" und "B2" befindet sich irgendwo zwischen "C6" und "BB6". Vielen Dank im Voraus!

Hallo, ich habe eine Excel Datei, welche eine benutzerdefinierte Symbolleiste enthält. Diese wird unter Add Ins angezeigt. Die Datei enthält keine Makros, worüber die Symbolleiste gestartet wird. Ich benutzte Excel 2010 und 2013, die Datei wurde vermutlich mit einer älteren Excel Version erstellt. Ich würde diese Symbolleiste gerne löschen, habe schon mit Rechtsklick die Liste gelöscht. Ein Makro zum Löschen eingebaut. Aber immer wenn ich die Datei öffne ist die wieder da. Die Symbolleiste scheint an diese Datei gebunden zu sein. Ich würde die Datei gerne behalten aber ohne diese Symbolleiste. Ich möchte auch kein Makro einbauen, dass die Symbolleiste beim Öffnen immer gelöscht wird. Hat jemand einen Rat? Grüße und vielen Dank

moin ich habe ein problem undzwar habe ich in excel vba einen knopf wenn ich ihn drücke kommen 4 pdf datein und werden gespeichert kann man alle 4 in einem zsm speichern lassen also zb bündeln?

Danke im vorraus MFG CS

Hallo zusammen,

Ich denke, eine sehr einfache Frage für VBA-Experten, die ich durch googlen aber nicht lösen kann.

Ich habe 2 verschiedene Excel-Dateien (bsp. '1.xls' & '2.xls').

Beide Dateien sind in Excel geöffnet.

Ich möchte jetzt per Button in '1.xls' die zweite Datei (also '2.xls') speichern können.

Folgendes habe ich getestet, was nicht funktioniert:

Dateinameneu = Range("H6") & "-" & 2.xls.Name
2.xls.SaveAs "C://Dokumente/"&Dateinameneu

Ich kenne das leider nur mit "ActiveWorkbook.Saveas", aber ich will ja die andere Datei speichern.

WICHTIG! 'Saveas' muss es sein, da die Datei '2.xls' wie ihr in dem Codebeispiel sehen könnt, nachher anders heißen soll.

Danke im Voraus!

Dennis

Hallo

Ich überarbeite zur Zeit mein Haushaltsbuch und habe jetzt folgendes Problem, wofür ich eine Lösung bräuchte.

Ich möchte (siehe Bild - Feste Ausgaben), wenn eine Zeile frei ist, der gesamte untere Bereich automatisch um eine Zeile nach oben verschoben wird.

Beispiel Bild in E7-H7 soll dann E8-H7, E8-H8 soll dann E9-H9 stehen usw.

bzw. wenn zwischen den Zeilen eine leere Zeile frei ist, soll der Bereich der unter der leere Zeile stehen z.B. auch um 1 Zeile automatisch nach oben verschoben werden.

Beispiel Bild: Der gesamte Bereich von E12-H12 - E16-H16 soll um 1 Zeile nach oben verschoben werden Bezieht sich aber auch darauf, wenn ggf. mehrere Zeilen untereinander frei sind

Bezieht sich aber nur auf die Tabelle "Feste Ausgaben". Die Reihenfolge soll nicht verändert werden (z.B. keine Sortierung von A-Z)

Falls relevant Desweiteren stehen in allen Zellen (außer Spalte Datum) Formeln, da die Daten die in der Tabelle stehen aus einer anderen Tabelle übernommen werden. Diese müssen beim verschieben ja eigentlich nur gelöscht bzw. überschrieben werden.

Danke für die Hilfe im vorraus

Hallo,

ich möchte bei einer erfüllten Wenn-Bedienung einen Wertebereich anzeigen lassen.
Einzelne Werte sind ja möglich aber einem Bereich leider nicht.

Hat jemand eine andere Lösung?

VBA ist mir auch recht.

Danke :)

Hallo, ich habe eine wichtige Frage zu Excel. Wie ist es möglich, dass Excel bei einer ca. 200 Zeilen langen Tabelle die Spalten einer Zeile automatisch verändert? Ein Beispiel: In der B1 steht 8301 und in der Zelle B2 steht 8300. Nun soll Excel die Zahl 8301 in 8300 umwandeln und die Zahl 8300 in 8301. Geht das? Ich würde mich riesig über eine Antwort freuen und ich danke im voraus.

Hallo,

ich habe zwei Excel Dateien. Mit Adressdaten. Das VBA-Skript soll die erste Excel-Datei Zeile für Zeile iterieren und in der zweiten Excel-Datei nach Adressen suchen die gleich sind.

Wird in der zweiten Datei die Adresse aus der ersten Datei gefunden, soll ein weiterer Wert von der zweiten Datei in die erste Datei rüber kopiert werden.

Wichtig wäre mir dabei, dass das Skript in der ersten Excel-Mappe ausgeführt wird, und dass die zweite Excel-Datei gar nicht erst geöffnet wird.

Ich habe schon sehr viel programmiert - aber bisher noch nie etwas in VBA. (und ich komme mit VBA nicht so ganz klar)

Daher wollte ich fragen, ob hier jemand ein Skript hat oder kennt, das etwas ähnliches macht, so dass ich es mir ein bisschen abgucken kann. (Prinzipiell ist das ja ein Problem, das sicherlich häufiger auftritt)

Guten Tag.

Ich habe zwei Fragen bezüglich Excel VBA.

1. Ich möchte den Text in einer Textbox mit einem Mausklick markieren (Die Textbox kann übrigens nicht von Hand ausgefüllt werden und ist für die Bearbeitung gesperrt). Es soll aber nur ein einziges Wort markieren.

2. Der markierte Text soll in eine andere Textbox erscheinen, sobald man draufgeklickt hat. Das Ganze ist übrigens in einer Userform

Bin noch relativ Neuling im VBA, würde mich über eine Antwort freuen.

Ein Bild ist im Anhang.

Heute habe ich mal wieder Zeit mich mit Excel / VBA zu beschäftigen. Und komme leider nicht wirklich weiter

Ich kann per DropDawn Liste in einem Userform, Daten aus einer Tabelle integrieren. Beispiel: Nahrungsmittel1 auf 100g mit jeweils 10g Eiweiß, 18g Kohlenhydrate usw. werden in Userform/Textfelder eingetragen

Jetzt möchte ich, wenn ich im Userform die Menge z.B. auf 200g ändere, dass die Zahlenwerte für Kohlenhydrate, Eiweiß etc. automatisch aktualisiert werden.

Private Sub txtMenge1_Change() 
    If CDbl(txtMenge1) <> 100 Then
               txtKohlenhydrate1.Value = CDbl(txtKohlenhydrate1) * CDbl(txtMenge1) / 100
        End If
    End Sub

Er aktualisiert zwar z.B. im Textfeld Kohlenhydrate was sobald eine Eingabe erfolgt, rechnet aber nicht mit dem Ursprungswert von zb. 10g oder 18g. Sobald ich anfange die Zahl in Menge auf 200g zu ändern passiert jetzt folgendes. Wenn ich jetzt anfange die Zahl auf 2 ändere, stimmt das Ergebnis noch. Möchte ich aber jetzt eine 0 hinzufügen, geht er nicht mehr von 10g bzw 18g aus, sondern von denm Wert der bei einer 2 berechnet wurde. Somit stimmt das Ergebnis nicht mehr. Bei 2 kommen bei 10g ja erst mal 0.2g aus, füge jetzt jetzt aber ne 0 hinzu, sollen eigentlich 2 rauskommen. Es kommt dann aber 0,04 raus.

Da ich in VBA noch Neuling bin,möchte ich bitten mir das verständlich zu erklären. Danke im Vorraus

Hallo! Ich versuche derzeit bei einer Excel Tabelle folgendes zu erreich:

Ich habe 10 Spalten. Wenn in Spalte 2 Wort A steht, soll die ganze Zeile Rot, wenn dort Wort B steht soll die ganze Zeile Gelb werden usw. Das ganze soll für jede Zeile einzeln gelten bei mehreren 100 Zeilen. (Also Zeile 1 hat in der Spalte Wort A = rot, Zeile 2 Wort B = gelb)

Über die Bedingte Formatierung bekomme ich es allerdings nur hin, dass dann nur die jeweilige ZELLE wo das Wort drin steht gefärbt wird, aber nicht die ganze Zeile. Wie löse ich das Problem?

Hallo zusammen,

ich lasse via Excel Timer den Wert von X-Minuten runterzählen.

Aktuell sieht das wie folgt aus:

Sub nexttick() 
  If Tabelle1.Range("D26") = 0 Then Exit Sub 
  Tabelle1.Range("D26").Value = Tabelle1.Range("D26").Value - TimeValue("00:00:01") 
  starttimer 
End Sub

Wenn nun der Wert "0" erreicht ist, dann soll in einer anderen Zelle "A2" der Wert um eins hochgesetzt werden. Zudem soll der Timer immer wieder von neu anfangen, wenn er bei "0" ist.

Habt Ihr eine Idee, wie ich das am besten lösen könnte?

Vielen Dank!

Hallo zusammen

Leider konnte ich bis jetzt noch keine Lösung resp. Code finden, um dieses Problem zu lösen.

Aufgabenstellung: Die Zeilen 1 bis 33 wurden auf dem Tabellenblatt "Rechnung" als Wiederholungszeilen definiert. Die Zeilen 25 bis 30 sollen nur auf der ersten Seite erscheinen, danach sollen diese auf den folgenden Seiten nicht mehr erscheinen. Die Zeilen 25 bis 30 sollen auf den nächsten Seiten ausgeblendet werden und die Zeilen 31 bis 33 sollen wiederrum auf jeder Seite zu sehen sein. Die Anzahl der folgenden Seiten ist immer individuell, das heisst, es können 3, 4 oder manchmal auch 12 Seiten oder mehr sein.

Wie lautet der korrekte Code? Vielen Dank im Voraus für hilfreiche Antworten.

Pablo223344

Hallo meine lieben,

ich benötige wieder einmal eure Hilfe. Ich habe im Internet einen VBA Code gefunden der es ermöglich in einer PowerPoint Präsentation die aktuelle Uhrzeit mit Sekunden anzuzeigen. Da der Code leider nicht 64bit tauglich war hab ich ein wenig rumgetüftelt und siehe da, die Uhr selbst funktioniert schon mal. Aber leider bekomme ich ständig eine Fehlermeldung sobald die Folie gewechselt wird. "slides (unknown member): bad argument type. Excectet Collection index (string or integer). Ich verwende Windows 10 und Office 2016.

Würde mich rießig freuen wenn mir hier jemand weiterhelfen kann.

Vielen Dank im Voraus.

Leider ist der Code zu lange daher in 2 Teile.

Erster Teil:

Option Explicit

'API Declarations
Declare PtrSafe Function SetTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr, _
                             ByVal uElapse As LongPtr, _
                             ByVal lpTimerFunc As LongPtr) As LongLong

Declare PtrSafe Function KillTimer Lib "user32" _
                            (ByVal hwnd As LongPtr, _
                             ByVal nIDEvent As LongPtr) As LongLong

' Public Variables
Public ClockTimerID As LongLong
Public prevSlideIdx As LongLong

Const TIMEFORMATSTRING As String = "dd.mm.yyyy - HH:mm:ss - KW :ww" 'show seconds with: "HH:mm:ss""

Dim pptEventObject As New Klasse1 'AppClassModule
'DIESE METHODE EINMALIG UNTER MAKROS STARTEN, DAMIT DAS EVENTHANDLING FUNKTIONIERT!
Sub InitializeApp()
    Set pptEventObject.App = Application
End Sub


Sub StartClockTimer()
    On Error GoTo ErrorOccurred
    
    'first make sure its not already running
    ClockTimerID = KillTimer(0, ClockTimerID)
    ClockTimerID = SetTimer(0, 0, 1000, AddressOf TimerProcClock)
    If ClockTimerID = 0 Then
        MsgBox "Unable to create the clock timer", vbCritical + vbOKOnly, "Error"
        Exit Sub
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


Sub StopClockTimer()
    On Error GoTo ErrorOccurred
    
    If Not ClockTimerID = 0 Then
        ClockTimerID = KillTimer(0, ClockTimerID)
    End If

    Exit Sub
ErrorOccurred:
    MsgBox Err.Description
End Sub


' The defined routine gets called every nnnn milliseconds.
Sub TimerProcClock(ByVal hwnd As LongPtr, _
                    ByVal uMsg As LongPtr, _
                    ByVal idEvent As LongPtr, _
                    ByVal dwTime As LongPtr)
On Error GoTo ErrHandler
    
    If Not ActiveSlide Is Nothing Then
        ActiveSlide.Shapes("PointaixClockLabel").TextFrame.TextRange.Text = WeekdayName(Weekday((Now()))) + " " + Format(Now(), TIMEFORMATSTRING)
    End If

    Exit Sub
ErrHandler:
End Sub

Hallo user,

ich habe ein kleines problem mit einer if schleife die 2 bedingungen Prüfen soll.

If TextBox1.Text = "2" And TextBox2.Text = "2" Then CommandButton3.Visible = False Else: CommandButton3.Visible = True End If

Leider funktioniert das ganze nicht so wie ich will. Ich hoffe es kann mir jemand weiter helfen.

Hi Leute, habe ein kleines Problem mit Excel bei dem ich nicht weiter komme.

Habe eine Tabelle, in der drei Werte drinstehen

long short - (Bindestrich)

http://prntscr.com/ekuzh8

nun möchte ich wenn das Wort "long" darin steht die Zelle grün markieren, short-> rot und - irgendeine sonstige Farbe.

Dürfte für profis eigentlich kein problem sein die frage. Was muss ich dort eingeben damit die zellen entsprechend eingefärbt werden?

lg hendrik

ich importiere mehrere Excel-Datei Inhalte in eine ACCESS Tabelle, jedoch möchte ich erst ab einer bestimmten Zeile importieren. Wie geht das per VBA natürlich?

Hallo

Ich möchte gerne im Excel mithilfe von VBA ein Pythagoras-Funktion erstellen.

Function phytagoras(Zahl1, Zahl2)
     pythagoras = (Zahl1 ^ 2 + Zahl2 ^ 2) ^ 0.5
End Function

Kann mir jemand sagen was ich falsch gemacht habe? Denn wenn ich die Funktion im Excel benutze, bekomme ich den Wert 0

Ich habe in Excel eine kleine Userform erstellt, mit 4 Textboxen, in 3 werden Werte eingetragen und in der 4. ein Ergebnis ausgegeben.

Diese Userform wird jetzt als eigenständiges Fenster über dem eigenlichen Arbeitsblatt angezeigt.

Was ich gerne hätte ist, dass die Userform in einer Zelle angezeigt wird, so dass ich sie in mein Arbeitsblatt integrieren kann und zB in der Zelle A4 dann die Userform angezeigt wird.

Ist soetwas realisierbar?

Hallo alle zusammen,

ich habe eine Tabelle mit 2 Blättern, in denen 2 gleiche Index-Nr. vorkommen. Leider findet mein Makro manchmal einen Wert, der auch in anderen Nr. enthalten ist.

z.B. 1001 auch in 11001

Gibt es eine Möglichkeit genau nach dem exakten Wert zu suchen. Das Makro sieh momentan so aus:

Sub Makro2() Cells(ActiveCell.Row, 9).Select Suchbegriff = ActiveCell.Value

Sheets("Prioliste").Activate Range("A3").Select

Cells.Find(What:=Suchbegriff, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
    :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
    False, SearchFormat:=False).Activate
ActiveCell.EntireRow.Select

End Sub

Hallo, ich würde gerne einen Nebenjob annehmen, der aber VBA Programmierung für Microsoft office vorraussetzt, zum unter anderem Makros zu programmieren.

Ist das schwer zu lernen? Ich kann nur etwas Java und von VBA weiß ich nichts. Kann man sich das kurz in paar Tagen reinziehen oder finger davon lassen? Grüße

ich möchte zur ersten leeren Zeile gehen und dann den rest markieren und löschen, also den kompletten Bereich ab da? BSp. A10 ist leer, dann möchte ich ab A10:z10 und abwärts alles markieren und löschen

Wie??

Sub FIND_EMPTY_CELL()
   
    Dim zeil As Integer
    Dim z As Integer
    Dim leerAbWo As Long
   
    zeil = ActiveSheet.UsedRange.Rows.Count 'letzte ausgefüllte Zeile
   
    For z = 8 To zeil

            If Cells(z, 1) = "" Then
                'leere Zelle gefunden
                leerAbWo = Cells(z, 1).Select 'gefundene Zelle selektieren
                'jetzt ab da an bis AA markieren und rest löschen!!!
                MsgBox leerAbWo
                Exit Sub
            End If
    Next z
End Sub

Hallo,

ich programmiere ein Klavier in VBA das mit den Tönen klappt auch alles nur möchte ich oben die zu spielenden Noten einblenden und wenn ich den Next knopf drücke sollen die Noten des nächsten Stücks eingeblendet werden da hakt es noch bei mir

hat jemand einen Tipp ?

Danke

Hallo, ich lade eine menge Datensätze in eine Tabelle rein und dabei werden auch die leeren Zeilen zwischendurch mal reinkopiert. Diese möchte ich nun entfernen. Das gelingt mir mittlerweile auch. Das Problem ist, dass es zu lange dauert bei ca. 2800 leere Zeilen, da diese einzeln angeschaut werden und gelöscht. Mein bisheriger Code:

Function loescheLeerenBereichn()

Dim Zelle As Long
Dim LetzteZeile As Long
LetzteZeile = Sheets("Lieferung").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For Zelle = LetzteZeile To 7 Step -1 ' In Range(Cells(7, 4), Cells(LetzteZeile, 4))
If Cells(Zelle, 3) = "" Or Cells(Zelle, 3) = "." Then
Rows(Zelle).EntireRow.Delete Shift:=xlUp 
End If
Next Zelle

End Function

Wie kann man das schneller programmieren?

Ich möchte wenn ich in eine Zelle klicke ein Bild erscheint, aber ohne Link. Ist das möglich? und wenn ja wie ?

Liebe Community, ich habe versucht eine Schiebepuzzle aus Zahlen in Excel zu programmieren. Den Text seht ihr unten. Jedoch sobald ich auf Ausführen (Wiedergabe-Button) drücke, kommt folgender Fehler:

Laufzeitfehler '424':
Objekt erforderlich

Könnt ihr mir bitte helfen den Fehler zu finden?

Vielen Dank im Vorraus
Lamio13

Dim xpos As Integer   
Dim ypos As Integer  
Dim AlleKnoepfe(1 To 15) As CommandButton

Private Sub UserForm_Initialize()
Set AlleKnoepfe(1) = CommandButton1
Set AlleKnoepfe(2) = CommandButton2
...  
Set AlleKnoepfe(14) = CommandButton14
Set AlleKnoepfe(15) = CommandButton15
End Sub

Sub FindMich(ich As String)
    Dim ii As Integer
    Dim jj As Integer

    For jj = 1 To 4
                 For ii = 1 To 4
                      If (Cells(jj, ii) = ich) Then
                         xpos = ii
                          ypos = jj
                          ii = 5
                          jj = 5
                      End If
                 Next ii
    Next jj
End Sub
Private Sub KannMichBewegen()

    'untersuche, ob rechts frei ist
    If (Cells(ypos, xpos + 1) = "") Then
        Cells(ypos, xpos + 1) = Cells(ypos, xpos)
        Cells(ypos, xpos + 1) = ""
    End If

End Sub

Sub VerschiebMich(SchubladenNummer As Integer)
    'untersuche, ob rechts frei ist
    If (xpos < 4) Then
            If (Cells(ypos, xpos + 1) = "") Then
                Cells(ypos, xpos + 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob unten frei ist
    If (ypos < 4) Then
            If (Cells(ypos + 1, xpos) = "") Then
                Cells(ypos + 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

    'untersuche, ob links frei ist
    If (xpos > 1) Then
            If (Cells(ypos, xpos - 1) = "") Then
                Cells(ypos, xpos - 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob oben frei ist
    If (ypos > 1) Then
            If (Cells(ypos - 1, xpos) = "") Then
                Cells(ypos - 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

End Sub

Private Sub CommandButton1_Click()
    FindMich (CommandButton1.Caption)
    VerschiebMich (1)
    End Sub
...

Hallo, ich bastel mal wieder an einer excel liste rum. Ich möchte gerne eine ganze zeile aus dem Tabellenblatt "eingabe" in ein anderes Tabellenblatt "Irlbach" kopieren, wenn in der Spalte 4 ("D") "Irlbach" drin steht. einzelne Zellen kopieren bringe ich hin aber eine ganze zeile zu kopieren irgenwie nicht. Ich weis jetzt nicht ob es sinnvoll ist dann die ganze zeile oder nur die 5 zellen mit daten zu kopieren.

Hallo, ich habe wieder eine Excel Frage: ich habe eine Tabelle, Spalten A-H. In der Spalte G habe ich den Status, wo ich eine DropDown-Liste habe und zwischen: "in Bearbeitung", "Material bestellt", [...], "erledigt" auswählen kann. In Spalte H habe ich als Überschrift "erledigt am", es soll also in Spalte H, sobald ich in Spalte G den Status "erledigt" ausgewäht habe, das aktuelle Datum erscheinen. Ich habe also in Spalte H folgende Formel: "=WENN(G50="erledigt";TEXT(JETZT();"TT.MM.JJ");"")". Ich glaube, ihr wisst, worauf ich hinaus wil, also nach dem Speichern soll dich das Datum nicht ändern, tut es aber natürlich. (Ist ja klar!) Aber, da ich erst seit ein paar Monaten mit Excel arbeiten, habe ich noch keine Ahnung. Durch das Stöbern im Internet, habe ich rausgefunden, dass es nicht einfach so funktioniert (oder doch?), sondern, dass man dafür ein Makro braucht (wovon ich absolut keine Ahnung habe). Also so weit bin ich: ich habe die Tabelle offen vor mir, ich klicke auf den Tabellen-Namen und klicke auf "Code anzeigen", dann öffnet sich ja ein Makro Fenster. So, was soll ich nun machen? Ihr wisst ja, welche Spalte ich brauche, es wäre schön einen Code zu haben. :-) Und wenn ich da den Code eingefügt habe, was muss ich dann machen? Ich würde dann auf "speichern" klicken, dann öffnet er ja ein Fenster und weist mich darauf hin, dass ich die Datei als eine Mappe mit Makros speichern muss. Richtig? Dann würde ich das tun. Und dann wenn ich das gespeichert habe, müsste ich die Makros (-> "Inhalt aktivieren") jedes Mal, wenn ich die Datei öffne anklicken, oder? und dann habe ich das, was ich will. Bitte helft mir, ich verzweifle so langsam...

Ich möchte mehrere buttons erstellen bei denen 2 den gleich wert haben soll. Werden die buttons mit den gleichen wert aktiviert soll dies in einen Ausgabefenster gezeigt werden.

danke an alle die mir helfen können

Hallo zusammen,

habe mal wieder ein problem mit excel.... im nachfolgenden code geht alles soweit bis auf die zwei if cods bzw. der eine der sich auf die 4 ("D") Zeile bezieht geht. der code der auf zeile 9 gerichtet ist geht einfach nicht... wenn ich anstelle 9, 8 angebe und ändere gehts. es gehen alle spalten bis auf 8. dann is sense...

kann es sein, dass nur 8 zeilen irgendwie unterstützt werden oder hab ich da was falsch gemacht?

Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
   
   If IsEmpty(Target) Then Exit Sub
   If Intersect(Target, Range("a2:h100")) _
      Is Nothing Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target = UCase(Target)
ERRORHANDLER:
   Application.EnableEvents = True

    If Target.Column = 4 Then Call Zelle11 ' Heim
    
    If Target.Column = 9 Then Call Zelle12 ' Gast
    
    
End Sub

Hallo, Ich möchte gerne mit einer If... and ... Abfrage eine ganze spalte bis zur Zeile 120 durchführen. Muss ich da jetzt für jede Zeile einmal den ganzen Text schreiben wie im Bild gezeigt oder geht das einfacher? 

Es wäre auch super wenn die namen mit den ergebnissen in den Reihen "I" und "J" direkt untereinander stehen würden und ggf schon sortiert nach den Ergebnissen in der Reihe "J" mit dem besten ganz oben, falls das geht.

vielen dank schonmal

Sub deleteTable()

If CurrentProject.AllForms("tblUpload").IsLoaded Then DoCmd.Close acForm, "tblUpload" Else DoCmd.DeleteObject acTable, "tblUpload" End If

End Sub

Bekomme aber eine Fehlermeldung: In dem von ihnen eingegebenen ausdruck wird auf ein objekt verwiesen, das geschlossen oder nicht vorhanden ist.

Moin ihr Lieben. Ich habe folgendes Problem. Ich brauche genau eine Funktion die Excel schon hat.. aber etwas geändert. Undzwar gibt es ja die Möglichkeit unter Datei -> Externe Daten importieren -> Aus Text, CSV Dateien sehr gut zu importieren. Dort kann man angeben ab welcher Zeile der CSV Datei erst importiert werden soll, weil z.B. in der ersten Zeile nur Überschriften stehen. Mein Problem ist das dies immer nur mit einer zur Zeit geht. Kennt jemand ein Makro mit welchem dies geht bloß eben mit mehreren? Das man sagt: die ersten 3 Zeilen immer ignorieren und alles andere ab A1 oder so untereinadner einfügen?

Wäre eine super Hilfe!!!

Hallo liebe Leute,

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

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

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

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

Ich hoffe jemand kann mir da weiterhelfen :)

Beste Grüße

Chris

Hallo,

ich versuche über ein Makro die Range einer Scroll Bar (Steuerelement) zu verändern, genauer gesagt den Max-Wert, der beeinflusst, wie weit das Steuerelement scrollen kann.

Mein VBA ist leider echt eingerostet und es hakt bei mir glaube ich mit den Zugriffsrechten.

Ich habe jetzt in ein Modul folgendes eingegeben:

Sub ScrollbarAnpassen(ByVal i As Long)

    Worksheets("Powder2").Shapes.Range(Array("Scroll Bar 1")).Max = i
       
End Sub

Es funktioniert aber nicht. Ich rufe dieses Sub aus einem Tabellenblatt auf (also im Editor auf dem Codeblatt der Tabelle)

Kann mir jemand helfen?

Hallo ihr lieben, habe mal wieder eine frage mit excel vba.

ich möchte gerne mit einem Makro folgendes erreichen: Es gibt 300 Zeilen die Überprüft werden sollen.

• wenn in der Spalte B (Verein) der Verein "Irlbach" drin steht, soll die komplette Zeile in das Tabellenblatt "Irlbach" kopiert werden.

• die restlichen Vereine ( hier z.B. Grünthal) sollen dann in das Tabellenblatt "Gastverein" eingetragen werden.

Ein Bild auf was sich das Makro beziehen soll habe ich angefügt.

Vielen dank schonmal :)

Ich bin in der 13. Klasse und habe mit ausgesucht für eine Projektarbeit ein Memory spiel zu erstellen. Ich bin etwas hilflos da meine vba Erfahrungen gegen null gehen. Könnt mir jemand helfen? Danke schon mal im voraus falls mir jemand helfen kann

Excel VBA: wie kann ich in einer Spalte Zellen nach unten mit dem entsprechenden Muster selektieren - erste Zelle mit einem Wert bis zur nächste Zelle mit einem Wert minus einer Zelle: es soll B1+B2 durch das Makro selektiert werden, dann sollen diese Zellen merged werden; danach soll B3 gewält werden und gemergered werden; danach dann B4+B5+B5 markiert werden und ebenfalls merged werde usw bis zum Ende der Spalte B

Reihe       A    B    C   D

Reihe 1    1   da    er  we

Reihe 2    2

Reihe 3    1   be    de   oi

Reihe 4    1   as    sa   ds

Reihe 5    2

Reihe 6    3

Reihe 7    1  dw

Vielen Dank für Hilfe und Anregungen

Grüße Sascha

Hi liebe Leute, ich benötige bei meiner Excel-Datei eure Hilfe.

Die Datei hat zwei Tabellenblätter "Ermittlung" und "Markierung"

In dem Tabellenblatt "Ermittlung" steht untereinander genaue Zellenpositionen: A4, A1517, A119, A1831 usw. Nun möchte ich, dass dies gerne mittels VBA Makro alle diese Positionen erkennt und auf dem anderen Tabellenblatt "Markierung" farbig markiert.

Dann im nächsten Makro, dass Excel diese farbigen Zeilen kopiert und auf das dritte Tabellenblatt "Prüfung" kopiert. Aber er soll nicht einfach die komplette Zeile kopieren, sondern nur den Bereich Spalte A bis R und genau auch nur in Spalte A bis R diese wieder einfügen.

Gerne seprate in zwei verschiedenen Makros. Ich habe schon gesucht und probiert, aber nichts hat geholfen. Habt Ihr eine Idee? Danke

Jetzt noch mal für Doofe: schaut euch bitte das beigefügte Bild an. Mein Problem: Ich hätte gern, dass wenn ich die Datei (als eine normale Exceldatei) speichere, dass sie wie folgt heißt: "11.01.2017 10:22 Esel", sprich "A3_B3_C3". Zweck soll sein, dass wenn ich den Ordner öffne, wo sich dann anschließend die so benannten Datei aufhalten, ich eine chronologische Folge habe. Ich habe absolut keine Ahnung von Excel und bitte euch mir zu helfen. Solche Aussagen wie "Füge einfach XY als MAkro ein" helfen mir nicht, weil ich nicht weiß, wie und wo ich was reinkopieren muss. Könntet ihr mir bitte helfen und mir wirklich wie für eine wirklich ahnungslose senile Person mit IQ von 3 erklären? Wie für einen Steinzeitmenschen, aller Schritt für Schritt? Sonst verliere ich den Faden und erkenne nicht die Zusammenhänge. Und noch was: die Ausgangsdatei sollte am Besten als Vorlage abgespeichert werden, damit ich nicht jedes Mal aufs Neue diese Tabelle erstelle müsste. Danke!

Hey :) kann mir da jemand weiterhelfen. ich weiß nicht ganz wie ich es schaffe, dass das Komma richtig berechnet wird und nicht nur so angezeigt wird. bin über jede hilfe dankbar. 1 stunde hab ich noch zeit bevor ich die hausübung hochladen muss x_x nächstes mal schieb ichs lieber nicht die ganzen ferien auf

Option Explicit Dim Zahl1 As Integer Dim Zahl2 As Integer Dim Operator As String Dim zähler As Long

Private Sub cb0_Click() Me.tbanzeige = Me.tbanzeige & "0" End Sub

Private Sub cb1_Click() Me.tbanzeige = Me.tbanzeige & "1" End Sub

Private Sub cb2_Click() Me.tbanzeige = Me.tbanzeige & "2" End Sub

Private Sub cb3_Click() Me.tbanzeige = Me.tbanzeige & "3" End Sub

Private Sub cb4_Click() Me.tbanzeige = Me.tbanzeige & "4" End Sub

Private Sub cb5_Click() Me.tbanzeige = Me.tbanzeige & "5" End Sub

Private Sub cb6_Click() Me.tbanzeige = Me.tbanzeige & "6" End Sub

Private Sub cb7_Click() Me.tbanzeige = Me.tbanzeige & "7" End Sub

Private Sub cb8_Click() Me.tbanzeige = Me.tbanzeige & "8" End Sub

Private Sub cb9_Click() Me.tbanzeige = Me.tbanzeige & "9" End Sub

Private Sub cbdurch_Click() Zahl1 = Me.tbanzeige.Text Operator = "/" Me.tbanzeige.Text = "" End Sub

Private Sub cbend_Click() End End Sub

Private Sub cbhae_Click() Me.tbanzeige = Me.tbanzeige & "Gib doch endlich eine Rechnung ein" End Sub

Private Sub cbist_Click() Zahl2 = Me.tbanzeige.Text If Operator = "+" Then Me.tbanzeige.Text = Zahl1 + Zahl2 ElseIf Operator = "-" Then Me.tbanzeige.Text = Zahl1 - Zahl2 ElseIf Operator = "*" Then Me.tbanzeige.Text = Zahl1 * Zahl2 ElseIf Operator = "/" Then Me.tbanzeige.Text = Zahl1 / Zahl2 End If

Operator = "="

End Sub

Private Sub cblöschen_Click() Me.cblöschen = "" End Sub

Private Sub L_Text_Click()

End Sub

Private Sub cbkomma_Click() Me.tbanzeige = Me.tbanzeige & "," End Sub

Private Sub cbloeschen_Click() Me.tbanzeige.Text = ""

End Sub

Private Sub cbmal_Click() Zahl1 = Me.tbanzeige.Text Operator = "*" Me.tbanzeige.Text = "" End Sub

Private Sub cbminus_Click() Zahl1 = Me.tbanzeige.Text Operator = "-" Me.tbanzeige.Text = "" End Sub

Private Sub cbplus_Click() Zahl1 = Me.tbanzeige.Text Operator = "+" Me.tbanzeige.Text = "" End Sub

Private Sub CommandButton1_Click() Userform1.Show End Sub End Sub

Private Sub CommandButton2_Click()

End Sub

Private Sub cbPrimzahl_Click() Zahl1 = Me.tbanzeige.Text Me.tbanzeige = "ist eine Primzahl"

For zähler = 2 To Sqr(Abs(Zahl1)) Me.tbanzeige = "ist eine Primzahl" If Abs(Zahl1) Mod zähler = 0 Then Me.tbanzeige = "ist keine Primzahl"

Exit For End If

Next zähler

End Sub

Private Sub UserForm_Click()

End Sub

Hallo Ich habe ein Problem. Ich möchte per Makro oder vba im Excel eine andere Exceldatei öffnen. Aber so: Wenn A1= xyz (xyz ist der dateiname) dann öffne datei xyz. Das mnatürlich mit einem Button der Suchen drauf steht. Den habe ich schon erstellt.

Hallo,

da ich leider nicht alle technischen Begriffe richtig kenne und deshalb evtl. hier falsch verwende bereits vorab die Bitte um Entschuldigung.

Ich bekomme täglich eine csv Datei mit Daten aktueller, also zum heutigen Tag angestellten, Mitarbeitern. Hier steht bspsweise Personalnummer (eindeutiger Schlüssel), Nachname, Vorname,Eintrittsdatum und Austrittsdatum (Achtung: Das Austrittsdatum stimmt leider nicht immer). Zur Veranschaulichung die Datumsangaben mal weggelassen.

...

124514; Müller; Jonas;

231423; Fischer, Joachim;

423313; Haupt, Christian;

...

Sobald ein Mitarbeiter nicht mehr aktiv ist (also aus der Firma ausgetreten ist) wird der Datensatz am folgenden Tag auch nicht mehr übergeben (kommt also in der aktuellen csv Datei nichtmehr vor).

Es würde also am Folgetag die csv folgendermaßen aussehen, wenn Müller das Unternehmen verlassen hat und Newbie beispielsweise neu angefangen hat. Die Neueintritte müssen nicht abgefangen werden, wollte ich nur als Info dazusagen, dass diese dann zusätzlich in der neuen Datei vorhanden sind. Es geht ausschließlich um die Austritte, also die Mitarbeiter die in Vortagsdatei vorkamen, jetzt in tagesaktuellen aber nicht mehr vorkommen.

...

231423; Fischer, Joachim;

423313; Haupt, Christian;

599999; Newbie, Franziska;

...

Da das Austrittsdatum, welches auch mitgeliefert wird, leider teilweise nicht korrekt ist, kann ich mich nicht auf dieses Feld verlassen und irgendwie danach gehen. Auch haben beispielsweise unbefristete Mitarbeiter hier keinen Eintrag.

Ich bin nun auf der Suche nach einer Möglichkeit, wie ich die täglichen Austritte abfangen kann, also die Differenz zwischen mitgelieferten Daten der aktuellen Datei gegenüber der zum Vortag vergleichen kann. Dies sollte jeden Tag automatisiert funktioniert (durch einen Windows Dienst?)

Meine Idee war, dass ich diese beiden csv Dateien Datei H (Heute, im Beispiel oben die Datei mit Newbie) und Datei H-1 (gestern, Datei mit Müller) täglich vergleichen lassen und mir die Austritte jeweils in eine extra Datei, egal ob csv oder Excel, ausgeben lasse, sodass ich am Ende jeden Monats alle Austritte nochmal überprüfen kann.

Im obrigen Beispiel sollte dann beispielsweise der Datensatz zu Herrn Müller in eine Datei übergeben werden inkl den mitgelieferten Informationen wie Eintrittsdatum und Co. und wenn möglich dem aktuellen Tag (oder Zeitpunkt/aktueller Zeitstempel, damit nachvollzogen werden kann, wann genau dieser Mitarbeiter ausgetreten ist)

Leider fehlt mir jede technische Idee, wie ich sowas am schlausten umsetze und technisch realisiere. Hierfür wäre ich euch sehr über eure Ideen dankbar! Ich will ungern zunächst in eine komplett falsche Richtung laufen und danach bemerken, dass dies mir diesem System nicht umsetzbar ist.

Da dies wohl meine Mammutsaufgabe in meinem Praktikum sein wird, bin ich demjenigen, der sich hier die Zeit nimmt, mir bei der Lösungsfindung zu helfen, natürlich sehr, sehr dankbar! Vielen dank!

Frohes Neues liebe Community,

ich möchte in meinem VBA-Programm ein Userform direkt durch einen Befehl im Code schließen. Auf dem Userform befindet sich ein Button, welcher das Programm startet, dass am Ende eine Messagebox öffnet und nebenbei zum Schluss das Userform schließt. Sicherlich ist es ein ganz einfacher Befehl, aber ich bekomme es einfach nicht hin. Unloadme hat nicht funktioniert.

LG Patrick

Hallo zusammen,

Ich habe eine Excel-Tabelle in der in Spalte M als Text "X" oder "Y" auftauchen. Da ich den Text als Wingdings formatiert habe, sieht man das in Form eines Hakens oder eines X-Symbols. Wenn nun in Zelle M2:M1000 ein "X" steht ist das Fahrrad (steht in Spalte L) schon vergeben und soll nicht in der ListBox angezeigt werden. Sollte z.B. das Dienstfahrrad 1 in einer Zeile ein X haben und in einer anderen Zeile ein Y, dann ist es trotzdem nicht verfügbar und darf nicht in der ListBox angezeigt werden.

Welcher Code muss in die ListBox eingegeben werden, damit diese alle Fahrräder, die ein X in Spalte M haben, aus dem Bestand löscht und nicht in der ListBox anzeigt?

Folgende Fahrräder sind im Bestand: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Folgende Fahrräder sollten also im Beispiel meines Screenshots angezeigt werden: Dienstfahrrad 2 Pedelec 2

Etwas kompliziert, aber ich hoffe, dass ihr mich verstehen konntet.

Danke im Voraus!

Hallo zusammen,

Wie in den Screenshots zu sehen, programmiere ich aktuell eine Fahrradreservierung in Excel. Es ist soweit alles fertig, bis auf einen Code.

Folgender Code fehlt mir. Im Formular soll man die Daten der gewünschten Ausleihe eintragen (4 Felder --> Abholdatum und -zeit, sowie Rückgabedatum und - zeit). Danach soll mit Klick auf den Button "Verfügbarkeit prüfen" in der ListBox (unter den Eingabefeldern) die Fahrräder angezeigt werden, die an den angefragten Zeitpunkten noch verfügbar sind.

Die vorhandenen Datensätze (die geprüft werden müssen) befinden sich in Tabelle1.

Folgende Fahrräder gibt es allgemein: Dienstfahrrad 1 Dienstfahrrad 2 Klapprad Pedelec 1 Pedelec 2

Meine Bezeichnungen in UserForm 1: 1.TextBox hinter "Abholdatum" = Textbox4 2.TextBox hinter "Abholuhrzeit" = Textbox5 3.TextBox hinter "Rückgabedatum" = Textbox6 4.TextBox hinter "Rückgabeuhrzeit" = Textbox8 5.Button "Verfügbarkeit prüfen" = CommandButton5 6.Listbox mit verfügbaren Fahrrädern = ListBox2

Ich hoffe, mir kann da einer helfen und/oder sogar einen Code schicken.

Danke im Voraus!

Ich habe ein grosses Problem, leider kriege ich es nicht selbst gelöst. Deswegen hoffe ich hier auf Hilfe :)

Also ich habe ein grosses Tabellenblatt in Excel. Darin befinden sich dynamische Werte in den Zellen L3:L10700 und M3:M10700, die sich sekündlich oder minütlich ändern bzw. aktualisieren (ohne eigenes Zutun). Nun möchte ich die letzten 4 Werte der Zellen in Nebenzellen speichern/einfrieren. Als Beispiel soll M3 dienen.

Nehmen wir an, in M3 kommt es zu folgender Zahlenreihe: Zuerst 100, 101, 102, 103 und zuletzt steht in M3 104.

Nun möchte ich, dass in N3 der "zweitletzte" Wert, in O3 der drittletzte, in P3 der viertletzte und in Q3 der fünftletzte Wert dieser Zahlenreihe gespeichert oder eingefroren wird.

Also soll schlussendlich in N3 103, in O3 102, in P3 101 und Q3 100 stehen.

Wie gesagt, die Werte ändern sich ständig automatisch. Kriegt man das per VBA irgendwie hin? Bin leider totaler VBA-Beginner, aber um eine Antwort wäre ich sehr dankbar!

Danke und Gruss

Hallo Zusammen!

Ich habe folgenden Code zum erstellen einer PDF aus einem Sheet.

Der Code erstellt einen PDF namen und gibt dem Benuzter die Wahl zu speichern wo er will.. Danach kommt noch eine MSG Box und führt einen Datenbankbefehl aus usw.. Alles soweit ok..

Kann man zusätzlich die Datei noch in "Temp" speichern und per PDF senden? Als Betreff den Dateinamen ? Gerne würde ich auch den Emailempfänger direkt vorgeben und wenn möglich auch das senden ohne bestätigen ausführen.. geht das?

Sub speichern_unter_PDF_AV() a = MsgBox("WKZ ins Budget übertragen?", _ vbYesNo + vbQuestion, "WKZ buchen, PDF erstellen?") If a = vbYes Then 'Bereich kopieren Sheets("AV Markt").Range("AH14:AO14").Copy 'einfügen in erste freie Zeile in ausgabe Sheets("Datenbank AV").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 'Kopiermodus beenden Application.CutCopyMode = False Name = Range("Z1") Sheets("AV Markt").Activate Dim neuerDateiname As String neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "AV - " & Name & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (.pdf),.pdf") If Not neuerDateiname = "Falsch" Then ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True Dim loI Dim WsShell Set WsShell = CreateObject("WScript.Shell") loI = WsShell.Popup("WKZ erfolgreich übertragen!" & vbCrLf _ & " " & vbCrLf _ & "AV bitte übermitteln" & vbCrLf _ & " " & vbCrLf _ & "AV´s müssen unterschrieben auf dem Laufwerk abgelegt werden!" & vbCrLf _ & "Danke", Title:=" Power Team") End If End If End Sub

Moin!

Meine Frage:

Wie lautet der VBA-Code, wenn ich in Spalte S (Besetzte Zellen: S9:S157) "Ja" schreibe, soll in Spalte U in der jeweiligen Zeile das aktuelle Datum automatisch eingesetzt werden und eingefriert werden ohne das es sich am nächsten Tag aktualisiert. Wenn ich eine Zelle in Spalte S die Zelle freilasse, soll in Spalte U automatisch "Nein" erscheinen.

Danke schonmal im Voraus!

Gruß

Luka

Hallo liebe Community,

ich habe folgendes Problem. In Excel wird eine Fehlerauswertung für Teile erstellt. Dabei sollen die gemessenen Fehler von einer Tabelle in eine andere übernommen werden, die dann mit diesen Werten weiterrechnet. Dies wurde bisher durch einen einfachen Verweis (='Tabellenblattx'!Cxx) erledigt. Das Problem ist nun, dass einzelne Fehler bestimmter Teiler zur Zeit nicht in die Berechnung einfließen sollen und deshalb manuell auf 0 geändert wurden. Dummerweise wurde dadurch jedoch jedes mal die Beziehung zu der Ursprungstabelle gelöscht. Wie kann man dies verhindern, da die Maßnahme ja nur zeitlich begrenzt ist, und in ein paar Tagen die Werte wie gewohnt übernommen werden sollen? Anbei ein Bild um es besser zu verstehen. Vielen Dank im Voraus.

Lg Patrick.

Sehr geehrte Damen und Herren

Für mein Studium Bauingenieurswesen muss ich mit meiner Gruppe im Modul Bauinformatik ein Programm mit der Programmiersprache VBA erstellen welche wir dann abgeben müssen. Meine frage ist nun welches Thema wir auswhlen könnten...es sollte weniger komplex sein da unsere Fhigkeiten in diesem Bereich noch mager sind . Ein Beispiel wre ein Programm zur Treppenberechnung welche Studenten aus den vorherigen semestern erstellt haben...

Danke im vorraus

Hallo liebe Community,

ich habe mal wieder eine Frage zu VBA. Ich möchte jetzt, dass mein Programm, nachdem es eine Prozedur (an deren Ende zwei neue Zellen erzeugt werden) ausgeführt hat, pausiert. Die Pause soll solange sein, bis der Nutzer in diese zwei Zellen Werte eingetragen hat, und dann an der selben Stelle weiterlaufen.

Ich habe mir schon überlegt, das Hauptprogramm in zwei Teile zu trennen und nach dieser Prozedur dann den ersten Teil zu beenden und den zweiten Teil dann mit einem Button oder Enter zu starten. Es muss doch aber eine schönere Alternative dafür geben. Ich bin dankbar für alle Ratschläge. Ich würde dazu mal keine Screenshots vom Code hochladen, da es ja eher eine prinzipielle Fragestellung ist.

Vielen Dank im Voraus.

MfG Patrick.

Hallo,

ich habe mal wieder eine Frage zur VBA Programmierung in Excel. Ich möchte, dass der der Benutzer in einer Userform Angaben in verschiedenen TextBoxen eintragen kann, und die Einträge sollen je einer Variable zugewiesen werden. Die Variablen habe ich in einem benutzerdefinierten Datentyp erstellt (Deklaration des Datentyps in der Arbeitsmappe). Durch einen Klick auf den "start" button in der Userform sollen die Daten eingelesen werden. Es entsteht jedoch ein Laufzeitfehler 424 "Objekt erforderlich". Ich vermute, dass ich die TextBox falsch angesprochen habe. Anbei ein paar Bilder um es zu verdeutlichen. Ich hoffe auf rasche Hilfe, danke im Voraus.

Mit freundlichen Grüßen, Patrick.

Hallo Gemeinde,

ich benötige bitte eure Hilfe, vielleicht gehe ich die Sache auch einfach nur zu kompliziert an. Und zwar:

Ich habe Dezimalzahlen im Monat Januar von 0,21, Februar 0,08, März 0,13. Also Monat für Monat variiert es.
Diese Dezimalzahlen addiere ich auf die Tage zusammen und komme ich ERSTMALS über 1,2,3,...9 (es sind also mehr), dann soll er mir beispielsweise ein "X" ausgeben.

Mit runden Vrunden Mittelwert, habe ich manchmal das Problem das ich z.B. die Ganzzahl "1" gleich 2x habe. Deswegen wäre es gut, dass sobald es erstmals über die Ganzzahl kommt das "X" auszulösen.

Habt ihr da ein Rat?
Vba sollte möglichst vermieden werden, aber kein Auschlusskriterium.

Ich möchte mithilfe von VBA eine bedingte Formatierung (Hintergrundfarbe) von einzelnen Zellen(jede zweite im Bereich von 2 - 34) innerhalb einer Spalte durchführen. Ist der Wert der entsprechenden Spalte gleich des Wertes in der Zelle links daneben (B), soll die Zelle einen grünen Hintergrund bekommen, ansonsten gelb. Die Spaltenbezeichnungen wollte ich mithilfe einer For-Schleife hochzählen lassen. Wie kann ich dies möglichst einfach realisieren?

Ich bin gerade dabei VBA zu erlernen und dementsprechend noch unerfahren.

Hey.
Ich brauch mal euren Rat.
Ich möchte in einer festgelegten Matrix nach einem Wert suchen und sobald ich die Zelle mit dem Wert gefunden habe möchte ich diese Zeile aktivieren.

Ehrlich gesagt habe ich keine wie diese Funktion in VBA auszusehen.

Bitte helft mir.

Hallo, vorerst: ich habe keine ahnung von excel. ich muss jedoch für meinen chef folgendes tun: wir haben eine telefonrückrufliste bei excel als vorlage erstellt und wollen nun, dass die datei jedes mal beim speichern den namen aus den zellen A3, B3 und C3 bekommt. wie geht das? ich habe schon rausgefunden, dass das nur mit VBA geht. Also, was ich gemacht habe: ich klicke auf Entwicklertoos, dann auf Visual Basic, und dann? bitte möglichst detaliert! :-) hilfe! wo und was muss ich reinkopieren und wie speicher ich das?

Hi. Ich habe folgendes Problem. Ich habe in einer Excel Datei ein Tabellenblatt so aufgebaut, dass es auf eine A3 Seite passen würde. Auf dem selben Blatt befindet sich ein Makro, welches mir die Seite als PDF abspeichert. So weit so gut. Jetzt habe ich das Problem, dass das Tabellenblatt im falschen Format angezeigt wird, wenn ich es an einem Computer öffne, der kein Zugriff auf einen A3 Drucker hat. Ich hab es mit Worksheets("...").PageSetup.PaperSize = xlPaperA3 versucht, aber diesen befehl möchte Excel nicht aktzeptieren, da kein A3 Drucker vorhanden ist. Hat jemand von Euch eine Idee, wie ich die Seitengröße festlegen kann unabhängig davon, ob es der eingestellte Drucker drucken könnte oder nicht? Drucken will ich es ja sowieso nicht :). Danke für Eure Antworten.

Edit: Es würde mir vermutlich auch schon reichen, wenn jemand von Euch einen Befehl kennt, mit dem ich den standard PDF Drucker auswählen kann, der auf so gut wie jedem rechner vorhanden ist?! Dann müsste ich den oben genannten Befehl nutzen können.

Hallo. Ich schreibe grade ein Makro und hänge ein steller fest. Ich muss in einer Zeile in jeder Zelle den manuellen Zeilenumbruch entfernen. Bisher bin ich soweit gekommen

lzeile = Cells(Rows.Count, 1).End(xlUp).Rows.Row For t = 1 To lzeile

Cells(t, 2).Replace Chr(10)

Next t

So läuft es zwar durch aber die Zeilenumbrüche werden auch nicht entfernt. Hat jemand einen Tip was ich an meinem Code ändern muss?

Meine Datentabllen wachsen und wachsen. Dennoch möchte ich die gesuchte Excel Zeile möglichst schnell finden.

Ich hatte hierfür schonmal eine Suchzeile, inder mir die Zeile mit dem Wert ausgegeben wird, welche ich für die erste Spalte als Vergleich gesucht habe.

=WENNFEHLER(INDEX($A$2:$Z$4400;VERGLEICH($AC$4;$A$2:$A$4400;0);VERGLEICH(AE$2;$A$1:$Z$1;0));"Gib in AC4 einen Wort ein!")

Also kurz erklärt, In AC4 gibt man den gesuchten Wortlaut an. In AE2 ist die varilable Beschriftung der zu durchsuchenden Spalte.

Nun möchte ich, dass in der ersten zu durchsuchenden Spalte (das Wort wird in AC4 angegeben) nach dem Wort auch innerhalb der Zelle gesucht wird. Eignet sich zB für Doppelnamen und man nur nach einem Suchen kann, weil der zweite im Schreiben nicht erwähnt ist. Es sollte ein Treffen mit dem vollständigen Inhalt der gefundenen Zelle ausgegeben werden.

Die darauf folgende Formel rechts nebendran ließt jetzt aus Zelle AC5 einen weiteren Wortteil heraus, welcher in der gleichen Zeile existieren muss wie der Wortteil aus AC4. Somit muss durch die Eingabe in Zelle AC5 (falls FALSCH) die Tabelle weiter durchsucht werden nach dem gleichen Prinzip.

Am Ende der Suchspalte ist dann ein variabler Hyperlink der mich direkt zur passenden Zeile führt, nachden ich bestätigen kann, dass es bei den angezeigten Angaben sich um den richtigen Datenzeilensatz handelt.

Theoretisch gelaube ich schon, dass das mit Excel möglich ist. Bloß ich weiß es einfach nicht :(

Vielen Lieben Dank Für Deine Hilfe !!!

Diese Paar Codezeilen würden mir Stunden an Arbeit in Zukunft sparen :)

Hey :) Eine kurze Frage zu Excel. Und zwar möchte ich ein Makro erstellen, welches bei Ausführung die Spalten A-E der aktiven Zeile markiert. Wenn ich also zum Beispiel die Zelle E26 markiert habe und das Marko ausführe, sollen die Zellen A26 - E26 rot markiert werden.

Idealerweise ware dann noch ein zusätzliches Makro, welches diese Markierung wieder aufhebt.

Vielen Dank für eure Vorschläge und Lösungen :)

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

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

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

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

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

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

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

Ich benötige eine (VBA) Lösung für folgende Anforderung

In Spalte A:A soll JE ZEILE ein Zeitstempel gesetzt werden, wenn in Spalte B:B in gleicher Zeile ein Eintrag erfolgt. Der Zeitstempel soll TT.MM.JJ hh:mm formatiert sein und fix bleiben Also Eintrag in Zelle B10 = Zeitstempel 07.10.16 10:45 in A10 Eintag in Zelle B11 = Zeitstempel 07.10.16 10:47 in A11 usw

Hallo Community,

ich habe folgende Frage:

Wenn ich beim öffnen des Sheets überprüfen lassen will,

ob in der Zelle B1 die Zahl "5" oder "6" steht, dann sollen die Zeilen "1" bis "5" eingeblendet werden, sollten die Zahlen nicht vorkommen, dann sollen die Zeilen ausgeblendet werden.

Kann man das einfach umsetzen mittels VBA Code?

Sofern das nicht so einfach ist, dann habe ich in den Zeilen A1, A2, A3, A4 und A5 auch eine WENN Funktion...

Diese WENN Funktion zeigt das Wort "SHOW" wenn die Zahl "5" oder "6" in der Zelle B1 vorkommt, wenn eine andere Zahl vorkommt, dann schreibt die WENN Funktion das Wort "HIDE".

Also je nachdem, was einfacher wäre um die Zeilen ausblenden zu lassen - über jeden Tipp bin ich dankbar. :)

LG

Benny

Bin absoluter VBA-Neuling! Ich möchte von einem Arbeitsblatt "Tabelle1" jeweils 2 Zellen aus Spalte B summieren und in "Tabelle2" Spalte B anzeigen lassen. Also quasi Tabelle1(B1+B2) in Tabelle2(B1), Tabelle1(B3+B4) in Tabelle2(B2) und so weiter. Wie geht das?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

End If

Loop

End Sub

Hallo, ich möchte gern eine Rätsellösung in VBA schreiben (Thema: Slitherlink).

Natürlich möchte ich auch mal anfangen mit OOP. Nun verstehe ich zwar das Grundprinzip, aber so richtig kann ich damit nichts anfangen gg.

Kennt jemand ein Tutorial wo Schritt für Schritt erklärt wird WARUM was gemacht werden muss? Also wenn da schon eine fertige Software vorliegt und nur da steht "du brauchst das" und ich kapiere nicht WARUM ich das brauche, nutzt mir das wenig :-)

Oder könnte jemand sowas schreiben? MIr würde auch vollkommen sowas reichen für Tic-Tac-Toe oder so. Muss ja nix kompliziertes sein. Und bitte was praktisches. Nix mit "Oberklasse Tier" und Untereigenschaft "Geräusch" etc. Das ist mir zu theoretisch gg.

Hallo Zusammen,

ich möchte gerne über eine Windows Forms Anwendung (mit TextBox und Button) das System nach Dateien (Inhalt und/oder Namen) durchsuchen und alle Dateien, bei denen die Suche etwas ergeben hat in einen bestimmten Ordner schieben.

Für das Verschieben einer Datei in einen Ordner habe ich bereits einen Code geschrieben, ich habe aber noch Probleme mit der Dateisuche (soll aufgebaut sein wie die "Windows durchsuchen" Funktion auf dem Computer).

Kann mir da jemand weiterhelfen? Ich habe unten noch eine Grafik als Beispiel angehängt, wie die Windows Form Anwendung aussehen soll.

Vielen Dank schon mal!

Hallo Leute,

Wie kann man in Ecxel z.B. die Spalten D,E,F mit einem Button ausblenden?

Quasi, dass man auf den Button klickt und dann sind sie weg und wenn man nochmal draufklickt wieder da// oder zwei Kästchen zwischen denen man wählen kann// o.ä.

Glaube es geht mit VBA, bin da aber nicht geübt....

Danke schon mal :)

Hallo ich habe ein Problem damit einen Pfad (inkl. Dateinamen) in ein Hyperlink-Feld zu schreiben, so dass man die Datei später durch einen einfachen Klick auf das Feld öffnen kann.

    Dim strCurrentSQL As String
    strCurrentSQL = "UPDATE tbl_Bewerbungen " & _
        "SET tbl_Bewerbungen.gedruckt = -1, tbl_Bewerbungen.Anschreiben =  " & Chr(34) & "'" & strTargetFile & "'" & Chr(34) & " " & _
        "WHERE ID = " & varRecordSetID(I) & _
        "AND gedruckt = 0;"
    strRecordSource = Me.RecordSource ' Speichern der Datenbankverbindung in einer Variablen
    Me.RecordSource = "" ' Trennen der Datenbank-Anbindug zur Vermeidung von Schreibkonflikten
    DoCmd.SetWarnings False ' Warnungen abschalten
    DoCmd.RunSQL (strCurrentSQL) ' SQL-Anweisungen zur Aktualisiertung des Druckstatus
    DoCmd.SetWarnings True ' Warnungen wieder aktivieren
    Me.RecordSource = strRecordSource ' Wiederherstellung der Datenbankanbindung

Mein VBA-Code schreibt zwar den Pfad + Dateinamen in das Feld aber man kann später nicht einfach in dem dazugehörigen Formular drauf klicken um die Datei zu öffnen.

Wenn ich im Dateisystem mit Shift und Rechtsklick auf die Datei klicke, um den Pfad zu kopieren und diesen dann von Hand einfüge, dann funktioniert der Link.

Ich vermute es hat etwas mit den Hochkommata zu tun - hat jemand eine Idee was ich falsch mache?

Hallo,

Folgendes Problem: In der Tabelle "Werkzeuge" gibt es in der Spalte D die Spalte "Datum". Das erste Datum ist in der Zelle D5. Anschliessend D6 und so weiter, wie eine normale Tabelle einfach. Nun hab ich auch noch eine Variabel "Date". Jetzt soll verglichen werden, ob die Variabel kleiner als das Datum in der Tabelle ist. Trifft das zu, wird diese Zeile kopiert und im Blatt "Pruefungen" in der Tabelle "Ausgabe" eingefügt. Das soll mit jeder Zeile der Tabelle passieren.

Ich dachte an eine for-Schleife und dann eine if-Abfrage ob die Variabel kleiner ist. Anschliessend wird diese Zeile ,wenn es zutrifft, kopiert. Dann wird auf das andere Blatt gewechselt und dort eingefügt.

Da ich ein Anfänger bin im Thema VBA, würde ich mich freuen, könnte mir jemand behilflich sein. Vielen Dank im voraus.

Gruss flurio

Hallo Zusammen,

ich möchte gerne mit einem commandbutton formeln in einem Bereich kopieren und auf einen anderen Bereich (selbes Layout) übertragen, aber ohne dabei feste Werte zu löschen.

Ich habe eine Grafik beigefügt, die als Beispiel dienen soll. Der Betrag von 20.000€ ist mit einer Formel aus Stunden und Stundensatz berechnet worden. Range("A1:B3") soll nun kopiert werden (nur die Formeln) und anschließend sollen diese in Range("A6:B8") eingefügt werden, allerdings ohne die festen Werte von "Stundensatz" und "Stunden" zu ersetzten duch 0 (das passiert nämlich immer wenn ich da Copy/Paste mache - egal ob mit "Inhalte einfügen" oder ohne)

Warum brauche ich für sowas ein Makro? (Das kann man doch auch per Hand machen!)

Die Tabelle ist in der Realität viel Größer (um die 1000 Zellen) und ich wollte die Bereiche dadurch schneller vereinheitlichen.

Danke schon mal für eure Unterstützung!

Hallo zusammen

Also: Ich habe einige Excel-Tabellenblätter. Und einen String als Variabel ("sucheName"). Wenn man nun einen Button drückt, sollen alle Blätternamen durchsucht werden und das anschliessend das entsprechende Blatt ausgewählt werden. Da ich ein Anfänger bin im Thema Excel, weiss ich nicht mal, wo ich ansetzen muss.

Ich bedank mich für eure Antworten und hoffe, dass ihr mehr wisst als ich.

Gruss Steffan

Hallo,

verzweifelt wende ich mich an das Internet da ich leider nicht weiss wie ich dieses Problem lösen kann. Folgende Idee... / Ich möchte in der Lage sein Spalte A1-A30 ein Datum zu geben das sich nur im Aktuellen Jahr befindet und nicht in der Zukunft liegen kann. Sollte dies der Fall sein soll eine Fehlermeldung Erscheinen mit einem von mir angegebenen Text... Ich habe bereits einen Code mit verschiedenen Funktionen wie Z.B das Zelle A1-A30 die Heute Funktion anwenden jedoch editierbar ist. Leider weiss ich nicht wie ich die o.g. 2 Sachen noch in den code einbinden kann oder wie dies Funktioniert. Ich hoffe ihr könnt mir helfen mit evtl den vollständigen Code? :)

Anbei der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A30")) Is Nothing Then
If Target.Value = "" Then Target.FormulaLocal = "=HEUTE()"
Else
If Intersect(Target, Range("D3:D30")) Is Nothing Then Exit Sub
If Target.Value = "" Then Target.Value = 1 End If End Sub

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub 

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

Hallo,

ich schreibe gerade ein neues Makro für eine Excel Tabelle und habe dabei folgendes Problem. Ich erläutere es anhand der angehängten Grafik:

In der Grafik ("Mappe 1") steht der Name in Spalte A und ein Wert in Spalte B. Ich möchte, dass Excel (per Makro, CommandButton) nach einem Namen sucht und den dazugehörigen Wert in Spalte B (selbe Zeile) kopiert und in Spalte D einfügt. Die Reihenfolge der Namen kann variieren, es soll aber immer der Wert in Spalte B in Bezug zum Namen kopiert und eingefügt werden (Beispiel: Name1 = 10€, damit sollen dann die 10€ in Spalte D:2 eingefügt werden; Name2 = 20€ und diese sollen dann in Zelle D:3 eingefügt werden) Ich habe das leider bis jetzt nur mit einzelnen Zellen hinbekommen, da die Reihenfolge der Namen allerdings pro Tabelle unterschiedlich ausfallen kann, hilft es nicht mehr ein Makro zu schreiben, dass einzelne Wert kopiert und einfügt. Kann ich das auch über einen SVERWEIS machen? Wichtig zu erwähnen wäre noch, dass die Tabelle, in der gesucht werden soll (nach dem Namen) und die Tabelle in die der Wert eingefügt werden soll (€), 2 verschiedene Worksheets sind (Excel-Dateien).

Ich bedanke mich jetzt schonmal für eurer Hilfe!

Hallo zusammen,

ich will gerne einen TAB im Google Chrome ansteuern und dort Felder befühlen.

Im Internet Explorer geht das VBA Tool schon zu 100%. Leider ist die Seite nicht mit dem IE kompatibel und muss daher im GC genutzt werden. Ich habe alle Feld Bezeichnungen, weiß aber nicht wie ich den GC ansprechen kann.

Habt ihr da eine Möglichkeit?

Vielen Dank

Moin,

in der Tabelle sollen die Materialtexte die leider in unterschiedlich vielen Zeilen geschrieben sind in eine Zelle hinter dem Materialtext ausgegeben werden (wie beispielhaft manuell eingetragen in D2 und D7).Einfaches Verketten reicht nicht aus da eben die Anzahl der zu verkettenden Zeilen variiert. Gehe davon aus, dass VBA von Nöten ist (habe allerdings keine Erfahrung mit VBA)

Ich habe eine Access-Datenbank die unter anderem eine Tabelle für den Serienbrief erzeugen und Word mit dem Serienbrief öffnen kann.

In Word habe ich ein Addon, dass den Serienbrief in einzelne PDF-Dateien exportiert.

Diese Serien-PDFs würde ich gerne anschließend aus Access heraus als Anhang versenden - die dazugehörigen Email-Adressen, Namen der Ansprechpartner etc. befinden sich schon in einer Tabelle.

Angeblich gibt es wohl eine Möglichkeit aus Access heraus Emails mit MS-Outlook zu versenden versenden. Mein Problem ist jetzt, dass ich nicht weiß wie man in VBA solche Emails versenden kann.

Hallo,

ich habe gesehen, dass es zwar ähnliche Fragen gibt, aber mein Problem konnte ich mit den Antworten bisher nicht lösen. Ich muss dazu sagen, dass ich noch ziemlicher VBA-Neuling bin.

Ich habe 2 Excel Dateien. Diese sind identisch aufgebaut. Das Ergebnis soll in einer dritten Datei geschrieben werden. In Spalte A steht eine eindeutige ID und Spalte B ist ein Erklärungstext hierzu.

Bsp.: Alt:

BS04 Lisa ist 18 Jahre alt.

BS07 Lisa ist einen Apfel.

Neu:

BS07 Lisa isst einen Apfel.

BS08 Lisa wohnt in einem Haus.

Im neuen Dokument wurde BS04 entfernt. BS07 wurde der Schreibfehler korrigiert. BS08 wurde hinzugefügt.

Mein Ziel ist, dass nicht Zeile für Zeile verglichen wird, sondern anhand der ID der Text verglichen wird. Dann sollen Änderungen rot markiert werden. Entfernte Wörter oder entfernte Spalten sollen rot durchgestrichen werden.

Ergebnis:

BS04 Lisa ist 18 Jahre alt. [rot und durchgestrichen]

BS07 Lisa isst einen Apfel. [BS07 rot, das Wort "isst" rot]

BS08 Lisa wohnt in einem Haus. [rot]

Ich habe mir ein Makro bauen können, was ganze Zeilen rot markiert bei Abweichung, leider wird dann alles rot markiert, sobald eine Zeile hinzugefügt bzw. entfernt wurde. Ist ein solches Makro mit VBA überhaupt zu programmieren?

Ich danke euch für eure Mühe!

Gruß Steffen

Hallo,

wie kann ich nur die Kopf- und Fußzeile von einem Blatt auf andere Blätter oder Blatt übertragen?

Wenn ich die Tabellenblätter gruppiere und dann einfach Daten - Seite einrichten aufrufe, und mit OK bestätige, dann werden nicht nur die Kopf- und Fußzeile auf die anderen Tabellenblätter übertragen, sondern auch Einstellungen wie z. B. Seitenrand, Hoch-u. Querformat und Skalierung..

Und das ist die Crux! Ich habe bei den verschiedenen Blättern auch verschiedene Skalierungs-Prozentsätze und andere Seitenränder definiert, die natürlich erhalten bleiben sollen.

Also, wie Kopf- und Fußzeile in anderes Blatt übertragen, aber die Seitenränder, Hoch- oder Querformat und den Skalierungsfaktor NICHT!

LG PG

Hallo Community, möchte gerne alle Zellen gleichen Inhalts pro Spalte automatisch verbinden lassen (Inhalte müssen, wie bei Excel üblich nur einmal erhalten bleiben). Später soll also der Konfernzname, das Datum und der Ort nur noch einmal pro Konferenz auftauchen. Die Teilnehmer und ihre Beiträge könnte man dann zwar auch noch verbinden, aber hier müssten natürlich die ganzen Zellinhalte erhalten bleiben (was Excel üblicherweise nicht macht). Ist wahrscheinlich nur mit VBA möglich oder? Danke im Vorraus

Bild siehe Anhang

Hallo zusammen,

ich habe hier eine Liste den Bereich Bestand Kg und Vorlauf Kg möchte ich sperren, weil dort Formeln hinterlegt sind, leider schaffen es immer wieder Leute diese Zelle zu überschreiben und die Formel ist dann weg.

Gibt es ein Sub was dieses Problem für mich löst?

Schönen guten Tag,

Ich würde gern in einer Excel-Tabelle eine Spalte nacheinandern (begrenzter Bereich), bei Button-Klick, füllen.

Es sollen auf einer Excel-Oberfläche verschiedene Buttons erstellt werden, die alle die selben Zellen füllen (Bsp: G3 bis O3). Wenn eine Zeile leer ist, soll diese gefüllt werden, wenn die nächste gefüllt ist, soll zur nächsten "leeren" gegangen werden. Dies jedoch nicht sofort für alle, sondern per Mausklick auf einen Button. ButtonA füllt G3 mit "asdf", ButtonB beginnt bei G3 findet dort "nicht leer" und geht auf H3 und schreibt "wasd", erneut ButtonA beginnt bei G3, findet G3 "nicht leer" und H3 "nicht leer" und schreibt in I3 "asdf".

Ich hoffe mein Idee und mein Ansatz ist verschändlich.

Ich habe auch eine Möglichkeit gefunden, jedoch müsste ich den Code für jede weitere Variante anpassen. Kann man daraus eine "einfachere" Schleife generieren? Bin leider noch VBA-Neuling.

Ich danke für die Hilfe! Ich wünsche euch einen schönen Tag!

Grüße

Private Sub CommandButton1_Click()
If Range("G3") = "" Then
    Range("G3").Value = "Test - 1"
Else
    If Range("H3") = "" Then
        Range("H3").Value = "Test - 1"
    Else
        If Range("I3") = "" Then
            Range("I3").Value = "Test - 1"
        Else
            If Range("J3") = "" Then
                Range("J3").Value = "Test - 1"
            Else
                If Range("K3") = "" Then
                    Range("K3").Value = "Test - 1"
                Else
                    If Range("L3") = "" Then
                        Range("L3").Value = "Test - 1"
                    Else
                        If Range("M3") = "" Then
                            Range("M3").Value = "Test - 1"
                        End If
                    End If
                End If
            End If
        End If
    End If
End If

End Sub

Hallo zusammen.

Gibt es eine Möglichkeit, mit einem Makro den VBA-Editor zu öffnen und gleich in ein bestimmtes Modul zu springen? Hintergrund ist folgender: Über einen Button wird ein Makro gestartet, das eine andere Datei öffnen und eine bestimmte Tabelle aus der anderen Datei in die eigene Mappe holen soll. Jetzt möchte ich eine Abbruchbedingung für ne Error-Meldung implementieren, die den Anwender direkt an die Stelle im Editor navigiert, wo der Dateiname ggfs angepasst werden muss.

Ich hab bis jetzt nur das gefunden:

Application.VBE.MainWindow.Visible = True

Vielen Dank für Eure Hilfe, Jan

Wie kann ich den Inhalt einer Zelle an eine andere Zelle Übertragen?

Genauer möchte ich in bspw. Zelle A5 einen Wert eintragen, der dann zum Wert in Zelle addiert wird. Dann soll der Wert in Zelle A5 gelöscht werden und für die nächste Eingabe bereitstehen.

Ist wahrscheinlich ein VBA Problem und da ich in dieser Materie noch nicht so tief drinstecke seid nun ihr gefragt. Bitte um Hilfe

Ich stehe vor einem Rätsel. Ich möchte grad ein Makro in Word erstellen, um Daten einfacher in das Dokument zu übertragen und alles im gleichen Format zu halten. Es handelt sich hierbei um Rezepte. Und bei jedem Rezept gibt es natürlich auch Bilder dazu.

Bevor die Frage kommt: Nein mir is das einfach zu blöd, ständig das Worddokument umzubasteln. Ständig muss ich ein fertiges Rezept nehmen und es mit einem neuen überschreiben und dann doch hoffentlich daran denken, unter einem anderen Namen zu speichern. Außerdem verrutscht ständig irgendein Format.

ich habe bereits ein Makro erstellt, welches sich automatisch mitstartet beim öffnen der Datei. Auch habe ich schon dafür gesorgt, dass textmarken per buttonklick eingefügt werden (Weil diese dummen dinger ja nach schließen des Worddokuments verschwinden)

Ich habe auch schon eine Textmarke für das Bild. Im Internet habe ich gesucht und gesucht aber ich finde nur Code, in welchen ich schon einen festen Pfad integriere. Ich kann also per Code nur ein bestimmtes Bild einfügen. Nun hätte ich aber per Knopfdruck gerne, dass sich der Explorer öffnet und ich ein Bild aussuchen kann, welches eingefügt werden soll. Eben so wie wenn ich über "Einfügen -> Bild" gehe.

Ist das möglich?

Hallo alle zusammen,

ich bin am verzweifeln.. :-(

Ich möchte über VBA Verknüpfungen in einem aktiven Tabellenblatt ändern. Ich finde aber immer nur Antworten wie man Verknüpfungen der gesamten Arbeitsmappe ändert.

Die Verknüpfungen beziehen sich auf ein anderes (nicht aktives) Tabellenblatt in der selben Arbeitsmappe.

In der Zelle steht zum Beispiel =WENN(ISTFEHLER('04.2016'!$C8);"";'04.2016'!$C8) und VBA soll mir aus '04.2016' nun '06.2016' machen.

Bei meiner VBA Idee kommt immer der Fehler 438 (Objekt unterstützt diese Eigenschaft oder Methode nicht) und kennzeichnet Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks) an

Hier meine VBA Idee. Wer kann mir helfen? Dank Euch im Voraus.... :-)

Sub Verknüpfungenaktualisieren()

Dim Vardat As Variant Dim strNeuerLink As String

strNeuerLink = "'06.2016'" strAlterLink = "'04.2016'"

Vardat = ActiveSheet.LinkSources(Type:=xlLinkTypeExcelLinks)

If IsEmpty(Vardat) Then

MsgBox "Keine Verknüpfungen enthalten!"

Exit Sub

End If

For intz = 1 To UBound(Vardat)

If Vardat(intz) = ActiveSheet.Path & "(" & strAlterLink Then ActiveSheet.ChangeLink ActiveSheet.Path & "(" & strAlterLink, _ ActiveSheet.Path & "(" & strNeuerLink, xlExcelLinks

Exit For

End If

Next intz

End Sub