VBA – die besten Beiträge

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

Hallo Community,

hab da mal wieder ein Problemchen... Ich habe eine Liste, über die ich jeden Morgen ein Makro laufen lassen muss. Nun ist es so, dass ich im Moment händisch nach drei Kunden filtere und bei diesen Kunden einen Termin löschen muss, da dass ERP-System hier einen Termin generiert, der falsch ist. Nun möchte ich bei diesen Kunden / in den gefilterten Zellen den Zelleninhalt (KW) ebenfalls über das Makro löschen. Meine ersten Versuche haben halbwegs hingehauen, allerdings wurden nicht nur die gefilterten Inhalte, sondern alle Inhalte in der Range gelöscht. Der nächste Versuch hat dazu geführt, dass die Zellinhalte noch da waren, aber die Überschriften gelöscht wurden ... Nun habe ich alles wieder auf Anfang gesetzt :-(

Brauche Hilfe ... Danke im Voraus.

Hallo das Problem steht oben und zwar am Anfang wird man nach USER ID und Kennwort gefragt die sollten laut theorie in den Beiden Lokalen variablen gespeichert werden sollang die Access andwendung offen ist. Aber wenn die Funktion die die Werte in dei Variablen schreibt Beendet ist werden die beiden wieder Geleert.

Danke im Varraus

ToHan0510

Hallo,

eine Frage an die Excel / VBA Spezialisten.:

Wenn ich in Excel einen Befehl per Makro ausführe, dann wird dabei die "Undo" Liste gelöscht; d.h. ich kann mit STRG+Z bzw. dem Pfeil das Makro nicht rückgängig machen.

Kennt Ihr eine Möglichkeit?

Danke Grüße PtC

Hallo zusammen

Ich möchte gerne einen Schachcomputer herstellen und zwar im Excel. Im Excel habe ich zwar schon viel Ahnung und von VBA nur ein bisschen. Erstens ist es möglich einen sehr starken aber auch schwach einstellbaren schachcomputer zu programmieren? Und wie soll ich anfangen?

Ich ermittle die aktuelle Farbe einer Zelle mit der Funtion Interier.ColorIndex. Dummerweise kommen beim gleichen Programm bei manchen Farben unterschiedliche Werte auf zwei Systemen zurück und deshalb macht mein eigentliches Programm nicht genau das was ich erwarte. Das eine System ist Windows 7 mit Excel 2002 und das andere Windows XP mit Excel 2010.

Ich habe eine kleine Testroutine geschrieben:

Private Sub BTestFarben_Click()
  Dim myRow As Integer

  ' Ermittelt die Farben der Zellen
  myRow = 4
  Do
    Cells(myRow, 10) = Cells(myRow, 9).Interior.ColorIndex
    myRow = myRow + 1
    If myRow > 20 Then Exit Do
  Loop
End Sub

Warum ist das so und wie könnte man das Problem lösen?

Hallo alle zusammen,

ich hab ein kleines Problem mit einem Makro, welches ich mir mit Hilfe diverser Quellen versucht habe auf meinen Fall zusammenzuschustern. Folgendermaßen kann man sich die Grundsituation vorstellen:

Ich habe in den Spalten D Und E ca 70 Zeilen mit Einträgen. Bis auf die Zellen 11 - 14 Ist die Spalte E leer. Also wollte ich ein Makro benutzen, welches die Spalte D wenn D und/oder E leer sind mit E zusammenfasst und sonst nicht.

Das soll dann auch für die Spalten F,G und H,I und immer soweiter klappen. Wer könnte mir Helfen und zeigen wo mein Fehler liegt denn bisher funktioniert das Makro nicht ganz so wie ich mir das vorgestellt habe.

Sub Formatierung()

Dim Zeile As Integer Dim Spalte As Integer

For Spalte = 4 To 256 Step 2
For Zeile = 1 To 100

If ((Not (IsEmpty(Cells(Spalte, Zeile)))) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True) Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

If IsEmpty(Cells(Spalte, Zeile)) = True And IsEmpty(Cells(Spalte + 1, Zeile)) = True Then
Range(Cells(Zeile, Spalte), Cells(Zeile, Spalte + 1)).Merge
End If

Next Zeile

Next Spalte

End Sub

So sieht das bisher aus. Für jede Hilfe vorab schonmal besten Dank

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

Hallo Wie kann ich mit VBA ein Eigenschaftsfeld automatisch im Word einfügen?

Gruss

Ich will wie oben gennant, zwei zellen addieren. Z.b. A7+A8. weiss aber nicht wie das geht?

Hallo, mich interessiert mal der Unterschied, die Vor-und Nachteile von den beiden Sprachen (Ich hoffe die heißen genau so^^)

Und würde gerne mal eure subjektiven Äußerungen dazu lesen. Danke =0

Hab schon gegooglet, aber da leider nichts Gutes gefunden. Evtl. hab ich die falschen Begriffe verwendet, also könntet ihr dann an Stelle von Googel doch einen Google-Link schreiben ;)

Es sieht so aus: Mein aktives Sheet ist das erste. Auf dem zweiten Sheet sind ein paar Kontrollkästchen, bei denen ich nun abfragen möchte, ob sie ein Tick haben oder nicht. Aus einem Forum habe ich folgendes herausgekriegt:

Sub machwas()
ActiveSheet.Shapes("Check Box 1").Select
If Selection.Value = xlOn Then
MsgBox "Häkchen gesetzt!"
Else
MsgBox "Häkchen nicht gesetzt!"
End If
End Sub

