Ich habe eine sehr lange Excel Liste mit mitnütlichen Werten über ein Jahr. Diese würde ich gerne in eine Liste mit 15 minütiger Taktung zusammen fassen. Also es sollen immer blockweise 15 Werte summiert werden. A1-15 in der ersten Zelle A16-A30 in der zweiten und so weiter. Das sollte doch machbar sein oder? Wenn möglch möchte ich auch den Indirekt Befehl vermeiden, da dieser die Tabelle sehr stark bremst.

Wer hat eine Idee?

Moin ich habe ein Problem und zwar ist es so, dass ich einen Rechner erstelle möchte der die Zahl in Textfeld 1 x die Zahl in Textfeld 2 / die Zahl in Textfeld 3 nimmt und das Ergebnis dann in Textfeld 4 schreibt , wenn man auf einen Commandbutton drückt . Also Zahl1 x Zahl2/ Zahl3 = Zahl 4. Die Oberfläche hab ich schon gemacht

Guten Tag, ich hänge mal wieder bei einer Access - Excel Frage fest.

Ich habe ein Access eine Abfrage geschrieben, die mir sortiert eine ID, den zugehörigen Namen und alle dazu zugewiesenen Daten ausgibt.

Da jede Id + name mehrere Daten haben kann, steht das ganzen in mehreren zeilen untereinander. Ich möchte das ganze nun in eine Excel-Datei via Makro exportieren und das ganze so formatieren das Id + name nur einmal drann steht und dann alle Daten.

Das ganze sieht also eig. so aus.

id || name || daten

1 || n1 || daten1

1 || n1 || daten2

1 || n1 || daten3

und soll in der Exel Datei dann so aussehen.

id || name || daten

1 || n1 || daten1

_ || _ || daten2

_ || _ || daten3

_ bedeutet das dort kein Eintrag in der Zelle mehr steht. Ich habe das bisher so gemacht, das ich Die Daten aus Access händisch in eine Excel kopiert habe und dann dort mit einem Makro alles raus sortiert habe. Dim xErsteZeile As Long Dim xZeile As Long

        xErsteZeile = Cells(Rows.Count, 1).End(xlUp).Row
    
        For xZeile = xErsteZeile To 1 Step -1
          If Application.WorksheetFunction.CountIf(Columns(1), Cells(xZeile, 1).Value) > 1 Then
                Range("A" & xZeile).Select
                Selection.Delete Shift:=xlUp
                Range("B" & xZeile).Select
                Selection.Delete Shift:=xlUp
          End If
        Next

Ich würde das ganze jetzt aber über Access machen da es ja der Ausgangspunkt ist. Wenn ich ein Export in ACCES anschaue in VBA sieht dieser ja so aus.

    DoCmd.OutputTo acOutputQuery, "jh_01_01_Abfrage", "Excel97-Excel2003Workbook(*.xls)", "", True, "", , acExportQualityPrint

kann ich davor die Daten noch bearbeiten wie in Excel? Und wenn ja kann mir eventuell jemand einen Tipp geben?

Würde mich sehr freuen.

Grüße

Frost.

Ich habe eine Access Datenbank-Tabelle mit den Einträgen Ersatzteilnummer, Materialtext, Typennummer, Sonstige Nummer und Kommentar.

Über ein Formular mit Suchfeld möchte ich mir Alle Datensätze anzeigen lassen, bei denen mindestens eine der Spalten meiner Datenbank den Suchbegriff enthält. Es sollen also alle Datensätze angezeigt werden bei denen die Eingabe im Materialtext vorkommt ODER in der Typennummer ODER im Kommentar usw.

Der Filter wie unten eingefügt funktioniert mehr oder weniger, jedoch habe ich so keine ODER Verknüpfung. Hat vielleicht jemand eine Idee, wie ich das realisieren könnte?

Vielen lieben Dank!! Max

If Len(Me!txtQSf) > 0 Then

Me.Filter = ""
       If Ersatzteilenummer Like "" & Me!txtQSf & "" Then
       Me.Filter = "Ersatzteilenummer LIKE '" & Me!txtQSf & "'"
       Me.FilterOn = True
    Else
        If Materialtext Like "*" & Me!txtQSf & "*" Then
            Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
            Me.FilterOn = True
        Else
                If Typennummer Like "*" & Me!txtQSf & "*" Then
                     Me.Filter = "Typennummer LIKE '*" & Me!txtQSf & "*'"
                     Me.FilterOn = True
                Else
                  If Kommentar Like "*" & Me!txtQSf & "*" Then
                      Me.Filter = "Kommentar LIKE '*" & Me!txtQSf & "*'"
                      Me.FilterOn = True
                  Else
                    If Sonstige_Nummer Like "*" & Me!txtQSf & "*" Then
                            Me.Filter = "Sonstige_Nummer LIKE '*" & Me!txtQSf & "*'"
                            Me.FilterOn = True
                    Else
                        Me.Filter = "Materialtext LIKE '*" & Me!txtQSf & "*'"
                        Me.FilterOn = True                              
     End If
     End If
     End If
     End If
     End If
Else
Me.Filter = ""
Me.FilterOn = False
End If

End Sub

Hallo. Ich bin hier gerade echt aufgeschmissen.

Wir haben eine Excel Mappe mit Makros. Das funktioniert an sich ja sehr gut. Nur gibt es hier einige wenige PC's die die Mappe zwar öffnen und speichern können aber dann gehen die Probleme los.

Sobald einer dieser Rechner die Mappe speichert, kommt auf allen anderen Rechnern ein Kompilierungsfehler: "Objektbibliothek ist ungültig oder enthält Verweise, die nicht gefunden werden konnten"

Ich habe zu diesem Problem nur eine Lösung mit Killbits und dem ActiveX Compatibility Manager gefunden. Das hat aber auch zu nichts geführt.

Die Fehlermeldung ist noch mal im Anhang.

Vielleicht kennt sich ja hier jemand aus.

Danke im Vorraus.

Ich spiele pokemon mystery dungeon team rot aber wenn ich die cheats aktivieren will funktionieren sie nicht.. ich habe zur auswahlt: "Generic Code", Gameshark Advance", "Gamebreaker Advance" und "Flashcart CHT"

Kann mir jemand sagen wie das funktioniert?

Das habe ich mit einem VBA Code geschafft, nun ist das Problem, dass ich den Pfad welchen ich im Explorer ausgesucht habe nicht in das Textfeld bekomme... Vielen Dank für eure Hilfe!

Ich möchte die letzte Ziffer einer Zahl in einer Zelle ermittel! z.B. 123456789. In dem Bsp. die 9. Dafür brauche ich einen VBA Code.

Hi Leute

Ich bin gerade dabei eine Tabelle in Excel mit VBA zu automatisieren.

Doch nun hänge ich an einem Wverweis den ich gerne in Excel ausführen möchte.

Es gibt eine Tabelle in der eine Bedingung abgefragt wird dort wird dann, wenn die Bedingung eintrifft, in der selben Zeile das Suchkritererutum festgelegt.

Und zwar ist dies eine ID, mit welcher dann in einer anderen Tabelle ein Name gesucht wird.

der gefundene Name soll dann in eine Tabelle 3 eingetragen werden.

Tabelle2.Range("B65536").End(xlUp).Offset(1, 0).Value = WorksheetFunction.HLookup([A49], Sheets("Tabelle7").[A1:ZZ50], 3, False)

das ist die Anweisung die eintritt wenn die Bedingung war ist und der Name gesucht und eingetragen werden soll.

Das Problem ist nur das irgendwas hier nicht stimmt und ich komm einfach nicht drauf. Es liegt aufjedenfall an der Funktion nach dem " = " also dem Wverweis.

Habt ihr eine Idee ?

Hallo, ich hab hier den Beispielbefehl cells(2,3). Value="Hallo". Wozu dient der Punkt? Was ist in diesem Befehl das Objekt, die Eigenschaft (Attribut), das Event (Ereignis) und die Methode?

Hallo Zusammen,

ich habe folgenden Aufbau in einer Excel Tabelle:

Name | Preisgeld | Rang

Nun würde ich gerne die Spalte Rang mit der Platzierung gemessen am Preisgeld füllen. Ist dies möglich? Wenn ja wie?

Vielen Dank im Voraus!

Hallo. Mein Problem ist , ich möchte in einer bestimmten Spalte als erstes Zeichen nur einen Buchstaben zulassen. Gibt es eine Excel-Funktion oder ein Makro was das durchführen kann ? MfG neulandr

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

Private Sub btn3_Click() frmMengenrechner_Obi.PrintForm End Sub

Der Befehl druckt die Userform aus, aber leider nur einen kleinen Teil. Ich möchte einen Code, der mir ohne viel aufwand für den Anwender, die UserForm ausdruckt. Vielen Dank schon mal!!

In meinem Tabellenblatt in Spalte A sind Werte eingetragen mit Leerzeilen dazwischen. Ich möchte diese Werte immer bis zum nächsten Wert kopieren, so das am Ende meine Tabelle komplett ausgefüllt ist. Es gibt bestimmt ein Makro oder eine Funktion die das kann.

Hi, wie kann ich in Excel VBA eine Spalte nicht schreibgeschützt machen, das restliche Tabellenblatt jedoch schon? Kann mir da bitte jemand den Code schicken? Danke für die Antworten schon im Voraus! PS: Das Tabellenblatt ist schon schreibgeschützt, ich will nur wissen, wie ich diese eine Spalte beschreibbar machen kann...

Hi, wie kann ich in VBA verschiedene Spalten ausblenden und das einblenden für den normalen Nutzer sperren?

Danke für die Antworten schon im Voraus!

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

Hi, ich habe eine Funktion in Excel 2010 erstellt und möchte diese jetzt gerne aufrufen! Das funktioniert allerdings aus irgendeinem Grund nicht! Wenn ich im Funktionsassistenten oder in der Bearbeitungsleiste den Namen eingebe, findet Excel meine Funktion nicht, bzw. kann sie auch nicht aufrufen. Die Arbeitsmappe ist gespeichert als Arbeitsmappe mit Makros. Die Funktion ist als normale "Function ..." nicht als "Private Function..." angelegt! Im Funktionsassistenten finde ich im Drop Down Menü auch nicht die Kategorie "Benutzerdefiniert". Woran kann das liegen? Und wie kann ich es beheben? Danke für die Antworten schon im Voraus! PS: Bild von der Entwicklungsumgebung mit dem Code ist beigefügt!

Hallo Community,

ich habe eine große Tabelle, die eine bedingte Formatierung enthält. Ich würde diese jetzt gerne über einen Button ein bzw. aus schalten. Ich hab schon gelesen man könnte einfach den Button mit einer Zelle verknüpfen, und die bedingte Formatierung dann je nach Zellausgabe ein oder aus stellen. Allerdings weiß ich nicht wie man das anstellt :/

Ich hoffe mir kann geholfen werden,

Danke,

LG

Hi, ich habe hier ein Makro und weiß nicht was dabei falsch ist.... Makro: http://www.codecopy.de/?action=show&q=92cabe Das Makro funktioniert auch, aber nur kurz... Wenn ich es einmal ausführe dann klappt alles, auch beim zweiten mal wird die Zeile von Tabelle1 in Tabelle5 eingefügt! Beim dritten Mal Ausführen allerdings, sind im Tabellenblatt 5 nur Zwei Zeilen eingefügt worden! Woran kann das liegen und wie kann ich es beheben? Bzw. wenn es eine bessere Variante gibt es zu machen bitte schreibt mir den Quellcode! Das soll das Programm machen: Wenn in Tabelle1 in der Spalte L (12) in der dritten Zeile ein Wert steht, ob Text oder sonst was ist egal, dann soll die ganze Zeile kopiert und in Tabelle5 in der nächsten leeren Zeile eingefügt werden! Bitte helft mir mit diesem Makro! Danke für die Antworten schon im Voraus!

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

Hallo Leute,

in meinem Excel Dokument werden bereits die jeweiligen Daten der letzten Wartung und die der nächsten Wartung eingetragen. Mit einer bedingten Formatierung konnte ich folgendes realisieren:

• bei der nächsten Wartung, welche 14 oder mehr Tage entfernt ist ist das Feld grün eingefärbt
• bei der nächsten Wartung, welche weniger als 14 Tage entfernt ist ist das Feld gelb eingefärbt
• wenn die nächste Wartung überzogen ist wird das Feld rot eingefärbt

Nun möchte ich noch eine Messagebox, welche beim Öffnen des Dokuments aufpopt, erstellen, welche mir einen Überblick über die gelben und roten Felder gibt, also z.B.

• Überzogene Wartungstermine: Nr...., Nr... (also alle roten).

• Dringliche Wartungstermine: Nr..., Nr.,,, (also alle gelben).

In dem angehängten Bild seht ihr ein Beispiel mit Wartungsterminen.

Ich hoffe ich habe mich verständlich ausgedrückt und dass mir jemand helfen kann :D

Gruß

Ich habe in meinen Kontakten eine benutzerdefinierte Spalte "Sendedatum" angelegt, in der mir stets aktuell angezeigt werden soll, wann ich der Person zuletzt eine Mail geschickt habe (leider gibt es eine solche Spalte in Outlook nicht standardmäßig). Dazu brauche ich ein Makro, das durch die Schaltfläche "Senden" ausgelöst wird und zusätzlich zum Senden der Mail prüft, ob die Empfängeradresse in meinen Kontakten verzeichnet ist, und wenn ja, dort in der Spalte "Sendedatum" eben das Gesendet-Datum einträgt, damit ich das nicht jedes Mal manuell machen muss. Wer kann mir einen Tipp geben? Ich wäre sehr dankbar.

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

Hallo Leute

Ich bin gerade dabei mittels Userformen eine Fußballtabelle zu erstellen.

Nun habe ich folgendes Problem. In dem Tabellenblat "Statistik" werden alle Statistiken zu den Vereinen gespeichert. In Spalte A stehen die Vereinsnamen - Spalte B stehen die geschossenen Tore - Spalte C stehen die erhaltenen Tore - Spalte D steht die Tordiferenz - Spalte E stehen die PKT

Team--e.Tor--g.Tor--diTor--PKT

FC Team1 -- 6--4--3--8

FC Team2 --5--4--3--8

FC Team3 --2--5--3--9

FC Team4 --6--4--3--7

FC Team5 --6--4--2--8

Wie kann ich über VBA die Tabelle bzw. die Teams so sortieren, dass zuerst die Pkt berücksichtigt werden, danach die Tordiffernez und danach die geschossenen Tore.

Ich würde mich über eine Antwort freuen

LG Jumbo125

Hi,

ich habe eine Frage zu Excel VBA!

Da ich mich nicht besonders gut auskenne, werde ich ein Makro erstellen welches die ganze Zeile einfach in ein anderes Tabellenblatt kopiert. Dieses Makro möchte ich dann so ändern, dass die kopierte Zeile im anderen Tabellenblatt, in dem sie eingefügt werden soll, in die nächste LEERE Zeile eingefügt wird. Könnt ihr mir bitte schreiben, wie dieser Befehl heißt, bzw. was ich machen muss?

Und noch eine Frage:

Kann man Makros via Wenn-Funktion ansprechen, wenn ja, wie?

Danke für die Antworten schon im Voraus!

Ich habe in VBA eine Userform erstellt. Es handelt sich hierbei um eine Eingabemaske, die mehrere Textboxen enthält, die mit Werten ausgefüllt werden müssen. Das funktioniert soweit recht gut, aber ich möchte noch folgende Funktionalität ergänzen. Un zwar: Wird eines der Felder ausgelassen, soll die MsgBox erscheinen mit dem Hinweis, dass alle Felder ausgewählt werden müssen. Das ist bei einem Feld kein Problem:

If TextBox1.Value = "" Then MsgBox "Alle Felder müssen ausgefüllt werden" Exit Sub End If

Ich suche jetzt aber nach der Möglichkeit, wie ich die If-Then Struktur so umändern kann, dass die MsgBox erscheint, sobald eine oder mehrere der 10 Textboxen der Userform leergelassen werden.

Ich muss eine Excel-Tabelle erstellen, wobei einige Benutzer eine bestimmte Spalte sehen können und andere wiederum nicht.

Den Benutzern, die die Spalte nicht sehen dürfen, darf es auch nicht möglich sein, die Spalte einzublenden.

Ich bin leider völlig unerfahren mit VBA und habe auch nach langem Suchen im Internet keine passende Lösung gefunden.

Sollte eine Lösung per Makro möglich sein ist es ebenfalls ganz wichtig, dass die Benutzer nicht die Möglichkeit bekommen das Makro zu deaktivieren.

Ich bedanke mich schon mal ganz herzlich!!!

LG Hafenhilde

Ich habe bereits versucht die Variable als "Public" zu deklarieren, doch ist sie bei der Rückkehr aus dem UserForm in das Arbeitsbaltt leider leer.

Ich muss einen sehr umfangreichen Kalender erstellen der komplett durch ein Makro erstellt wird. Dazu wollte ich das Jahr in eine Zelle schreiben, welches entscheidet welches Jahr genommen wird. Dafür hab ich den Code: DateSerial(Year,Month,Day) Year ist eine Variable die den Wert zur Zelle (2016) enthält. Dennoch wird immer ein 2015 Kalender erstellt da Excel anscheinend das Datum des PC benutzt. Wie mach ich es richtig?

Danke.

Hallo zusammen,

ich habe in Excel eine Liste, mit einer Hintergrundfarbe die ich aus der Farbpalette selbst hinzugefügt habe. Nun habe ich in Visual Basic hinterlegt das je nachdem was an Werten ausgespukt wird einzellne Zellen rot gefärbt werden. Cells(zd, 6).Interior.Color = vbRed Wenn man die UserForm noch mal ausführt und die Werte ok sind, soll die Farbe wieder auf die vorherige Farbe geändert werden. Da diese aber keine standart Farbe ist, weiß ich nicht wie ich diese dort wieder rein bekomme..

Hallo!

Ich soll auf der Arbeit einen Begleitschein mit fortlaufender Nummer für unsere Mitarbeiter in Excel erstellen. Ich möchte das aber nicht manuell eingeben, da das viel Zeit in Anspruch nimmt.. Also es ist quasi wie eine Seitenzahl.

Beispiel: 1. Schein "Begleitschein Nr. 1" 2. Schein "Begleitschein Nr. 2" usw.

Ich hoffe es ist verständlich was ich meine & ich hoffe, dass mir jemand einen Lösungsweg zeigen kann, für den man nicht studiert haben muss :P

DANKE IM VORRAUS! <3

Servus zusammen,

in einem Sheet auf der Arbeit habe ich folgendes Problem: In meinem aktiven Tabellenblatt kann in B12 der Inhalt Tablet, Mobile, Video, Desktop oder 0 (oder eben die vorher leere Zelle) vorkommen. Je nachdem was dort steht, soll in in der Zielzelle (J12) der selbe Wert stehen. Folgende Regeln möchte ich damit abdecken: 1) Wenn B12 = 0 dann 0 2) Wenn B12 = Tablet dann J12 = Tablet 3) Wenn B12 = Mobile dann Mobile 4) Wenn B12 = Video dann Video 5) Wenn B12 = Desktop dann Desktop 6) Wenn B12 = leer dann 0

Hier meine Formel: =WENN(B12=0;0;WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("desktop";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("mobile";B12));WENN(ISTLEER(B12);0;WENN(ISTFEHLER(SUCHEN("video";B12));"Tablet";"Video"));"Mobile"));"Desktop")))

Sie funktioniert zwar auf den ersten Blick, aber manchmal zeigt es trotzdem etwas falsches an. Tablet statt 0, Dekstop statt Tablet, usw. aber nur vereinzelt und das macht mein darauffolgendes Makro verrückt ^^

Habt ihr eine Ahnung woran das liegen kann?

Danke & Greetz!

Hi zusammen,

ich ziehe mir jeden Tag ein File, dass immer unterschiedlich viele Zeile hat. Ich bräuchte nun ein Skript, dass mir die Zeilennummer ausspuckt, in der der Wert "monat" vorkommt. Gerne als msgbox :)

Danke! Greetz

Guten Tag

Ich erstelle ein Quiz. Die Fragen stehen in einem Array. Um eine Frage als Text anzuzeigen habe ich diesen Code: lblQu.Text = frage(rnd)

rnd steht dabei für eine Zufallszahl.

Ich will aber nicht das eine Frage doppelt vorkommt. Kann mir da jemand helfen?

Hallo, wie erhält man eine Liste von Kombinationen, welche eine festgelegte Summe ergeben? Anforderungen: 1. Summe fix, kann einfach geändert werden 2. 5 Zahlen gesamt, welche die Summe ergeben sollen 3. Der Bereich der 5 Zahlen ist festgelegt auf 1 bis 50 4. Die Zahlen dürfen je Kombination nur 1x vor kommen

Gibt es was dafür..? - Formel, VBA, Programm, Tool? Im Idealfall sind Punkte 1-3 anpassbar..

Danke für eure Hilfe

Hallo Leute

ich wollte nur mal kurz fragen ob und wie es möglich ist eine Email vom Excel via Windows live mail zu senden.

Man sollte einen empfänger, einen Betreff und eine Nachricht festlegen können.

Danke im voraus LG Eierspiegel

Hallo,

folgende Situation: All meine Post sammel ich unsortiert in Ordnern. Um diese zu finden habe ich sie Nummeriert (3/112 [3-Ordner;112-laufende Nummer in diesem Ordner]). Um bestimmte Briefe wieder finden zu können, habe ich eine Exceltabelle angelegt. Spalten ABC geben die Nummerierung wieder, in Spalte D ist der Absender, E enthält das Datum des Schreibens und in F stehen bestimmte Inhalte des Briefs um diese mit Strg+F finden zu können.

Das klappt soweit auch alles gut. Jetzt möchte ich das aber alles mit Makros automatisch machen. Also dass ich in einem Feld einen Suchbegriff einge, und dann nurnoch die Zeilen angezeigt werden, die diesen enthalten.

Bsp.: Ich Suche nach "Rechnung" - es sollen alle Briefe, bei denen ich diesen Tag in irgendeiner Art in Spalte F eingegeben habe angezeigt werden. Also sowohl "Rechnung" als auch "InternetRECHNUNGsbetrag" sollen stehen bleiben. Alle anderen Zellen sollen ausgeblendet werden.

In VBA habe ich bisher das eingegeben, was auch in einem Testsheet geklappt hat (Also natürlich nur das Zeilenausblenden)

Sub test() Dim x As Integer

Tabelle1.Activate x = 2 Do If Cells(x, 6).Value = "" Then Rows(x).EntireRow.Hidden = True Else Rows(x).EntireRow.Hidden = False End If x = x + 1 If Cells(x, 1).Value = "Gesamt" Then Exit Do Loop

End Sub

Anschließend habe ich in meiner Origionalen Tabelle eine Hilfsspalte eingefügt, die nach den Wörtern in Spalte D und F suchen soll und das Wort oder etwas anderes in der Hilfsspalte wiedergibt, damit der oben ganannte Code alles ausblenden kann. Habe ich so leider nicht hinbekommen.

Kann mir jemand helfen? ich denke der Ansatz ist gut und auch umsetzbar. Ich bin allerdings für andere Lösungsansätze offen. Bedenkt dabei aber bitte, dass ich eine VBA-Bull bin, also eventuell eine kleine Erklärung, was mit welchen Variablen geimt ist, dass ich das anpassen kann.

Vielen Dank schonmal im Voraus

Hallo zusammen,

ich habe in Visual Basic eine Variable, die sich mit einer Formel errechnet. Diesen Wert würde ich gerne auf zwei Nachkommastellen runden, weiß aber nicht wie. Kann mir jemand helfen?

Gruß

Hallo zusammen,

ich will in Visual Basic Variablen addieren.

S12 = S2 + S3 + d2

