VBA Excel – die besten Beiträge

Hallo,

ich verschiedene Befehle mit VBA realisieren, um eine Auswahlliste anzupassen. Zum einen sollen Zellen ausgeblendet werden, wenn eine bestimmte Zelle leer ist und daher ein ganzer Teil der Liste entfallen kann. Der Befehl sieht folgendermaßen aus:

Sub HdlZellenVerbergen()

If Target.Address = "$C$9" Then

  If C9 = "" Then

    Rows("164:195").Hidden = True

  Else

    Rows("164:195").Hidden = False

  End If

End If

End Sub

Da ich mich nun Hals über Kopf in VBA geschmissen habe und schon einige Male Internetrecherche betrieben habe, weiß ich nicht wo der Fehler liegt, da mir hier die Erfahrung fehlt. Der Fehler lautet wie in der Überschrift angegeben. Was muss ich machen, damit das ganze nun funktioniert.

Ein ähnliches Problem erwarte ich dann bei folgendem Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$8" Then

If [C8] = "x" Then [D22] = "y"

End If

End Sub

Auch hier wäre eine Hilfe super.

Vielen Dank im Voraus.

Wie funktioniert das ???

Hallo Community,

ich habe folgendes Problem.

Ich habe eine Excel Tabelle mit vielen ID's (Spalte B) und einen Ordner mit HTML-Dateien, die den IDs zugeordnet sind.

Im ersten Schritt bin ich alle ID's durchgegangen und habe falls vorhanden, die passende HTML Datei in einen Ordner abgespeichert.

Nun kommt der zweite Schritt bei dem ich eure Hilfe brauche. Ich möchte alle gefunden HTML Dateien durchgehen und nach einem bestimmten Bereich suchen. Im HTML Code sieht das ungefähr so aus:

<td class="category">
 <a name="attachments" id="attachments">Angehängte Dateien</a> </td>
<td colspan="5">
<a> unwichtig </a>
<a> WICHTIG </a> <- Hier steht der gesuchte Dateiname
<a> Unwichtig </a>
</td>

Das Ding ist, dass in diesem <td> Tag auch mehrere Dateien aufgeführt sind, der Aufbau ist aber immer gleich. Pro Datei gibt es 3 mal ein <a>-Tag und im mittleren stehen die wichtigen Informationen. Es gibt auch den Fall, dass dort keine Dateien und somit auch keine <a>-Tags vorhanden sind.