Das Ziel wäre, dass ich ActiveSheet durch einen Code ersetzen kann, der dann das zweite Sheet - es heisst Mitarbeiter - anspricht.

Ausprobiert habe ich ohne Erfolg:

• Sheets("Mitarbeiter").
• WorkSheets("Mitarbeiter").
• Workbooks("test.xls").Worksheets("Mitarbeiter").

Ich habe Spalten mit unterschiedlicher Länge: A geht bis Zeile 9 hat dann eine Leerzeile und dannvon 11 weiter bis 23, B geht bis 18, C bis 25.

Ich möchte aber immer die erste leere Zelle in A ermitteln, also im Beispiel die Zeile 10 Das geht natürlich mit einer For Next Schleife, aber es soll auch eine einfachere Formel dafür geben. Und ich brauche nur die Nummer der Zeile (Row)

Wenn ich bei mir in Excel 2007 die Tastenkombination Alt-Enter drücke zeigt er rechts immer den "Recherchieren"-Dialog an. In älteren Excel-Versionen macht er das nicht.
Wie kann man das verhindern?
Gibt es irgendwo einen Dialog wo man die Tastatur-Belegung ändern kann?

Hallo,

habe bisher nicht soviel Erfahrung mit VBA und bisher kam ich mit der Macroaufzeichnen funktion gut Zugange. Ich habe eine Tabelle die 271 Zeilen Umfasst, in Spalte C steht der Name und in Spalte D der Vorname. Nun soll man den Namen irgendwo eingeben können (Inputbox oder ähnliches) und dann nach dem Namen in Spalte C und D gesucht werden. Die gefundene Zeile soll gelöscht werden.

Kennt sich da jemand aus und kann mir helfen? Danke schon einmal

Siehe Hardcopy:

http://s14.directupload.net/file/d/2729/q7by9be7_jpg.htm

Wenn ich die Tabelle aufsteigend nach Spalte A sortiere steht das Ö vor dem S, was für mich bedeutet das S größer als Ö ist.
Wenn ich aber Excel VBA die beiden Zellinhalte vergleiche ist nun aber Ö größer als S ???

Damit meine Programme funktionieren sollte der Vergleich schon immer das gleiche Ergebnis zurückbringen. Was kann man tun?

eine frage an die excel experten hier:

ich habe eine Tabelle mit ca. 1000 Bestellnummern in der Spalte. Um diese abzugleichen, klicke ich auf Menü Bearbeiten -- Suchen -- gebe die entsprechende Nummer ein und er springt in die richtige Zelle. Dann markiere ich die Zelle mit Füllfarbe, damit ich weiss, dass die Zelle bereits gefunden worden ist. So weit so gut. Aber gibt es eine Möglichkeit, vielleicht ein VBA Script, mit dem die gesuchten Zellen automatisch farblich markiert werden? Das heisst: beispielsweise: Bestellnummer in A5 gefunbden grün markieren, dann 2. Bestellnummer in A10 gefunden und auch automatisch markieren. Die Zellen in diesem Fall a5 und a10 sollen auch nach der nächsten Suchanfrage markiert bleiben. Hat jemand dafür eine Lösung?

Moin,

ich hab folgendes Problem, und zwar möchte ich eine Makrofunktion erstellen mit der man den Zellinhalt einer markierten Zelle in eine andere frei wählbare Zelle kopieren kann. Bis jetzt sieht meine Funktion so aus:

Sub Makro()

Dim Quellbereich As Range Set Quellbereich = ActiveCell

Quellbereich.Copy Range("C1").Select Selection.PasteSpecial Paste:=x1Values, Operation:=x1None, SkipBlanks:= False, Transpose:=False Application.Cutcopymode = False Quellbereich.Select Quellbereich = "" Range("C1").Select

End Sub

Jetzt ist meine Frage, wie ich "Range("C1") auch über die Auswahl mit der Maus steuern kann. Ich stell mir das mit Pause/Wait und Input neue Zellenauswahl oder so vor. Evnt. auch das man das Makro wie bisher über Strg+y startet und anschließend die Quell und die Zielzelle nach einander markiert.

Würde gerne ein Drehfeld in Excel programmieren ich finde im Internet immer diese Codes.

Private Sub SpinButton1_SpinDown()
Range("A1") = Range("A1") - 0.1
End Sub

Private Sub SpinButton1_SpinUp()
Range("A1") = Range("A1") + 0.1
End Sub 

Aber wie gebe den Code ein? Wenn ich auf Code anzeigen kommt dann kommt etwas mit SpinButton_Change und es macht wohl wenig Sinn das dort einzugeben. Und einzeln kann ich die Felder nicht aussuchen.

Kann mir jemand helfen? Gruß

Hallo Leute,

ich sitze gerade vor einem Excel Problem: Ich habe eine Tabelle in dem die Zellen folgendermaßen formatiert sind: [h]:mm, da ich in Stunden und Minuten über 24 Stunden hinaus rechnen muss. Ich möchte nun eine Abfrage einbauen, wenn in K12 ein Wert steht, der größer als 10 Stunden ist dann soll in L12 die Differenz (also Wert - 10) stehen. Wenn der Wert nicht größer ist, dann soll (als Test) 150 ausgegeben werden. Das Problem ist nun, dass ich in der WENN Abfrage keine 10:00 Als Wert angeben kann! Also das geht nicht: =WENN(K12>10:00;K12-10:00;150) Kann mir da jemand behilflich sein?

Danke im voraus

Gruß BB