Visual Basic: Bereich von Zellen prüfen mit Ausgabe?

Hallo liebe Community,

Ich will mit VBA EInen bereich von Zellen prüfen, ob daten enthalten sind. Dann soll, wenn eine Zelle gefunden wurde, rechts daneben einen wert ausgeben und 3 andere zellen löschen zb:

a1-a20 prüfen. in a5 ist gefüllt, in b5 soll "Erledigt" stehen, und c5, e5 und h5 soll gelöscht werden.

Kann mir da jemand helfen?

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

28.08.2018, 15:02

Auf die Schnelle:

Sub Pruefen()
Dim Zelle As Range
For Each Zelle In Range("A1:A20")
  If Not IsEmpty(Zelle) Then
    Zelle.Offset(0, 1) = "Erledigt"
    Zelle.Offset(0, 2).ClearContents
    Zelle.Offset(0, 4).ClearContents
    Zelle.Offset(0, 7).ClearContents
  End If
Next Zelle
End Sub

Teste mal genau, habe jetzt leider keine Zeit mehr.

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

iInjection

Fragesteller

28.08.2018, 15:16

er mag aus welchen gründen auch immer

.ClearContents

nicht...

HarryHirsch4711

28.08.2018, 15:27

@iInjection

Dann würde es mit

    Zelle.Offset(0, 2)=""
    Zelle.Offset(0, 4)=""
    Zelle.Offset(0, 7)=""

probieren

IchMalWiederXY

28.08.2018, 17:41

@iInjection

Versuche mal:
.DeleteContent oder .DeleteContents

Oubyi, UserMod Light

29.08.2018, 01:17

@iInjection

Da musst Du schon genauer beschreiben, wie sich das äußert.
Welche Fehlermeldung?
Hast Du den Code 1:1 übernommen?
Excel Version müsste eigentlich egal sein, das ist ein "Allerweltsbefehl".
Bei mir läuft das.
Klappt den das "Erledigt"?

Oubyi, UserMod Light

30.08.2018, 13:42

@Oubyi, UserMod Light

Danke fürs ☆
☼

Hi, wie kann ich in VBA prüfen, ob eine Zelle ein Listobject ist oder nicht? Danke für die Antworten schon im Voraus!

...zur Frage

Excel/VBA (Visual Basic): Prüfen ob Zelle leer ist?

Hi,

Ich möchte prüfen ob beispielsweise "Cell(x,y)" leer ist. Strings die nur aus Leerzeichen sollen auch als leer gelten. Wie mache ich sowas?

lg HiFriend :)

...zur Frage

Excel wenn B5="1" dann A1 Zelle verwenden, wenn B1"2" dann A2 verwenden?

Hallo,

irgendwie klappt das nicht :)

Ich möchte in der Zelle C5 den Wert nutzen der auf einem anderem Blatt steht abhängig des Inhalts der Zelle B5.

Also wenn die Zelle B5 eine "1" enthält soll in C5 der wert stehen der auf der anderen Seite in Zelle F6 steht.

wenn in B5 eine "2" steht, soll in C5 der wert stehen der auf der anderen Seite in Zelle F7 steht

wenn in B5 eine "3" steht, soll in C5 der wert stehen der auf der anderen Seite in Zelle F8 steht.

alles was ich bisher versucht habe klappt irgendwie nicht...

Danke für Hilfe

...zur Frage

Ecxel Formel- Wenn Zelle leer dann Leer lassen?

Hallo Leute

Ich habe die perfekte Formel:

=WENN(C5>E5;"1";WENN(C5=E5;"0.5";WENN(C5<E5;"0")))+WENN(C6>E6;"1";WENN(C6=E6;"0.5";WENN(C6<E6;"0";"")))

Nun ist es so, wenn die Felder leer sind zeigt er mir immer als Resultat 1 an (Anstatt nichts) Die Formel geht davon aus das "gleichstand in beiden Runden herrscht"

Wie muss ich also diese Formel ergänzen damit KEINE Zahl zusammen gerechnet wird wenn Nicht s in der Zellen vorhanden ist?

Siehe die Rote Zelle welche "leer" sein müsste

Vielen Dank

...zur Frage

Zellen Eingabe sperren VBA?

Hallo zusammen,

ich habe hier eine Liste den Bereich Bestand Kg und Vorlauf Kg möchte ich sperren, weil dort Formeln hinterlegt sind, leider schaffen es immer wieder Leute diese Zelle zu überschreiben und die Formel ist dann weg.

Gibt es ein Sub was dieses Problem für mich löst?

...zur Frage

Excel/VBA: Wert aus Zelle kopieren?

Moin, Ich habe in Zelle A3 eine Formel hinterlegt.

in Zelle A5 soll nun der Wert ausgegeben werden FEST (also einmalig, nicht, dass sich A5 ändert, wenn sich A3 ändert, dann ware es ja einfach =A3...)
Jemand eine Idee? Auch gerne VBA.

