Makro – die besten Beiträge

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

Wieder mal ne Frage zu Excel:

Ich habe eine Tabelle bei der in der Spalte H eine Auflistung von Zahlen ist, die ein "H" hinten dranhaben. Also ['irgendeine zahl' H]. Gibt es jetzt iwo eine Möglichkeit, das H aus allen Zahlen zu entfernen? Ich möchte die Summe aller dieser Zahlen berechnen und diese Formel erkennt nur reine Zahlen. Die Art ist eig egal, ob Formel, Makro (VBS).

Vielen Dank schon im Voraus für die Antworten

Panther12889

Hallo Leute,

Ich habe folgendes Problem: Wenn in folgenden Zellen B42,D42,F42 und G42 jeweils drinsteht: "Eintrag fehlt", dann soll die ganze Zeile, also in diesen Fall die Zeile 42 gelöscht werden bzw gar nicht erst erscheinen. Die Zellen(B42,D42..) bekommen Ihre Werte aus anderen Exceltabellen. Dies soll auch noch für andere Zellen in dergleichen Tabelle der Fall sein. Wie kann Ich dies beheben?Geht dies nur per Makros?

Über Filter wäre es sinnlos, weil es soll für den Betrachter erst gar nicht erscheinen. Der Betrachter soll nicht immer erst den Filter betätigen.

Vielen Dank für eure Antworten jetzt schon mal (:

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

Tag zusammen,

ich habe 50 Tabellenblätter BEW1 bis BEW50, auf die ich im Tabellenblatt Auswertung per Hyperlink springen möchte.

Im TAB Auswertung habe ich eine Spalte A mit den lfd. Nummern 1 bis 50, die als Hyperlink fungieren sollen. Händisch bekomme ich es hin, dass dort mit Klick auf die 1 das Tabellenblatt BEW1 aufgerufen wird (in die Zelle A6).

Ich möchte aber vermeiden dies komplett händisch durchführen zu müssen. Kennt jemand einen Trick, wie ich dies automatisch für die Blätter BEW2 bis BEW5 erledigt bekomme?

Hallo eine Frage an euch... Ich habe eine Zeiterfassungsexcel mit Makro in der Arbeit. Die läuft quasi immer ( speziell für verschieden Projekte) Jetzt kann ich aber leider keine anderen Excel Dateien öffnen solange das Makro von der Exceldatei läuft.

Hat wer eine Idee wie ich beides Gleichzeitig laufen lassen kann? Kann ich die Excel anders abspeichern oder mit einer Cloudexcel dieses Makro betreiben oder gibt es irgendwelche anderen Lösungen. Für Tipps wäre ich sehr Dankbar.

Beste Grüße Sandra

Hey! Ich suche momentan eine kostenlose App mit Makrofunktion, sodass ich ganz nahe Fotos von beispielsweise Insekten schießen kann, ohne, dass meine Kamera ständig auf den Hintergrund wechselt. Ich fahren nämlich demnächst nach Brasilien... :D

Hallöchen,

ich habe folgendes Problem Ich habe zwei Spalten die ich jeweils miteinander addieren möchte. Doch bevor ich diese addiere, möchte ich Spalte B mit dem Wert aus der TextBox1 multiplizieren und Spalte C mit dem Wert aus Textbox2. Danach sollen beide Spalten miteinander addiert und dann sortiert werden. Spalte D ist in diesem Fall die Ergebnisspalte. Das Programm hat auch schon funktioniert, jedoch habe ich vorher nur die spalten addiert und sortiert.

HIer mein bereits geschriebener Code:

Private Sub CommandButton1_Click()



' Prüfen ob Lastspitzen eingetragen wurden, ansonsten Fehlermeldung

        If TextBox1.Value = "" Or TextBox2.Value = "" Then
        MsgBox "Bitte geben Sie eine Lastspitze ein!"
     
Else
        
Dim wks As Excel.Worksheet
Dim lngLetzteZeile As Long
Dim Last1 As Integer
Dim Last2 As Integer
Last1 = TextBox1.Value
Last2 = TextBox2.Value  

Set wks = ActiveWorkbook.Worksheets("Vergleich")


With wks
 
lngLetzteZeile = .Cells(.Rows.Count, "B").End(xlUp).Row
If lngLetzteZeile < 15 Then Exit Sub

 With .Range("D15:D" & lngLetzteZeile)
 'berechne: D := B + C
 .FormulaR1C1 = "=RC[-2]*Last1+RC[-1]*Last2"
 'Formeln durch deren Ergebnis ersetzen
 .Value = .Value
 End With
 
With .Range("B15:D" & lngLetzteZeile)
 .Sort Key1:=.Cells(2), Order1:=xlDescending, _
 DataOption1:=xlSortTextAsNumbers, _
 SortMethod:=xlPinYin
End With

End With
End If


End Sub

Gibt es die Möglichkeit die aktuelle Uhrzeit aus einer Spalte farbig zu hinterlegen?

Beispiel (Siehe Bild):

Um 07:00 Uhr morgens soll die aktuelle Spalte farbig hinterlegt sein

Meine Excel Datei besteht aus zwei "Blättern".

• Auf Blatt Nr. 1 habe ich diverse Eingaben gemacht, wobei die Daten fix sind und sich somit nicht mehr ändern werden (Blatt Nr 1 dient als Datenquelle).
• Das aktuelle Datum wird auomatisch farblich hinterlegt.

Was ich jetzt noch bräuchte:

Das lediglich die Daten aus der markierten Zelle auf Blatt Nr. 2 erscheinen. So habe ich immer die aktuellsten Zahlen auf Blatt Nr. 2 stehen.

Zur Verdeutlichung ein kleines Beispiel:

Am 19.04.2014 sollen die jeweiligen Zahlen (hier: 3,92) automatisch auf Blatt Nr. 2 angezeigt werden. (Siehe Bild Nr. 2)

Wäre super wenn mir einer helfen könnte :)