Mein bisheriges Makro sieht wie folgt aus:

 Const path = "M:*"
    Dim sheet As Worksheet
    Set sheet = ActiveWorkbook.Worksheets(2)
    maxRow = sheet.Cells(sheet.Rows.Count, "B").End(xlUp).Row
    Dim id As String
    Dim sourcePath As String
    Dim destPath As String
    Dim Filename As String
    For Row = 2 To maxRow
      sourcePath = path & "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      Filename = "view.php-id=" & sheet.Cells(Row, 2) & ".html"
      MkDir (path & "gefunden\" & sheet.Cells(Row, 2))
      destPath = path & "gefunden\" & sheet.Cells(Row, 2) & "\" & sheet.Cells(Row, 2) & ".html"
      If Dir(sourcePath) = Filename Then
      FileCopy sourcePath, destPath
      Else
      MsgBox (sheet.Cells(Row, 2) & " nicht gefunden")
      End If
    Next Row

Um das alles nochmal zusammenzufassen, ich weiß nicht wie ich an die Namen der aufgeführten Dateien im HTML Dokument komme.

Wenn ich die Namen der Dateien erstmal habe, könnte ich auch weitermachen und die HTML-Doks mit passendem Anhang in einen Ordner kopieren.

Ich hoffe ihr verstehe was ich meine, für Fragen stehe ich gerne zu verfügung.

Grüße

Chris

Hallo zsm,
ich möchte durch ein Button-klick vier Textboxe anzeigen lassen.
Ein Beispiel code würde mir sehr dabei helfen.  

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

Hallo,

Habe folgendes Problem:

Ich habe in meiner Userform eine list Box mit z.b. Einkaufsartikel.

Der Benutzer soll nun sich ein Produkt aussuchen z.b. Apfel, wenn er den Apfel ausgewählt hat mache ich Berechnungen usw. wenn der Benutzer jetzt aber noch einen Artikel oder eben den selben haben möchte soll vorher der Apfel nicht mehr selektiert sein. Wie mache ich das?

Gruß

Dennis

Hallo, ich suche seit gut 8 Monaten (ja.. eine lange Zeit bis dato ohne Lösung) einen Weg um folgendes Umzusetzen:

Makro-Ausführung:

In eine Zelle soll ein Buchstabe eingegeben werden, diese Zelle soll vom Makro kopiert werden, den Textinhalt in die Suche eingefügt werden, das Blatt nach dem Text durchsuchen und die Zelle bei einer Liste finden, mit den Pfeiltasten einmal auf die Zelle rechts davon springen, diesen Text kopieren und in eine andere Zelle einfügen.

Makro-Aufnahme:

Zum aufnehmen des Makros gebe ich vor der Aufnahme in die gewisse Zelle (siehe Bild unten) einen Buchstaben (B) ein. Dann starte ich das Makro.

Die Zelle mit dem Buchstaben "B" wird kopiert, die normale Excel-Suche wird geöffnet, der Textinhalt wird bei der Suche eingefügt, Suche gestartet. Buchstabe "B" wird im aktuellen Blatt (Liste) gefunden. Ich springe mit der Pfeiltaste rechts in die benachbarte Zelle ("Baum") kopiere die Zelle und füge sie wo anders als "Ausgabe" ein. Ich beende die Aufnahme.

Problem:

Wenn ich dann in die gewisse Zelle den Buchstaben "A" eingebe, und aus "Ausführen" klicke, wird das vorherige aufgezeichnete Makro gestartet. Dann soll in der Suche der Buchstabe A eingefügt werden und nach "A" gesucht werden.

Aufgrund eines eigenartigen Fehlers wird aber der WIRKLICHE BUCHSTABE VON DER MARKO-AUFZEICHNUNG ("B") EINGEFÜGT - UND NICHT A.

(Ich habe beim Aufzeichnung natürlich über die Einfüg-Funktion den Zellinhalt ("B") eingefügt und nicht manuell eingetippt.)

Ich muss es schaffen, dass die Suche immer einen anderen Buchstaben einfügt, welcher von der Zelle kopiert wurde.

Wenn möglich, nur Methoden zur Aufzeichnung angeben, keine VBA Befehle - da ich davon nichts verstehe :P Ausser es ist wirklich anders nicht umsetzbar.

Bitte um dringende Hilfe, mit läuft die Zeit davon :p Ich hab das sicher schon 25 Mal neu gemacht, immer etwas anders und andere Methoden gesucht, ich werden nicht fündig.

Hier ein Bild darunter, für besseres Verständis. Ich freue mich über jede Hilfe!

Danke Danke Danke!

Bild in groß öffnen

Hallo,

bei meiner Excel Tabelle rufe ich mittels meinem Command Button 1 die UserForm1 auf.

Dabei habe ich eine Comobox und Textfelder 1-4 welche ich auf meine Excel Tabelle eintragen muss.

Comobox = Spalte B
Textfeld 1 = Spalte C
Textfeld 2 = Spalte D
Textfeld 3 = Spalte E
Textfeld 4 = Spalte F

Zuletzt wird alles mittels einem Safe Button gespeichert, oder kann auch mit einem Quit Button abgebrochen werden.

Ich bin ziemlicher Anfänger was das VBA Programmieren angeht, kann mir jemand helfen?

Danke im Voraus

Hey,

also in einer Zeile befinden sind gesperrte Zellen und ungesperrte Zellen. Zudem ist auch dem gesamten Tabellenblatt ein Blattschutz.

Ich möchte gern den Nutzer des Blattes erlaube, dass dieser einfach eine Zeile löschen kann, ohne das die gesperrten sondern ausschließlich die ungesperrten Zellen gelöscht werden.

Soweit ich mich bereits eingelesen habe, kann man da was in VBA machen?!

Vielen Dank

Hi alle zusammen,

ich hab ne Frage im bezug auf ein Kontrollkästchen, das ich in einer excel Tabelle eingefügt habe. Duch klicken darauf wird ein Häkchen gesetzt bzw wieder entfernt.

Das Kästchen an sich funktioniert einwandfrei. Nun möchte ich durch drücken eines anderen Buttons das Kontrollkästchen aktivieren bzw. deaktivieren. Das klappt auch

    Sub nächsterSpieler_Klicken()

       Check_1 = False   

Nur der haken wird nicht entfernt bzw gesetzt. Also wert an sich ändert sich, aber nicht der Haken im Kontollkästchen.

Hallo,

ich muss in meinem Tabellenblatt2 in der Spalte F in Zeile n das aktuelle Datum einfügen, sobald ich in Spalte B, Zeile n etwas einfüge. Dabei sollten aber die vorherigen Einträge der Daten NICHT überschrieben werden.
Mein aktuelles Problem ist, dass das Datum bei jedem Öffnen in jeder Zeile aktualisiert wird.
Danke vorab

lg

Hallo,

wie bekomme ich das hin das ich wieder die Diagramme hinzufügen kann? bei mir ist jetzt das Feld ausgegraut.

Danke für Deine Hilfe

Gruß

Dennis

Gerne auch eine Lösung per VBA.

Hallo,

Ich habe in Excel in der Spalte E immer ein Datum im Format "tt.mm.jjjj". Anzahl der Zeilen ist variabel. Ich möchte ein Makro programmieren, welches mir die vergangenen Tage vom Datum bis heute ausrechnet und das Datum in der jeweiligen Zelle mit den berechneten Tagen überschreibt. Wenn größer 10, soll zudem rot markiert werden.

Kann mir jemand helfen? Hab das mit DateDiff probiert. Hat aber nicht hingehauen.

Danke !

Hallo Leute,

ich bekomme bei einer Web Abfrage in Excel die Fehlermeldung

"Das wird nicht funktionieren, weil dadurch Zellen in einer Tabelle in Ihrem Arbeitsblatt verschoben würden."

Klingt erstmal ganz logisch, aber wie behebe ich den Fehler?

Hallo zusammen,

ich hätte da folgendes Anliegen.

Ich versuche ein Makro ausführen, dass an einer bestimmten Stelle auf dem PC liegt und nur via Schnellzugriffsleiste eingebunden wurde. Da es allerdings so programmiert wurde, dass es immer nur für den aktuellen Tab (Arbeitsblatt) die Arbeiten ausführt, muss ich es jedes mal in jedem Arbeitsblatt neu ausführen, da aber in einer Arbeitsmappe gut und gerne auch mal 45 Arbeitsblätter gibt, ist das sehr mühselig, da es jedes mal 10sek oder mehr arbeitet und in der Zeit kann man nicht arbeiten.

Daher wäre es jetzt mein Ziel, ein zweites Makro zu programmieren, das dieses Makro ausführt, dann das Arbeitsblatt wechselt erneut ausführt usw. usf. bist zum letzten Arbeitsblatt.

Zum ermitteln des letzten Arbeitsblattes wollte ich unabhängig vom Namen des Arbeitsblattes diese über Worksheets(x).Select, bei welchen ich zuvor das letzte über ThisWorkbook.Worksheets().Count ermitteln.

Allerdings will das alles nicht so richtig funktionieren.

Kann mir einer helfen, wie ich dies bewerkstelligen könnte, es darf auf keinen Fall vom Namen abhängig sein, da diese pro Mappe anders sind.

Vielen Dank für die Hilfe im Voraus und die Ideen.

Hallo,

ich arbeite nun beruflich mit einen Barcodescanner und kann aufgrund des Vertikalen Fortschrittes nicht einfach durchscannen. Ich habe nun versucht mittels VBA eine Reihenfolge zu definieren. A1 B1 A2 B2 A3 B3 USW.

leider hab ich mir anscheinend zu glatt angestellt.

If Target.Cells.Address = "$B$1" Then Range("A2").Select
If Target.Cells.Address = "$B$2" Then Range("A3").Select

so versuchte ich es. Kennt jemand einen Besseren weg bzw einen der mich zumindest an mein Ziel bringt?

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe