VBA – die besten Beiträge

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?

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

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

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.