Danke =Peter .... siehe: Option Explicit

Wenn "Test" in I19:I23 dann Wert kopieren

Spalte A durchsucht klein 100 dann spalte b summe

1000 Dank an Herby

Ermittlung für For iCounter = 1 to x

Kommentar erstellen, wenn Zelle größer = 1

x1 = .CreateEventProc("Change", "Worksheet&qu

OptionButton7 aktiv dann Text X in Listbox1

Find(what:=ungleich cells(1,6))

Wenn und wenn dann vom 1.11. DANKE FÜR DIE HILFE

Wenn Spalte B dan Makro1

Cells(Rows.Count, NewFilSpa + 7).End(xlUp) = 100

Wenn o dann Text in A1 rot

wenn a1 leer, dann ganze zeile löschen

Wenn "Ja" dann zähle +1

Range in Array füllen, Problem bei Cells.Count = 1

Wenn in D3 = X, Dann Text aus C3 -VBA

wenn(isfehler=wahr;dann;sonst in vba

Zellenvergleich = 1:1 dann kopiere Nachbarzelle

Wert Zelle1 kopieren wenn Zelle2=1

Textbox1 = Textbox 2 und vice versa

String "F15" For i = 1 to 20 bis "F34" h

wenn in textbox1 der wert zwischen 1 u 35 dann rot

Spaltenbreite = AutoFit * 1.2 ??

Listbox.Listindex = x , Dann diesen Eintrag...

Code Hilfe - wenn T2=V2 dann....

Formel um aus 40391 = 01.08.2010 umwandeln

Namen mit =Tabelle1!#BEZUG! löschen

Wenn Text in Spalte A = "TT" dann kopiere werte

Hyperlink mit VBA = Laufzeitfehler 1004

Formatierung .IndentLevel = 1 im Code einfügen

100 - 110 = 0 ohne wenn aber mit excel

AB kopieren und dann um 1 höher umbenennen?

Text aus Tab1"A1" = Text in Tab2"B"

Application.Goto Reference:="Z1S1"

Range("A1:C1") = ColorIndex = 38

Beep wen A24 = 1

Wenn Combobox1 click, dann Combobox 2&3 leeren

Wenn A7=B5 dann kopiere Bereich und füge ein

Summenbildung 4 = 100, 3 = 66

Wenn Zelle G5=1 dann Formel aus Zelle M2....

Syntax unklar: =verweis([zahl];1/(...)/(...);...)

Fragen zu =MIN(10;REST(B4-A4:A4;1))

Wenn Wert in A1 vorkommt, dann in Zelle C7

Diagramm Achsenskalierung >=1?

Wenn Inhalt nicht = dann sound ?

Wenn Zelle = X dann Ausrichtung Spalte...

Zelle über .Cells(nZelle.Row, i) = 1 anwählen

VBA2010 wenn dateiname dann makro

Range("A1") = Date ... Bibilothek notwendig?

Wenn Zelle = 0-dann Bereich sperren

bestimmte Tabelleblätter drucken, wenn B1=100

Listenfeld wenn A1 dann B2

Zeilen ausblenden wenn Wert in Zelle <=-10

If Range("A1") = Format("hh:mm") Then

ALT F11 - dann alle Fenster maximal

Marko starten wenn Heute>= 15.02.2014

Excel 2010 Bedingte Formatierung WennDAnn Funktion

wenn Blattname = String, dann löschen

1,2,3 - letzte Chance, dann ist es vorbei...

Wenn Zelle in Spalte 1 dann inhalt entfernen

Wenn gedruckt, dann i+1

Workbooks.Open(,Format:=1 and 3)Möglich?

Wenn Wert1 oder Wert2 dann - als Matrix

Makro von Excel 2007 => 2013

184 Flaggen - Danke ans Forum

Wenn Zelle = C1, dann andere Zelle = D1

FormulaR1C1Local = "=Summe(Z(-Anzahl) geht nicht

.FillDown dann Value2=Value2 dann nächste Spalte

VBA: Markieren >=1

Wenn nur 1 X in der Spalte dann zälle färben

Inputbox berenzen (<=100)

=WENN(A1;1;"") =--(A1<>0)

range und Global = fehler 1004

Aufruf einer function in excel mit =modul.1.name

Formulalocal Ergebnis= Fehler 1004

Matrix-Formel in FormulaR1C1 umwandeln

VBA: String == führt zu Fehler 1004

Blatt anlegen - wenn Name doppelt dann Blattname_1

OLEObjects(1).Verb => leeres Excel-Fenster

Excel Wenn, dann x 100

5 Zellen 1, dann 5 Zellen 2, dann 5 Zellen 3 usw.

Excel 2010 Wenn-Dann

wenn in Zeile 1 x dann bestimmte Spalten kopieren

ListBox1.List = "Mehrere Range"

"Range("A1").Size" = DIN A4

.ListBox3.Column(10, i) = Cells(lng, 10).Value

10 Datensätze dann wieder runter und wieder 10

Wenn Anzahl User in freigegebener Mappe >1 dann...

Urlaubsplan 2018 Dankeschön

Textbox * konstante = Label1 sofortige ausgabe

einfachste Anweisung geht nicht?: =Blatt1!E6

Excel2010 - Abfrage über Scroll Down Wenn Dann ode

Excel 2013 - wenn Inhalt Zelle X dann bestimmte Ze

Wenn Zelle= dann Bereich beschreiben

Pivot berechnetes Feld =Teil(a1;4;7)

Wenn Wert = 1 dann Zelle in selbe Spalte kopieren

If Label1.Caption = verschiedene Einträge

Formel in Zelle => Laufzeitfehler '1004'

wenn zelle=heute dann bedingt formatieren

CenterHeader = Range("B151") - Dynamisch?

Button 10 mal aktualisieren dann nächstes Blatt

Archiveintrag 1635901, Danke an Franz und Niclaus!

Werte in Zellen löschen,wenn diese =1

Schleife: Hyperlink öffnen wenn Zeilenwert=1

Wenn nach 1 keine 2 kommt dann löschen

Wenn 13 in Zelle dann (vba)

Wenn ein Wert aus Zelle B19:O19 < 10 dann

Wenn Zellwert > 1 dann MsgBox mit Adresse

Fehler nach Umzug von Vista => Win10

VBA: Cells (X,1) Change, dann Cells (X,2) Clear

Zellvergleich Wenn/Dann bei 12 oder mehr Zellen

for schleife - wenn zeile leer, dann 0.0001

MSG-Box außer wenn Wert=1

Öffnen von Workbooks, danach Rückkehr zum Ereignis

Makro Start per Steuerelement ==> Fehler 1004

Monat 01 => Jan

Wenn B2="+" dann...

Cancel = 1

wenn ein Wert >150 aber <200 dann rechne +1

wenn ein Wert >150 aber <200 dann rechne +1

in Zelle B1 =A1 (adresse anders eingeben)

Zelle A1 = Name des Sheets (Makro

Bei A1=x auf SpalteA1+x zugreifen

vba - if Breite nicht gleich 18mm, dann lösche ...

Wenn Zelle = Farbe dann Zelle = Wert

Cells.Replace What:=ZELLINHALT A1, Replacement:=B1

=SUMME((WENN(($H$2:$H$1001)=$A2;($I$2:$I$1001);"")

InserLines => Fehler 1004

Zuerst 1.Makro dann 2.Makro

Zuerst 1.Makro dann 2.Makro

Wenn datum = 31.6. dann wert von a3 einfügen

wenn in Spalte 1A dann in Spalte 1B -Auswahl

Wenn Monat = 1, dann...

Blatt umbenennen ; Text = Zelle "A1"

LINKS(Text;Anzahl_Zeichen)=A1

Probleme mit wenn + wenn = dann .... : ....

Zuordnung 8-14 Stunden = 6€, 14-24 Stunden = 12€

Wenn C1:C3 > B12 dann Zahl gelb färben

Wenn(a1=1;"bestimmte Zeilen ausblenden")

OptionButton = True dann Cursor in TextBox

Leilen nacheinander füllen ohne Leerzeilen (z=z+1)

Wenn Endsumme im Minus dann Betrag = 1

Wenn Aktivesblatt = ... dann

wenn enter bei textbox 1 dann datum in textbox 6

=WENN(UND(B3>=$AB$2;B3<=$AC$2);D3;$N$1) ??

ActiveCell.FormulaR1C1 = "=IF(ISBLANK(R[1]C[-1]),

Unterschied Application.FindFile <=> Öffnen-Dial

20 Einträge in einer Zeile dann nächste Zeile(11x

In VBA: A1:G7 = 1 bis 49

Formel: wenn(rang=bereits vorhanden; +1)

zellen hintergrund ändern bei = wenn x >a dann sum

Wenn zählenwenn=1; MsgBox + Druck oder Link

gibt es die möglichkeit von =text(A1;"rechtsb&#25

zwei Zellen vergleichen, dann zwei ändern bei Änd

Syntax: Workbooks.Open FileName:=(A1) ??

Zeilenumbruch wenn wert=1

string1 = ActiveCell.Hyperlinks.Item(1).Address

FOR-Anweisung kombinieren i=1 To 20 AND i=22 To 30

Summe der Zeilen c=c+10

Zeilen ausblenden, wenn Zelle =1

Zeilen ausblenden, wenn Zellen =1

Excel-Fomel in VBA ...WENN($B$1="mit";"105&

wenn zelle leer, dann spalte x auf x-1 kopieren

Wenn in Zelle B1 "NO", dann in B2..B8 "NO&qu

wenn zelle im fettdruck, dann addiere +1 ???

Range("A1").Value = 100 oder Range("A1&quo

Suche Formel für B [wenn(Ai=Dj)dann (Bi=Ej) )

A2<>"",dann I2=1 usw per VBA???

=wenn(und(A1:A100="1";B1:B100="2");kumu

Wenn 1.bis 3.gr. Wert dann....

Suchen und ersetzen bzw. 1-5 =1

fogendes soll dargestellt werden, 10*5*2 =100, wie

wenn b1=2004 a1 zu c1 addieren...

Doppelklick => Range("A1") = 1

Datum: 03.11.2003 in text: 200311 umwandeln

Wenn 1 dann Zellen in gleicher Zeile löschen

Suche Hilfe bei: TableName:="Pivot-Tabelle1"

Label1 = Format(Sheets("Extras").Range("O32&q

Wenn Wert einer Spalte =, dann Wert eines Feldes s

wenn bestimmte zelle = 0 dann lösche ganze Zeile

if textbox12 / 155 keine ganze Zahl dann...

Wieso Formatierung bei 1,5 = 150,0

If TextBox1.Value = "xy" Then Set ComboBox3.Value

If x=0 Then set x=1

For iCounter = 1 To 41 usw.....

=WENN(FEHLER.TYP(K1)=2;"";K1)...

Hinter "=$Tabelle1.E12" noch einen Text platzieren

Diagramm: 2 gestapelte + 1 daneben

Wenn DAtum >=01.10.04 und <=31.10.04 dann +Wert

Wenn A1=1 > Dann Schaltfläche 1 anzeigen, sonst ni

12/22/2004 in 22.12.2004 umwandeln

String "a1" einfach in "$a$1" umwandeln?

Wert in mehreren Zellen zählen = 1

Wenn A1="5", dann Objektanzeige

wenn(1=1;Spalten färben;nichts)

BlockInput = True und dann Laufzeitfehler

Suche Wert1 und Wert2 dann zeige Inhalt xy

1-0 Tabelle | Wert vorhanden dann 1, sonst 0

if CheckBox1 = Checked then ????

if CheckBox1 = True then ??????

Multipage1.Value = x klappt nicht ganz

Feld schaltet v 0 auf 1, dann wird die KW eingetr

Wenn XY= 1 dann GRAFIK einfügen???

.Shapes(1).Width = .Range("IV1").Left = 76,5??

Wenn aktive Zelle B1, dann Datei schließen

Summe aus F1:Fx wenn B1:Bx = A1

Zellenwert A1 = Dateiname des PDF's

Abfrage : wenn zellen-farbe = 40 dann ...

WennKriterium 1,2,3 Dann Zellenfarbe rot, grün...

ein DANKE SCHÖN :-)

wenn 1 dann Summe

Datei1 = Dir() und dann Datei öffnen geht nicht

Variable1 = V1 & v2 & v3 geht nicht, warum?

erst Button 1 dann 2

3xZeilen = 1xFilterkriterium in Autofilter

Klick auf Zelle bringt App.Caller="Schaltfläche 1&

wenn ComboBox1, dann AddItem ComboBox2

For intZ = 0 To intZ - 1 und intZ läuft hoch?

Wenn RegA Spalte D = x dann ganze Zeile RegB

zählenwenn=1

Wenn Zeile = leer oder Schrift = weiß, dann ausble

Wenn Eintrag in Textbox dann Eintrag in Tabelle1

12.06.06-24.07.06=wieviel Tage ohen WE?

Wenn einer von 2 Werten >=1 Dann...

2 functions+1code=1code aber wie?

Auswahl Zellen...=Danke;besonders an "Luschi"

Sheets.Name = Sheets.Range("A1")

Eingabe von =4/3 wird in 1.333333 umgewandelt

Hyperlinks und Range = Laufzeitfehler 1004

=summe((Code(von:bis)=120)*1) geht nicht

Formelinhalt von: =ZEILE(E150)- Dummywert

ComboBox.Listindex = -1

Wenn 53 dann 1

Änderung in Bereich, dann Makro

=WENN(UND(H44<=60);"";" ÄLTER 5 ....

Wenn Userform1 aktiv dann ...

Macro1 erst beenden dann Macro2

textbox1 inhalt dann übertrag nur inhalt

Stunden berchnen - >8H = 6€ >14h =12

Wenn L11 das Ergebnis Januar, dann in $F$113 Ergeb

Wenn &#150; Dann Frage. In S76 steht K dann in E76 8:00

sheetname variabel - Zelle A1 ='15028'!B11

Wieso ist -Not(FALSCH) * 10 = 1 ?

Bereich(a1:A10) leer dann Zeile löschen

Wenn Frame1=leer Druck verweigern

"Cancel = True" geht nicht unter Excel 11?!?

MsgBox nur bei Hyperlink Font.ColorIndex = 17 ?

lösche Zeilen mit kleiner als =HEUTE()-1

String in 1. und letzter Tag im Monat umwandeln

VBA-Wenn A1 aktiviert, dann Zeilen einblenden

.FindControl(ID:=300011).Enabled = FALSE

wieRelativeAdresseBei .FormulaR1C1 = "=Countif(..

Shapes(1).width=0 entspricht nicht unsichtbar?

Wenn 1 in Reihe dann verstecken, bei 0 zeigen

=WENN(TAG(A2)=TAG(A1);C1+1;1) erzeugt Fehler

Wenn H3 = "A", dann reduziere D13 um D3, etc.

1=anwesend, 2=abwesend, 3=unentschuldigt

wenn(a1>1;j3=a1;"")

wenn zelle A = jan ,dann zelle B = 1

30193-1 in 030193-01 umwandeln

Zelländerung = Änderung Registername

=WENN(Dat!B68=0;Dat!F14;Dat!B68)

wenn z.B. Zahl 12 dann grün (Bedingte Formatierung

wenn z.B. Zahl 12 dann grün (Bedingte Formatierung

Wenn Zahl 1 in Zelle steht, dann....

UF Textbox wenn 11 Stellen dann

B2/B1 und dann B4/B3 "runterziehbar"

Wenn in Zeile2 "1" dann in anderer Zeile zählen wi

Tabelle1 nach Zeichenkette durchsuchen, wenn vorhanden, dann

wenn zahl rot, dann Zellwert 1, sonst 0

Wenn Spalte B "Text1" dann Spalte C "Text2&qu

Werte aus zwei Zeile addieren, danach 1 Zeile löschen

wenn Text dann 1 wenn 1 dann 0

Umwandeln Zahl (0,001) in 1:1000

wenn größer 12, dann 1

Wenn Sverweis =Sverweis Dann

VBA Zahl 3 in Array 0,0,1,0 umwandeln

Daten in Zelle D1 dann Zelle x löschen

TB1!A1 gehe dann 11 Spalten nach rechts und nimm diesen Wert

Hilfe: Wenn Datum = Heute, Dann..

1. Buchstabe aus Formel nach = zeigen

Wenn B2=B1 dann C2=C1 (VBA)

Wenn Courser auf A10 dann...

Wenn Inhalt = Dann grüne Schrift

Text prüfen dann Zähler +1

Formel (Monat + X = 12)

Formel rechnet 100+1=1

Formel in R1S1 umwandeln