Guten Tag! Ich habe in Word eine Tabelle mit zwei Checkboxen erstellt (siehe Bild 1), wenn man auf Ja klickt passiert soweit nichts, wenn man auf Nein klickt soll der Inhalt der darunter liegenden Zeile eigentlich ausgeblendet werden und darunter soll dann ein Text eingeblendet werden (Z.B: Hiermit erklären Sie sich einverstanden das Sie auf Datensicherung verzichten usw.).

Da ich mich zum ersten mal mit der VBA Programmierung in Word beschäftige, bin ich ziemlich ratlos was ich noch machen kann. Mithilfe von Google habe ich schon folgendes geschafft:

Private Sub OptNo_Click()

If OptNo = True Then
    With ActiveDocument.Tables(1)
        .Rows(2).Select: Selection.Delete
    End With
End If

End Sub

Wie ihr sehen könnt, wird die Zeile geleert. Der Text sollte eigentlich nur ausgeblendet werden, damit man ihn bei Klick auf Ja wieder einblenden kann. Außerdem weiß ich nicht wie ich dann in die geleerte Zeile oder darunter einen Text einfügen kann.

Ich wäre euch für eure Hilfe sehr dankbar Mfg Chaosboy

Hallo, ich weiß, dass die Naheinstellgrenze der geringste Abstand ist, den man zum Objekt einhalten muss, um noch scharf fokussieren zu können. Nun meckern aber viele bei manchen Objektiven rum, dass eine 10cm Naheinstellgrenze die Fluchtdistanz von Insekten überschreitet, sprich dass die Insekten sich gestört fühlen, wenn man bis auf 10cm an sie herankriecht und flüchten.

Aber sie bedeutet doch nicht, dass man bis auf 10 cm (oder wie vel es eben ist) auf das Objekt herankriechen MUSS, man kann doch dann auch mit bspw. 1m Abstand fotografieren oder nicht?! Warum reden dann so viele davon, dass 10cm Naheinstellgrenze zu kurz sind u.ä.?!

Hallo Zusammen,

Wie kann ich überprüfen, ob eine Spalte gruppiert ist in VBA? Die gruppierten Spalten möchte ich überspringen

Danke

Hallo an alle, folgendes Problem:

Ich habe eine Tabelle mit drei Spalten (A:C, wobei in Zeile 1 die Überschriften sind). Die Werte werden aus anderen Tabellenblättern eingefügt.

Nun möchte all die Zeilen löschen, in denen ein oder mehrere Felder den Wert 0 haben. Habt ihr eine unkomplizierte Lösung für mich? Arbeite noch mit Excel 2003, falls das zur Sache tut...

Danke schon mal vorweg!

Ich habe einen Ordner mit ziemlich vielen Bildern auf der Festplatte die alle sauber benannt sind. Dann habe ich noch eine Excel-Tabelle mit dem Dateinamen der Bilder. In dieser Tabelle ist aber nur ein Teil davon enthalten. Wie schaffe ich es anhand eines Makros, dass nur die Bilder aus dem Ordner gezogen werden die mit den Dateinamen in der Excel-Tabelle übereinstimmen?

Beispiel: Ordner mit Bilder auf Festplatte hat den Namen Fotoarchiv 2012 Dieser Ordner enthält u.a. die Bilder mit den Dateinamen Foto1, Foto2, Foto3, Foto4 usw. In der Excel-Tabelle ist aber nur Foto1 und Foto3 angegeben

Es sollen genau diese Fotos neben dem Dateinamen des Bildes in der Excel-Tabelle hinterlegt werden.

Hallo Community,

erstmal danke das ihr den Post hier lest. Ich habe folgendes Problem: Mein Headset, das Logitech G930, hat ständig geknackt und geknirscht. Das habe ich behoben mit einem alten Treiber, der speziell nur für das Headset gemacht war. Durch die neue Software von Logitech (Gaming Software) besteht das Problem jedoch, weil es anscheinend den 7.1 Sound nicht richtig gebacken kriegt.

Da Ich nun den alten Treiber für das G930 benutze, kann ich auf garkeinen fall die Gaming Software installieren, weil dann der Sound wieder rumspackt. Aber ich brauche die programmierbaren G-Tasten meiner G105 Tastatur. Gibt es da eventuell auch alte Treiber die speziell nur für die G-Tasten sind oder für Tastaturen mit solchen?

Wäre super wenn jemand mir helfen könnte. - LG k1ckd0wN

Hallo erneut Excel-Freunde,

mein Titel verrät es bereits. Eine Zelle soll markiert werden, daraufhin soll "F2" und dann "Enter" gedrückt werden.

Mein Makro sieht bisher so aus:

'Ans Ende der Tabelle springen

ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Select

ActiveCell.Offset(1, 0).Select

' Eingabeaufforderung 1 Datum

Eingabe = InputBox("Bitte Datum angeben, wann die Ware eingetroffen ist!" & Chr(13) & Chr(10) & Chr(13) & Chr(10) & _ "Bitte schreiben Sie in: tt:mm:jjjj" & Chr(13) & Chr(10) & _ "" & _ "", _ "Zugang [Datum]", ActiveSheet.Range("B1") _ & "_", 7000, 5000)

If StrPtr(Eingabe) = 0 Then ' MsgBox ("Die Schaltfläche Abbrechen wurde gewählt. Der Vorgang wird abgebrochen.") End Else

End If

ActiveCell.Offset(0, 0).Value = Eingabe

Wie man sieht, sucht er sich selbst die letzte Zelle in meiner Tabelle um dort mit einer Eingabeaufforderung das Datum anzugeben.

Nun möchte ich als nächsten Schritt, genau diese Zelle, wo man eben das Datum eingegeben hat mittels dem Makro da oben, ... das er diese Zelle auswählt, "F2" und dann "Enter" drückt.

Alle Versuche dies zu bewerkstelligen, schlugen bisher fehl.

Habt ihr eine Idee?

Viele Grüße,

David :) ... Pixelschubster :D

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

Hey Leute, kann mir jemand sagen, wie ich bei der Roccat Isku FX (Tastatur) Makros erstellen kann? Tasten belegen versteh ich, aber wie kan nich für ein Spiel eine Kombination erstellen? Kann jemand von euch ein gutes Tutorial posten? Liebe Grüße

Sky

Hallo Excel-Freunde,

ich brauche ein Makro wie folgt funktioniert:

1. Screenshot der aktuellen Mappe erzeugen.
2. Bild auf Pfad abspeichern
3. Das Bild darf mit dem nächsten Screenshot nicht überschrieben werden. Eine Screenshoterstellung mit Bildname "Datum Uhrzeit" wäre am besten.

Vielen Dank für Eure Hilfe! :)