Wenn z.B. S2=1, S3=2 und d2=3 sind sollte 6 raus kommen, jedoch wird mir 123 ausgegeben. Kann mir jemand sagen was ich ändern muss?

LG

Hallo Leute

Ich bin auf der Suche nach einer Möglichkeit, gleiche Einträge in einer Array zu löschen. Zum bespiel Array(0)=10 Array(1)= 20 Array(2)= 10 Array(3)= 40 Array(4)= 10

Wie lösche ich nun die gleichen Einträge aus der Array. Bzw. Noch besser wäre es, wenn ich sie in eine andere Array schreiben kann.

Vielen Dank Peter

Hallo es geht um das programmieren von VBA in Excel Ich hätte 2 Fragen erstens:

Ich versteh das mit den Arrays nicht erstelle ich damit eine Variable mit mehreren Werten oder erstelle ich damit mehrere Variablen mit ähnlichem Namen?

und zweitens mein eigentliches Problem:

Gibt es eine möglichkeit einer Variable mehrere verschiedene Werte zuzuschreiben und diesa aber einzeln abzufragen bzw. zu ändern? (Es würde auch mit vielen einzelnen Variablen gehen aber das wird mir dann doch sehr unübersichtlich bei ca. 3-4 hundert^^) Bsp. PunktA(X-wert,Y-Wert,Z-Wert) wenn wer code beispiele hätte wäre es auch klasse ;)

LG Marinus

Hallo zusammen,

ich würde gerne über Visual Basic, wenn eine bestimmte if Bedingung erfüllt ist (bekomme ich hin), einen Zellbereich leeren (Formatirung soll erhalten bleiben, also nur Hintergrundfarbe und Inhalt löschen), z.B. 2B bis 6E. Kann mir jemand hierbei helfen? Ich weiß leider weder wie ich eine Aktion für einen Zellbereich ausführe (es werden mehrere Zellbereiche werden) noch weiß ich, wie ich über Visual Basic Zellen leeren kann.

Gruß

Hallo zusammen,

ich habe eine UserForm mit verschiedenen OptionButtos. Durch klicken auf einen CommandButton soll zum einen je nach ausgewähltem OptionButton eine neue UserForm geöffnet werden, dass ist kein Problem, und zum anderen die aktuelle UserForm geschloßen werden. Wie bekomme ich das hin?

Hier der Code, den ich bisher habe:

Private Sub CommandButton1_Click()

If OptionButton1 = True Then
    UserForm2.Show
ElseIf OptionButton2 = True Then
    UserForm3.Show
ElseIf OptionButton3 = True Then
    UserForm4.Show
ElseIf OptionButton4 = True Then
    UserForm5.Show
ElseIf OptionButton5 = True Then
    UserForm6.Show
ElseIf OptionButton6 = True Then
    UserForm7.Show
ElseIf OptionButton7 = True Then
    UserForm8.Show
ElseIf OptionButton8 = True Then
    UserForm9.Show
ElseIf OptionButton9 = True Then
    UserForm10.Show
ElseIf OptionButton10 = True Then
    UserForm11.Show
ElseIf OptionButton11 = True Then
    UserForm12.Show
End If
    

End Sub

Hallo zusammen,

ich habe folgendes Excel-Problem. In Spalte C können diverse Materialien per Drop-Down ausgewählt werden. Per Sverweis wird dann automatisch die Bezeichnung (Spalte D), Auftragsgröße (Spalte E) und Auftrag in min (Spalte F) gezogen.

Das klappt soweit alles, nun zur Frage: Die Spalte B ist in Frühschicht (F) und Spätschicht (S) eingeteilt. Pro Schicht habe ich eine max. Kapazität von 450 min. Wenn ich nun im Dropdown einen Auftrag ausgewählt habe, welcher größer als 450 min ist, so soll automatisch die Zeit, welche nicht mehr in diese Schicht (größer 450 min) passt, in die Spätschicht, bzw. auf den nächsten Tag geschoben werden. Wie kann ich das Problem lösen?

Vielen Dank für die Antworten.

Hallo Zusammen,

ich habe folgendes Problem. Ich habe in Excel eine zweispaltige Tabelle. Spalte 1 = Bezeichnung, Spalte 2 = nummerischer Wert.

Nun will ich alle Werte aus Spalte 2 summieren, bei denen in Spalte 1 die Bezeichnung "Windows" vorkommt.

Gibt es hier eine Funktion für? Wenn ja wie heißt diese?

Vielen Dank im Voraus!

Hallo ihr Lieben Excel-Profis,

ich hab ein kleines Excel-File, welches ich täglich öffne und wo ich zum aktuellen Datum einen Eintrag mache). Das passiert über eine Inputbox. Wenn ich aber das Excel ein zweites Mal öffne und einen neuen Text eingeben, dann überschreibt es mir den alten Text. Ich würde jetzt gerne mein Makro so umbauen, dass ich den Text in die Zelle dazuschreibe. Sub eintragen()

Dim x As Range Dim symptom As String

symptom = InputBox("heutige Symptome:", "In Spalte D", "") If symptom = "" Then Exit Sub With Sheets("Kalender") Set x = .Range("D:D").Find(Date) If x Is Nothing Then MsgBox "Der " & Date & " wurde nicht gefunden!" Else .Cells(x.Row, 6) = symptom End If End With End Sub

Bitte um Unterstützung!

Danke! :-)

Hallo Zusammen

Ich hoffe jemand kann mir weiterhelfen. Ich bin ein totaler VBA Frischling und versuche mich natürlich schon an etwas, was mich total überfordert. Nun sitze ich schon sicher 2 Tage an dem Problem und finde einfach keine Lösung. Vil. habt ihr eine Idee wie ich das VBA-Technisch schreiben kann.

Und nun zu meiner Frage: Ich habe zwei Tabellen bzw. Arbeitsblätter. Tabelle 1: „Alle Daten“ Tabelle 2: „Kunde“

Nun soll aus Tabelle 1 in der F Spalte der Text „762HH“ gesucht werden und wenn er gefunden worden ist, soll er in Tabelle 2 Text „762HH“ ausgeben, sowie auch noch die Spalten B, C, D, E , die in der selben Zeile, wie der Text in der Tabelle 1 sind.

Kann mir da jemand weiterhelfen? Falls Fragen sind, könnt ihr gerne Fragen.

Danke schon mal im Voraus.

Hallo zusammen,

ich möchte in meinem Code eine Suchfunktion einfügen, die von einem ganzen Dateianmen ("XXX_2015_Prototype 5") einen Teil sucht und abgleicht ("XXX_2015").

Zum Beispiel:

==> Wenn im Ordner "Desktop" der Dateiname "XXX_2015" vorhanden ist, dann sollen die Zellen A2 bis C10 kopiert werden. Falls dieser Dateiname nicht gefunden werden kann, soll ein Fenster aufgehen mit der Meldung "Datei "XXX_2015" konnte nicht gefunden werden.

Ich wäre euch sehr dankbar!

Beste Grüße Midou

Moin,

ich brauche ein Makro um folgendes zu Erstellen.

Ich möchte ein Excel Blatt Bsp. 10 mal Drucken, dort soll beim Drucken immer die fortlaufende Zahl stehen. Bisher tragen wir die Zahlen immer Manuell ein und dies ist zu arbeitsaufwendig :-( Wir sind jetzt auf Blatt 770, wenn ich jetzt sofort 10 Seiten hintereinander Drucke soll das letzte Blatt Seite 780 in der Zelle L1 stehen.

Ich hoffe ich konnte mich gut genug ausdrücken.

Ich danke euch für die Hilfe :-)

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

Servus Leute,

ihr habt mir schon oft bei Problemen mit VBA geholfen, deswegen denke ich, dass ihr mir auch jetzt helfen könnt.

Ich muss in einem großen Makro (Also es geht nicht ohne Makro!) eine Summenformel bilden, von einem Bereich der variabel ist, da Monat für Monat neue Datenblätter so bearbeitet werden sollen.

Ich habe den Bereich über Suchen-Funktionen und Variablen "e" und "f" definiert (e ist Anfang, f ist Ende)

Diesen Bereich habe ich als Range definiert

Dim Bereich1 As Range
Set Bereich1 = Tabelle1.Range("E" & e, "E" & f)         
    

Und will in einer variablen Zelle die Summe angezeigt bekommen, es scheitert aber bisher:

Tabelle1.Range("E" & b + 11).Value = Application.WorksheetFunction.Sum(Bereich1)

Könnt ihr mir helfen? Danke im Voraus :)

Servus,

ich habe durch die Arbeit vermehrt mit Excel VBA und Makro zu tun, meine Aufgabe besteht darin, dass ich ein Makro erstellen soll, das Daten aus mehreren Dokumenten zu einem monatlichen Bericht zusammenstellt.

Ich bin schon recht weit, jetzt fehlts am Feinschliff, ich habe in Spalte A Werte von FF58200 bis FF59625. Ist der Wert in einer Zelle zwischen FF58200 und FF58425 ist, so sollen in den Spalten E und F diese Zellen Gelb gefärbt werden, sofern sie zwischen FF58430 und FF 58650 sind Grün.

Das Problem dabei ist, dass ich absolut keine Wenn-Funktion hinbekomme.

Könnt ihr mir helfen?

Danke vielmals :D

Hallo zusammen,

ich bin gerade dabei VBA zu lernen und würde gerne testen, wie man mit Outlook automatisch Emails versenden kann. Hierzu habe ich entsprechende Empfänger (Adresese, Vorname, Nachname und Betreff) in Excel. Einen entsprechenden Email-Text (inkl. Absatz und Textformatierung) habe ich in Word vorliegen. Kann man das irgendwie kombinieren?

Ich habe im Netz bislang nur Lösungen gefunden, wie man Emails versenden kann, bei denen alles in Excel oder dem VBA vorliegt.

z.B. diese hier:

Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 10 Empfänger
For i = 1 To 10
    Set MyOutApp = CreateObject("Outlook.Application")
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
        'Die Empfänger stehen in Spalte A ab Zeile 1
        .To = Cells(i, 1) 'E-Mail Adresse
        'Der Betreff in Spalte B
        .Subject = Cells(i, 2) '"Betreffzeil"
        'Der zu sendende Text in Spalte C
        'Maximal 1024 Zeichen
        'Der Text wird ohne Formatierung übernommen
        .Body = Cells(i, 3)
        'Hier wird die Mail angezeigt
        '.Display
        'Hier wird die Mail gleich in den Postausgang gelegt
        .Send
    End With
    'Objectvariablen leeren
    Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
    Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
    'Sendepause einschalten
    'Outlook kann die Aufträge nicht schnell genug verarbeiten
    Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub

Hallo, ich habe ein Makro, welches eine Excel Tabelle nach bestimmten Vorgaben formatiert. Dabei durchsucht es Spalte A nach doppelt vorkommenden Sachnummern und hinterlegt die gesamte Zeile grau wenn denn solche auftauchen.

Es kann aber vorkommen, dass nach doppelt vorkommenden Sachnummern direkt wieder doppelte Sachnummern angezeigt werden. Jetztz suche ich nach einer Möglichkeit, diese dann in einer anderen Farbe zu hinterlegen. Wie unten beispielhaft dargestellt, würden die Zeilen A5:A9 grau hinterlegt. Das Ziel wäre jetzt, dass Zeilen A5:A7dunkelgrau und A8:A9 hellgrau hinterlegt werden. Ich hab keine Idee, wie man so etwas anstellen könnte.

1. Spalte A
2. V
3. L
4. O
5. H
6. H
7. H
8. S
9. S

Danke schon mal an alle die sich die Zeit nehmen zu Antworten

Hallo zusammen,

ich habe fürs Geschäft eine Excel-Datei erstellt, in der man nur die Auftragsnummer eingeben muss und automatisch die Kundendaten in bestimmten Zellen auftauchen.

Ich würde gerne die Kundendaten ein eine Tabelle übertragen und wenn ich dann die nächste Auftragsnummer eingeben, sollen die Daten wieder in die Tabelle übertragen werden, aber nicht die vorherigen Kundendaten überschreiben, senden darunter eingefügt werden. Hat jemand eine Idee?

Hallo,

ich habe folgendes Problem: Ich habe meine Exceldatei (Excel 2007 / xlsb-Datei) mit dem Blattschutz geschützt und möchte trotzdem, dass Gruppierungen geöffnet bzw. geschlossen werden können. Das funktioniert auch wunderbar mit der hier gefundenen Lösung:

http://www.office-loesung.de/ftopic60153_0_0_asc.php

Allerdings möchte ich jetzt noch die Spaltenbreite und Zeilenhöhe ändern können, während der Blattschutz aktiv ist. Man kann zwar beim Aktivieren des Blattschutzes den Haken bei „Spalten formatieren“ und „Zeilen formatieren“ setzten, allerdings werden bei der nächsten Öffnung der Datei diese Haken wieder heraus gelöscht. Ich glaube das es aufgrund des oben stehenden Makros nicht funktioniert aber den genauen Grund verstehe ich leider nicht, da ich mich mit dem VBA nicht auskenne und das Makro in dem Link auch nur kopiert habe.

Kann mir bitte jemand helfen und das Makro dementsprechend umschreiben oder mir eine andere Lösung nennen?

Vielen Dank!

Ich muss z.T. große Dateien mit VBA bearbeiten, wobei oftmals mehrer 10.000 Datensätze ausgeblendet sein können. Diese müssen nicht bearbeitet werden.

Bisher habe ich die nächste zu verarbeitende Zeile gesucht, indem ich alle ausgeblendeten Zeilen per Schleife ignoriert habe (If ActiveSheet.Rows(_ExcelRow).EntireRow.Hidden). Dies kann bei 30.000 Sätzen aber schon mal eine ganze Weile dauern. Gibt es stattdessen eine elegantere Methode? Sendkeys("{Down}") funktioniert bei mir nicht, wenn Excel minimiert ist.

Ich benutze Office365 (somit aktuell Office 2013). Statt dem bisherigen Pfeilcursor habe ich jetzt nur noch ein weißes Kreuz als Cursor. In meinem Excel-Formular sind diverse Command-Buttons. Wenn ich jetzt mit diesem Kreuz-Cursor auf diese Buttons klicke passiert gar nichts mehr (die dahinter liegenden VBA-Makros werden nicht ausgeführt). Wenn ich versuche neue Active-X-Elemente einzufügen kommt: "Objekt kann nicht eigenfügt werden."

Der Tipp "Ausfüllkästchen und Drag & Drop von Zellen aktivieren [x]" bringt bei dieser Excel-Version leider nicht den gewünschten Erfolg:

http://answers.microsoft.com/de-de/office/forum/office_2007-excel/mauszeiger-%C3%A4ndert-sich-nicht-auf-das-kreuz/f5d57ee0-cb34-4916-97a6-df0be7df1643

Wie kann man in diesen Modus geraten und wie kommt man wieder zum normalen Pfeil-Cursor-Modus?

Hallo zusammen,

ich würde gerne mit VBA in Excel einen ganzen Ordner (z.B. "C:\Users\Name\Desktop\Test") zippen und das ganze dann in einen separaten Ordner (z.B. Desktop\Archiv) speichern. Am besten wäre es, wenn ich die gezippte Datei noch umbenennen könnte (dass z.B. automatisch ein Zeitstempel vorkommt). Leider hat mir google bis jetzt nur geholfen, wie ich einzelne Datein zippe und meine Änderung auf Ordner hat nicht funktioniert.

Über eine Lösung wäre ich sehr glücklich. Ich nutze Office13 und es wäre super, wenn das ganze über 7zip funktioniert.

Vielen Dank :)

Hallo zusammen

Bin ein Anfänger in VBA und habe ich durch etliche Foren geschlagen, um zu lernen :) Über Excel-Makro eine E-Mail erstellen funktioniert relativ einfach. Nun habe ich in der Spalte D (ab Zelle D4) die E-Mail Adressen aufgeführt (ca. 200 Stk,). Diese sollen nun alle ins Bcc Feld.

Mail.bcc = Sheets(Quelle).Range("D4:D250")