...zur Frage

VBA: Datum aus Zelle lesen?

Hallo, ich habe eine große Excel Tabelle und muss nun das Datum aus einer Zelle lesen, um es in eine andere zu schreiben. In der Zelle steht beispielsweise "neu ab 07.05.16". Jetzt muss ich aus dieser Zelle das "07.05.16" lesen und in eine andere schreiben. Die Zellen haben immer dasselbe Format: Neu ab 'Datum'. Kann mir hier jemand helfen? Das ganze soll mit VBA gemacht werden.

...zur Frage

Excel VBA Aktive Zelle mit Doppelklick in Zwischenablage?

Hallo ihr,

ich habe ein Problem mit einer Excel Anwendung, die ich machen möchte.

Ich habe einige Zellen in Excel, die jeweils einige Nummern oder Kennzeichnungen enthalten.

Für verschiedene Fälle muss ich einige dieser Nummern in eine Liste herausschreiben.

Ich möchte gerne, dass wenn ich auf eine Zelle Klicke oder Doppelklicke, dass sich der Inhalt dieser Aktiven Zelle in die Zwischenablage kopiert. Im Besten Fall fügt sich die Zwischenablage dann untereinander in einem Excel Blatt wieder ein, sodass ich nacheinander die verschiedenen Zellen anklicken kann und meine Liste so zusammenstellen kann.

Habe in VBA schon versucht, sowas zu realisieren, aber bis jetzt hat das nicht so funktioniert.

Ich hoffe, jemand kann mir weiterhelfen.

Vielen Dank!

...zur Frage

Excel VBA, wenn Zelle eine bestimme Farbe hat, dann soll in diese Zelle ein Text.?

Moin ich komm mal direkt zum Punkt.

Ich mach grade eine Zeiterfassung. Wenn an einem Tag Wochenende ist, dann werden Zellen Orange hinterlegt. Aber damit die Zellen nicht nur in Oranger Farbe vorhanden sind, soll auch gleichzeitig in eine Zelle "Wochenen." geschrieben werden, wenn der Fall eintritt, dass die Zelle Orange hinterlegt ist. Ich bin relativ neu in VBA und muss leider eure Hilfe in Anspruch nehmen :P
Hier noch ein Bild:

Dazu kommt, dass dieses Makro dauerhaft laufen muss. Man soll nicht immer auf einen Knopf drücken müssen, damit das geht. Hoffe, dass eine Automatisiserung überhaupt möglich ist :/

Im Grunde genommen soll dieses Makro dauerhaft den gelben Bereich überwachen und in jede Zelle "Wochenen." reinschreiben, sobald sie Orange wird. Wenn die Zelle dann wieder Weis ist, dann soll der Text wieder rausgelöscht werden.

...zur Frage

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

...zur Frage

Wie prüfe ich mit VBA, ob die Schriftfarbe einer Zelle (in Excel) rot ist?

Hallo, wie oben schon beschrieben. Ich versuche mich zur Zeit an VBA und möchte nun eine Funktion, die prüft, ob die Schriftfarbe eines Textes in einer Zelle rot ist. Gibt es hier eine passende Funktion? Falls das jemand weiß, noch eine weitere Frage: Dasselbe wie oben, nur möchte ich auch noch prüfen, ob der Text in einer Zelle durchgestrichen ist. Gibt es hierzu etwas passendes?

...zur Frage

Wie kann man zwei Variablen in einer For-Schleife hochzählen lassen (in VBA ) ?

Ich möchte mithilfe von VBA eine bedingte Formatierung (Hintergrundfarbe) von einzelnen Zellen(jede zweite im Bereich von 2 - 34) innerhalb einer Spalte durchführen. Ist der Wert der entsprechenden Spalte gleich des Wertes in der Zelle links daneben (B), soll die Zelle einen grünen Hintergrund bekommen, ansonsten gelb. Die Spaltenbezeichnungen wollte ich mithilfe einer For-Schleife hochzählen lassen. Wie kann ich dies möglichst einfach realisieren?

Ich bin gerade dabei VBA zu erlernen und dementsprechend noch unerfahren.

...zur Frage

Excel Kontrollkästchen (checkbox) in VBA ohne zellenzuweisung?

Ist es in Excel möglich mit Visual Basic (Makro) den wert einer Checkbox abzurufen ohne diese mit einer Zelle zu verlinken? zB. Über den Namen der Checkbox welcher ja einzigartig sein muss? Ich habe den Namen in dem Feld oben links umbenannt, er beinhaltet Bindestrich, das scheint VBA auch nicht zu gefallen, gibt's da ne Lösung? Es sollte eine If Then Funktion sein «If RM-CKB1 = True Then..... » Vielen Dank im Voraus

...zur Frage

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

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

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen