VBA – die besten Beiträge

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

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!

Ich versuche gerade ein Programm zu schreiben das eine Zeile mit einer Spalte vergleicht. Nun ic bin gerade noch am Anfang des Programmes und nicht sehr erfolgreich. Das Prizip ist es die Zeile (in Tabelle2) mit der Spalte(bzw. erstmal mit der Zelle(in Tabelle1)zu vergleichen). Die Zeile in Tabelle1 wird so gebildet das A und i zsm eine zeile angeben und i als Variable für die Forschleife dient. Das heißt das Programm geht Zeile für Zeile durch und sucht nach einer Zahlenübereinstimmung. Falls was gefunden wurde soll er erstmal per MsgBox ein Simples Test ausgeben damit ich weiß das es Funktioniert. Ich muss zugeben das ich VBA erst vor 3 Tagen angefangen habe zu Lernen. Dehalb seid nicht so Streng mit Fehlern zu mir :D ich hoffe ihr konnte mich helfen mfg Dennis :)

Sub CommandButton1_Click()

Dim i1 As Integer

i = 1

For i = 1 To 100

If Tabelle1.Cells(1 & i) = Tabelle2.Cells(1, 1) Then

MsgBox "Test"

End If

Next i

End Sub

Hallo zusammen

Ich möche in Word mit VBA folgendes Bewerkstelligen:

Ein bestimmter Bereich soll je nach Wahl von Radio Buttons aus-und wieder eingeblendet werden können. Der Bereich enthält vor allem Formularsteuerelemente.

Ich bin schon soweit, dass ich ihn löschen kann, aber ich muss ihn je nach Wahl der Radio-Buttons auch wieder einblenden könne, darum geht löschen nicht.

Es geht also um die Eigenschaft von Selection.

Hier mein Code:

Private Sub OptionButton1_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.Delete
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True

End Sub

Private Sub OptionButton2_Click()
    'Kopierschutz auflösen
    ActiveDocument.Unprotect
        'Auswahltreffen und löschen
        Dim rngParagraphs As Range
        Set rngParagraphs = ActiveDocument.Range( _
            Start:=ActiveDocument.Bookmarks("ftxt1").Range.Start, _
            End:=ActiveDocument.Bookmarks("ftxt13").Range.End)
        rngParagraphs.Select
    
        Selection.
        
    'Kopierschutz erstellen
    ActiveDocument.Protect wdAllowOnlyFormFields, NoReset:=True
    
End Sub

Hallo,
Ich habe eine Tabelle, in der ich die erste Spalte auf Duplikate überprüfen möchte.
Dazu sorteiere ich diese Spalte (alles Zahlen) in aufsteigender Reihenfolge und möchte nun die "Zählenwenn"-Funktion verwenden, um die Duplikate zu zählen.
Da die Spalte ja sortiert ist kann ich sicher sein, dass gleiche Zahlen immer übereinander liegen, sodass ich in der "Zählenwenn"-Funktion folgendes haben möchte:

=ZÄHLENWENN(Bereich;Inhalt=Inhalt der Zelle oberhalb)

Die Zählenwennfunktion durchläuft ja alle Zellen im Bereich, weshalb (theoretisch) die Funktion "Adresse()" mit "Zeile()" und "Spalte()" als Parameter die aktuelle Zelle referenzieren/sich darauf beziehen.
Das würde bedeuten, dass ich in der "Zählenwenn"-Funktion als zweiten Parameter eigentlich nur folgendes eingeben müsste:

Adresse(Zeile()-1;Spalte())

Funktioniert nicht.
In einigen Beispielen habe ich gesehen, dass Bezüge auf andere Zellen in der "Zählenwenn"-Funktion mit einem "&" beginnen, also habe ich folgendes versucht:

=ZÄHLENWENN(A2:A3000;&ADRESSE(ZEILE()-1;SPALTE()))

Wieder kein Erfolg.

Deshalb die Frage: Wie kann ich in der "Zählenwenn"-Funktion in Excel mich auf eine Zelle, relativ zur aktuellen beziehen? Das hier genannte Beispiel wird sicher auch anders zu lösen gehen, aber den genannten relativen Bezug (also relativ zur Aktuellen Zelle) könnte man in der Zählenwenn schon öfters brauchen. Danke und lg, Springrbua

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

ich arbeite zur Zeit an einer Excel-Tabelle und benötige etwas Hilfe bei einer integrierten Suchfunktion.

Die Tabelle ist recht groß - das einzige, das mich allerdings interessiert ist Spalte B, in der inzwischen mehrere hundert Wortkürzel stehen (z.B. ABS, TPP, KVP).

Um es benutzerfreundlicher zu machen möchte ich ein Suchfeld integrieren, mit dem ich die Spalte B nach Wörtern durchsuchen kann. Hier mal kurz die Eckdaten, wie ich mir das ganze Vorstelle:

• Einzelnes Suchfeld, in das ein Wort eingegeben werden kann

• Programm springt nach Eingabe zur Position des Kürzels

• Suche soll genau das eingegebene Wort suchen und nicht alle Wörter, in denen diese Textkombination enthalten ist. Wenn ich nach PA suchen würde, würde er mir sonst wahrscheinlich 300 Wörter markieren!

Wunschanforderung wäre, dass Excel mir einfach alle Wörter markiert (z.B. rot umrandet), da manche Kürzel auch mehrfach in der Tabelle stehen.

Ich habe zwar schon eine Formel aber die benötigt 2 Felder und das findet mein AG nicht genial genug :D

Bestens wäre natürlich ein VBA-Code, die kann ich aber leider nicht selbst programmieren und finde kein Tutorial dafür, noch einen geeigneten Code im Internet.

Falls jemand bereit wäre mir dabei zu helfen, schreibe ich natürlich gerne mehr Informationen zur Tabelle. Ansonsten Danke für alle (Verbesserungs-)Vorschläge und konstruktiven Kommentare ;)

LG

Hallo Zusammen,

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

Danke

Hallo, Schreiben morgen eine Mathe Info Arbeit und ein neben Thema werden die Schleifen sein, verstehe da aber noch nicht ganz den Unterschied zwischen der Do..Until..Lopp und Do..While..Loop Schleife. Hoffe ihr könnt mir helfen, danke im Voraus :D

Hallo Zusammen, ich habe da ein kleines Problem. Ich habe in Excel VBA eine einfache Funktion erstellt und will diese nun um Tabellenblat abrufen. Leider finde ich die dort nicht. Vor ein paar Minuten ging das alles noch wunderbar.

Muss irgenwas aktiviert werden?

Danke