-> das funktioniert nicht. Fehlermeldung "Die untere Array Grenze muss null sein". Ich kann zwar einzelne Zellen mit "&" hinzufügen, das wäre aber mühsam bei 250 Adressen.

Frage: Gibt es eine Lösung, welche ich an dieser Stelle einbauen könnte, damit alle Zellen in der Spalte D ins Bcc Feld kopiert werden?

Danke für eure Hilfe.

Grüsse Roman

Hi zusammen. Habe mir heute mein erstes Userform gebastelt (Google sei Dank...). Mein UF macht simpel nichts anderes, als Einträge aus der EIngabemaske in eine Tabelle zu füllen.

Dim emptyRow As Long

'Ermitteln der ersten leeren Zeile
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1

'Wohin werden die eingegebenen Datein eingefüllt?
Cells(emptyRow, 1).Value = ComboBox1.Value
Cells(emptyRow, 5).Value = TextBox1.Value
Cells(emptyRow, 2).Value = TextBox2.Value
Cells(emptyRow, 3).Value = TextBox3.Value
Cells(emptyRow, 7).Value = TextBox4.Value

If OptionButton1.Value = True Then
    Cells(emptyRow, 6).Value = "1. Halbjahr"
End If

If OptionButton2.Value = True Then
    Cells(emptyRow, 6).Value = "2. Halbjahr"
End If


Me.Label7 = "Speichern erfolgreich!"

End Sub

Ich muss auch sagen, es funktioniert prächtig. Die Einträge werden alle korrekt erstellt etc. Nur habe ich in Spalte "H" meiner Tabelle, wo die Daten eingefügt werden, eine Spalte für SVerweis. Diese Formel soll jedesmal, wenn ein neuer Eintrag gespeichert wird, angefügt werden. Wenn ich von anfang an alle Formeln runterziehe bis ans Ende der Tabelle braucht Excel 2Minuten zum das Dokument zu öffnen... Formel lautet: =SVERWEIS($A2;'Tabelle1'!$A$1:$C$31;2;FALSCH) Wobei der Bezug A2 natürlich mit jeder Zeile anders ist (A2, A3, A4 etc.) Wenn ich die Formel "aufzeichne", erscheint folgendes, womit ich absolut nix anfangen kann.

Sub SVerweis_HC()
'
' SVerweis_HC Makro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP(RC1,'Tabelle1'!R[-1317]C[-7]:R[-1289]C[-6],2,FALSE)"
    Range("H1319").Select
End Sub

Kann hier wer helfen?

hey habe folgendes Problem: ich brauche in meinem Programm sehr viele Variablen und möchte allen einen wert zuweisen kann ich das übersichtlich in eine schleife packen also nicht so: W1=3 W2=3 W3=3 W4=3 ....... statt dessen will ich alles in eine schleife packen erster versuch:

Dim schleife As Integer
schleife = 1
Do While schleife < 73
W& schleife = 3        'hier ist das problem^^
schleife = schleife + 1
Loop

schon mal danke für eure vorschläge ;)

Hallo Leute, ich habe folgendes funktionierendes Codefragment, welches abwecheseln de den Inhalt aus den Spalten A und B in einer Textbox darstellt:

Sub MehrereSpaltenZeilenweiseInTextbox()
    Dim i As Long, j As Long
    Dim varQ As Variant, varZ() As Variant
   varQ = Range("A1:B9").Value
   ReDim varZ(1 To UBound(varQ, 1) * UBound(varQ, 2))
   For i = 1 To UBound(varQ, 1)
   For j = 1 To UBound(varQ, 2)
    varZ(i * UBound(varQ, 2) - UBound(varQ, 2) + j) = varQ(i, j)
   Next j
   Next i
 TextBox1 = Join(varZ, vbNewLine)
  End Sub

Das entscheidende ist diese Formel:

varZ(i * UBound(varQ, 2) - UBound(varQ, 2) + j) = varQ(i, j)

Wie kann ich diese Formel herleiten? Hat jemand eine Idee? Die Formel ist richtig, alles funktioniert toll, aber wie leite ich sie her?

Hallo zusammen,

Ich möchte in VBA etwas programmieren, und dazu ist es nötig dass eine Zelle als Button funktioniert. Das heisst, sobald ich z.B auf die Zelle A1 klicke, also die aktiviert wird, soll ein Makro ausgeführt werden. Wie kann ich das realisieren?

MfG Duma123

Hallo, ich mal wieder :) Ich habe folgendes Problem: in meinem excel Makro verschieben sich die commandbuttons. "Seitenverhältnisse sperren" und "nur von zellposotion abhängig" hab ich schon eingestellt. Zusätzlich bekomme ich die Buttons nicht auf die gleiche Größe.

Die Frage wäre, wie man das am besten in den Code des Buttons integriert?

Wichtig wäre wie erwähnt Größe und Position des Buttons festzunageln.

Hallo,

Ich habe ein chronologisches Logbuch in Excel erstellt. Ich habe außerdem einen Button "Datum/Zeit einfügen" erstellt.

Beim Klick auf den Button soll ab Zeile 11, Spalte B das aktuelle Datum und gleichzeitig ab Zeile 11, Spalte C die aktuelle Zeit eingetragen werden. Beim erneuten Button-Klick soll sich das ganze fortführen, d.h. aktuelles Datum in Zeile 12, Spalte B und Zeit in Zeile 12, Spalte C.

Wie lautet das makro hierzu?

Hallo zusammen,

Ich bin dabei ein 4 Gewinnt du programmieren. Es spielen 2 Menschen gegeneinander. Das Feld wird in Excel dann jeweils Gelb oder Rot gefärbt. Das funktioniert alles, aber etwas bereitet mir noch Kopfzerbrechen. Und zwar die abfrage, wer gewonnen hat, wenn 4 in einer Reihe sind. Wenn ich das mit einer If-Abfrage mache und jede Möglichkeit überprüfe, gibt es alleine horizontal 48 Möglichkeiten....

Hat jemand eine Idee wie ich das besser machen könnte?

MfG Duma

Ich habe in einer Zeile mehrere Zellen welche einen Wert haben. Wenn also die die Zelle E 4 gleich Null ist, soll die Zeile 4 ausgeblendet werden. Kann mir jemand sagen wie das geht.

Gruß und Danke

Gert

Hallo,

mein Problem:

Ich habe ein Tabellenblatt mit ca. 400 Zeilen und 14 Spalten. Ich möchte nun, wenn in einer bestimmten Zeile eine "Null" steht, dass die gesamte Zeile in ein neues Tabellenblatt kopiert wird. Steht in dieser Zeile keine "Null" soll die Zeile in ein drittes Tabellenblatt kopiert werden. Ich habe leider noch so gut wie keine Erfahrung mit VBA, wäre super wenn ihr mir helfen könntet.

Danke

 Dim arrSuchbegriff, i&
 arrSuchbegriff = Array("Suchbegriff1", "Suchbegriff2", "", "SB3")

 For i = LBound(arrSuchbegriff) To UBound(arrSuchbegriff)
     ActiveSheet.Columns("A").Replace arrSuchbegriff(i), "###@@@###", xlPart, MatchCase:=False
 Next i
 ActiveSheet.Columns("A").AutoFilter Field:=1, Criteria1:="*###@@@###*"
 ActiveSheet.Cells.Delete

Das Makro klappt, allerdings löscht es mir nur die Zelle in der der Begriff enthalten ist, und nicht die komplette Zeile. Kann jemand helfen? Viele Grüße

Guten Tag,

ich suche einen Code für ein Makro,dass in Spalte B unter der letzten beschriebenen Zelle vor einer leeren Zelle (also nicht am kompletten Ende des Sheets) eine Leerzeile einfügt. Habe schon etliche codes ausprobiert, zb

Sub letzte_Zeile()

'letzte benutzte Zelle in Spalte 2 finden DIM Ende As Long With ActiveSheet

Ende = .Cells(Rows.Count, 2).End(xlUp).Row End With

End Sub

Dieser sollte mir eig die letzte beschriebene Anzeigen,es funktioniert aber Garnichts.

Freue mich über Vorschläge. Viele Grüße

Kann man bei Excel eine Zelle sperren wenn eine andere Zelle nicht den richtigen Wert enthält?

Beispiel:

A1=Test1 A2="angeforderter Text(Test2)" =Zelle ist gesperrt

wenn aber

A1=Test2 A2="angeforderter Text(Test2)" = Die Sperrung der Zelle ist aufgehoben

Hallo,

ich brauche dringend Hilfe bei der Programmierung eines Makros in Excel. Ziel soll es sein Zeilen (Spalte B) aus Tabellenblatt1 x-mal (Zahl, die in Spalte A steht) in Tabellenblatt2 zu kopieren. Hier ein Beispiel, wie ich das meine:

Tabellenblatt 1:
Spalte A..... Spalte B
3................. Katze
2................. Vogel
4................. Hund

Ziel in Tabellenblatt 2:
Spalte A
Katze
Katze
Katze
Vogel
Vogel
Hund
Hund
Hund
Hund

Ich hab schon vieles probiert und es u.a. geschaft ganze Spalten mit Hilfe eines Makros von Tabellenblatt1 in Tabellenblatt2 zu kopieren, also z.B. Spalte A aus Tabellenblatt1 in Spalte A des Tabellenblattes2. Oder auch eine Zelle (A1) entsprechend der angegebenen Zahl (in Spalte A) darunter x-mal einzufügen. Aber ich schaffe es nicht, dass die Zelle in Spalte B in Abhängigkeit vom Wert, der in Spalte A steht, x-mal in einem neuen Tabellenbaltt einzufügen.

Ich brauche das Makro für die Arbeit, um die Erstellung von Rechnungen zu vereinfachen.

Ich freue mich über jede Hilfe und hoffe, dass mir jemand mit der Programmierung helfen kann. Excel-VBA für Dummies war mir bisher leider keine groe Hilfe :(

Hallo zusammen,

Ich habe eine Textbox (txtxDatum), in der das aktuelle Datum steht (tt.mm.jjjj). Dieses wird beim initialisieren reingeschrieben.

Nun möchte ich mit einem SpinButton (SpinButton1) das Datum hoch bzw runterzählen. Also dass dieses dann in der Textbox steht.

Wie kann ich das am besten machen?

MfG Manu

Hallo ihr Lieben,

mal wieder bin ich dabei, für die Arbeit ein Excel-Sheet zur Erleichterung zu basteln.

Diesmal möchte ich eigentlich etwas recht Simples: Per Buttonklick auf - oder + soll der Wert einer Zelle entweder um 1 erhöht oder verringert werden. Die betroffene Zelle steht in jeder Zeile zwischen den zwei Buttons (siehe Screenshot). Um nicht für jeden Button eine eigene Funktion schreiben zu müssen, wollte ich hier mit Offset der Zelle, in der der Button liegt, arbeiten, aber irgendwie bekomme ich es syntaktisch nicht hin und bitte deswegen um Rat, wie ich das realisieren kann.

Würde mich freuen, wenn jemand die Lösung für mich hat. Vielen Dank bereits im Voraus!

Lg Lego

Ich brauche einen Code, mit dem ich feststellen kann, welches von 100 Bezeichnungsfelden (= Label) angeklickt wurde.

Bei Befehlsschaltflächen (Commandbuttons) kann man es mit

MsgBox ActiveControl.Name

ermitteln.

Der Code gibt aber keine Label wieder. Es kommt immer der zuletzt aktivierte Button und nicht das Label.

Ich kann natürlich das einzelne Click-Ereignis jedes Labels abfragen, aber was für ein Aufwand!

Ich hoffe jemand weiß, wie ich in einer Function ermitteln kann, welches Label die Function aufgerufen hat

wenn man im Eigenschaften-Fenster des Labels unter "Beim KLicken" folgendes einträgt, kann man die Function aufrufen und muss nicht das Click-Ereignis programmieren:

=MyFunction()

Wertet man dann in der Function aus, welches Label aktiv war, kann man daraufhin verzweigen.

Bin für jeden Hinweis dankbar

Und wieder mal Hallo zusammen,

ich arbeite an einem Makro, das für jeden Kunden eine Zählung durchführen soll. In Spalte "A" steht hierbei der Kundenname, in Spalte "J" dann das Produkt.

Das Makro soll nun die Einträge in Spalte "J" durchsuchen und die gleichen zusammenzählen.

Die Ausgabe wiederum soll in einem neuen Tabellenblatt erfolgen und wie folgt aufgebaut sein. Spalte A: Kundenname Spalte B: Produkt Spalte C: addierte Anzahl des jeweiligen Produkts

Der Kundenname soll aber, wenn möglich, nur einmal ausgegeben werden so dass eine schöne Übersicht entsteht.

Die Produkte haben die unterschiedlichsten Bezeichnungen, wiederholen sich aber definitiv öfters in Spalte "J".

ich hoffe hier kann mir jemand helfen :)

Danke und viele Grüße Chris

Liebe Experten,

in meiner Excel-Datei befindet sich in der Spalte E in einigen Zellen (nicht in jeder Zeile) ein Text, der irgendwann durch ein Komma getrennt ist.

Der Text ist in jeder Zelle unterschiedlich

Ich benötige nur den Text vor dem Komma.

Also aus Frau Müller, Geranien Weg 5 soll nur noch Frau Müller werden oder aus Team A - Team B, 6. Spieltag soll nur noch Team A - Team B werden.

Ich bräuchte dafür ein Makro bzw einen Code den ich in ein schon bestehendes Makro einbauen kann.

Vielen Dank für Eure Hilfe. Ich google mich schon langsam tot, ohne etwas passendes gefunden zu haben bzw. meine VBA - Kenntnisse sind dafür einfach noch zu rudimentär.

MJ

Hallo, Ich habe eine Excel Tabelle, in dieser befinden sich 3 Spalten in denen mehrere Tausend von Einträgen sind. Dien Tabelle soll exportiert werden und muss sich daher an Zeichenlängen halten. Da ich nun schon alle Zellen mit werten habe, möchte ich wissen, wie ich nachträglich Überprüfen kann, ob die Maximale Zeichenlänge Überschritten wurde und wenn ja diese von hinten um X Zeichen kürzen bis sie der Vorgabe entspricht. Ansonsten könnte ich sie nicht einlesen. Bei 5-6000 Einträgen würde ich das aussortieren und kürzen nur ungern von Hand übernehmen. Danke

Hallo zusammen,

gibt es eine Möglichkeit eine komplette Excel Spalte in SAP einzufügen. Bei SAP kann ich maximal 16 Zeilen per Copy und Paste einfügen. Gibt es ein Tool, oder einen Trick um eine komplette Spalte mit beispielsweise 100 Zeilen oder mehr direkt in einem Schritt zu kopieren? Vielleicht hat jemand dasselbe Problem und eine Lösung parat

Hallo Leute ich hab ein Problem und zwar möchte ich aus einem Tabellennblatt die Spalten A,B,C,D in einer Combobox einfügen... nur hab ich wenig bis gar keine Ahnung mit VBA danke für die Hilfe schon im Voraus.

Hallo an alle Excel-Nerds :P

Und zwar versuche ich in der Reihe unter den Tagesnummern die Wochentage auszulesen. Weiß jemand wie das möglich ist ? Bin nicht so der VBA-Programmierer.

Danke schonmal im Vorraus .

Gruß Mutti

Hallo! Das ganze soll ungefähr so aussehen: wenn in Zelle A1 "baum" steht soll der Inhalt aus B1 in das naechste Tabellenblatt in eine bestimmte Spalte..aber keine bestimmte Zelle kopiert werden..

Beispiel: Baum steht in der Haupttabelle in Zelle A1..Zelle B1 wird in das 2te Tabellenblatt in C1 kopiert...sollte nun ein zweites Mal in der Haupttabelle "Baum" stehen soll B1 allerdings nicht in tabellenblatt2 C1 sondern in C2 stehen..also das es immer weitergefuehrt wird. Geht das nur mit Vba oder auch mit ner Formel..mir fällt nichts ein.

Danke schonmal

        Private Sub UserForm_Initialize()
With Me.txtDatum.Value = Date


   Dim r As Range
With Worksheets("Daten")
        Set r = .Range("B1", .Range("B65536").End(xlUp))
ComboBox1.RowSource = "Daten!" & r.Address
End With
End With




End Sub     

Ist es möglich, dass die combobox all jene Daten herausfiltert wo, in Spalte G nein steht? Also praktisch dass es mir nurmehr jene Daten aus Spalte B in der Combobox anzeigt wo in der gleichen Zeile in Spalte G ein nein steht ? Danke im Voraus

Hallo,

ich habe folgendes Problem: Ich habe eine Tabelle mit einem Blatt in dem alle Daten enthalten sind und viele Blätter in denen jeweils ein Teil der Daten dieses Grunddaten Blatts auftauchen sollen, einschließlich der jeweiligen Schriftfarbe, Schriftart, eben mit genau der Formatierung, die die Daten auch in "Grunddaten" haben. Am besten sogar so, dass sie sich automatisch aktualisieren, wenn sich die Daten in "Grunddaten" ändern. Ich hoffe ein Computerkenner kann mir helfen! Danke!

Hallo,
seit kurzem hakt es beim Ablauf eines Makros, obwohl ich dieses Makro schon lange ohne Probleme benutze.
Nach Anstoß des VBA-Makros erscheint immer mal wieder das Panel mit folgender Meldung:

"Ausführung des Codes wurde unterbrochen"
Fortsetzen Beenden Debuggen Hilfe

Klicke ich auf "Fortsetzen" läuft das Makro weiter, kann dann aber (an einer anderen Stelle) wieder hängenbleiben oder auch komplett durchlaufen.
Klicke ich auf "Debuggen" sehe ich die Stelle(n), an denen das Makro hängenblieb, das sind dann Anweisungen wie diese:

Application.Display Alerts = True
Sheets.Add before: = Sheets("Tabelle99")
Sheets("Tabelle88").Select

also ganz normale VBA-Anweisungen.
Und, es hakt immer an andren Stellen, so dass ich davon ausgehe, dass es nicht an der Code-Zeile selbst liegt.

Klicke ich auf "Hilfe" erscheint nach langer Suche nichts, gebe ich dann in dem angebotenen Suchfenster die Fehlermeldung als Suchstring ein, findet die Hilfe nichts dazu.

Was kann da sein?

LG PG

Der VBA-Code besteht aus 1 Hauptprogramm (Steuerprogramm) und ca. 10 Subroutinen, die Schlüsselworte in einem Excel-sheet suchen und dann Werte vom Spender-Sheet ins Schreibblatt übertragen.

Windows 7
Excel 2007

Hey Leute, wie kann man mit VBA Zeilen sperren wenn die Bedingungen für eine Spalte erfüllt ist. Ich möchte, dass sich die Zeile sperrt und man sie nicht mehr bearbeiten kann, wenn eine Spalte den erforderlichen Wert erfüllt.

Die Spalte G trägt den Titel abgeschlossen und wird entweder mit ja oder nein ausgefüllt, wenn ja steht soll sich die gesamte Zeile, wo dieses ja in Spalte G steht sperren und man kann sie nicht mehr bearbeiten.

Danke für eure Hilfe

Hallo habe folgendes Problem. Habe ein Excel Sheet indem man durch einen Commandbutton die Zahl in Zelle A1 bzw. A2 in eine Liste überträgt.

Hätte gerne dass nach Eingabe in Zelle A1 automatisch der Button aktiviert wird und ich diesen mit der Enter Taste bestätigen kann. Danach soll die Auswahl in Zelle A2 springen und danach soll der Button hinter A2 ausgewählt werden sodass ich diesen wieder mit Enter bestätigen kann.

Bisher springt die Auswahl immer nach A1 in A2 und die Buttons müssen mit der Maus bestätigt werden.

Kann mir jemand helfen?

Danke!

Habe für einen Kollegen ein Programm geschrieben. Das Problem ist nun das er vorher als Change Bedienung einen Befehl drin hat denn ich nicht ganz verstehe(und mein Programm Stört). :/ Der Code hat seinen Sinn deswegen möchte ich ihn gerne drin lassen. Hier der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("A7:A100")) Is Nothing Then Exit Sub
   If Target.Value <> "" Then
      Target.Offset(0, 8).Value = Date
   Else
      Target.Offset(0, 8).ClearContents
   End If

End Sub

Ich denke der Code Funktioniert so. Er Speichert in der Variable "Target" die Range A7;A100 und guck nun dann ob sie leer sind wenn ja soll er das Sub Verlassen. Ist das gebiet 0,8 nicht "ungleich" Leer soll es in die Zelle 0,8 bzw "Offset"? Das Datum reinschreiben. Ist Target 0,8 leer? Löscht es die Komplette Zeile?...

So das Programm erzeugt immer wenn man in Spalte A in eine neue Zeile schreibt an der stelle 8/bzw. H das Datum.

Das Problem ist aber das der Debugger anspringt wenn man Zeilen per Rechtsklick Zeilen Löschen rauslöscht. Und da das wiederum unschön ist wäre hilfe wirklich schön :)

mfg Dennis

Ich möchte gerne eine Programm schreiben das eine Spalte mit Datumswerte durchgeht und sie dann mit dem heutigen Datum vergleicht und sich 4 Wochen vor dem Treffen der Daten sich per MsgBox meldet. Leider weiß ich nicht wie ich da am besten vorgehe z.B. die SystemZeit/Datum rausbekomme und wie ich die am besten vergleiche und die Wochen rausbekomme? :/ Kann mir da jemand helfen ? mfg Dennis

Hallo,

Ich möchte gerne diesen Inhalt:"VE=0,00126"der in Zeile A1 Steht so Aufteilen das am Ende in A1 "VE=" steht und in B1"0,00126" Gibt es einen Befehl der mir da helfen könnte? Mfg Dennis

Hallo,

kleine Frage: (wie) kann man im Code Spalten- und Zeilengröße und Schriftgröße bestimmen? Ich meine damit nicht per Hand oben im Menü selber ändern, sondern direkt im Code eine Zeile und Spalte ansprechen (z.B. Range("A1") = ...) und ihre Zeilen- und Spaltenlängen bestimmen. Das selbe auch für die Schriftgröße!

Kann mir da jemand helfen? Google konnte nichts Produktives liefern -
Code zum Farben einstellen dagegen habe ich erfolgreich gefunden

MfG

Hallo miteinander, kenne mich leider gar nicht in VBA aus und brauche dringend Hilfe für ein Projekt. Ich beschreibe mal kurz mein Problem: Im Worksheet "Objekt löschen" in zeile C6 soll eine Objekt ID eingegeben werden. Diese muss dann mit den Objekt IDs im Worksheet "Objektdaten" in der Spalte B verglichen werden. Wenn sie dort existiert, dann soll die gesamte Zeile, in der sich die eingegebene ID befindet, gelöscht werden. Das ganze soll funktionieren, indem man auf eine Schaltfläche auf dem 1. Tabellenblatt klickt. Ich hoffe, das war jetzt einigermaßen verständlich erklärt. Freue mich sehr über eure Hilfe Danke :) Rosi

Guten Abend,

Ich brauche Hilfe bei der Erstellung eines Makros in Excel:

Die Excelmappe besteht aus mehreren Tabellenblättern. Eine Datenbank und ein übersichtlicheres Datenblatt.

Ich möchte es hierbei ermöglichen, dass der Anwender über die Übersicht die Datenbank abändern kann.

Bei einem Klick soll folgendes geschehen:

Der Wert einer Zelle der Datenbank soll mit dem Wert aus R18 überschrieben werden. Die Spalte der Datenbank ist fest (B).

Die Zeile ergibt sich aus der Nummer des Datensatzes (wird in R10 angegeben) +1. - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Wie würde die Formel aussehen, wenn statt eines Ersetzen des Inhalts, der Wert aus R18 hinzuaddiert wird?

Bsp Datenbank!B10(neu)=R18+Datenbank!B10(alt)

Gibt es eine Möglichkeit, diese über ein Makro auszuführen?

Vielen Dank!