Anzeige

Anzeige

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Nächster Thread

Vorwärts blättern

Anzeige

Inhaltsverzeichnis

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

Forumthread: Auswahl Zellen...=Danke;besonders an "Luschi"
1 Beitrag zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

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

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

10.04.2006 12:39:36

KW

Hallo,
möchte mich herzlichst bei allen für die Hilfe bedanken.
Ihr habt euch hoffentlich nicht zu sehr darüber die Köpfe "zerbrochen". :-))
Mein besonderer Dank gilt vor allem "Luschi" für die super Lösung.
Nochmals besten Dank.
Grüsse aus Franken, Klaus

Anzeige

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

geschlossen

10.04.2006 12:47:36

erledigt

Anzeige

geschlossen

10.04.2006 12:47:36

erledigt

Anzeige

Forumthreads zu verwandten Themen

1 Klick in Excel = Serienbrief (Word)

Hallo zusammen,
ich habe da mal wieder ein kleines Problem!
Ich habe eine Exceltabelle mit Kundendaten. Diese muss ich in Einzelfällen anschreiben! Ich habe einen Worddokument, in dass ein paar Daten von einem Kunden eingetragen werden sollen.
Nun meine frage:
Gibt es eine Mögl...

03.09.2008 15:09:49

Thread-ID: 1007086

"Wenn Zeit > 17.30 Uhr dann"

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne

15.09.2008 01:24:58

Thread-ID: 1009640

Kann =mid(A1,1,1) nicht mit SVERWEIS verbinden

Hallo liebe Excelexperten,
mein Problem:
14000 ich mache daraus eine 1. Mit der Formel =(A1,1,1)
Diese 1 steht nun in B1. Jetzt moechte ich mich darauf beziehen und eine IF/THEN Formel einbauen. Excel macht das aber nicht. Nur wenn ich in B1 die 1 MANEULL reinschreibe, greift meine...

07.11.2008 19:46:00

Thread-ID: 1022785

VBA Code: wenn B1 <> blank, dann I in A1 schreiben

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis

18.11.2008 17:27:16

Thread-ID: 1025694

select range if cellvalue =1

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder w...

04.03.2009 12:16:37

Thread-ID: 1056258

ActiveSheet.CircleInvalid = null dann makro

hallo zusammen,
ich habe folgendes problem.
ich habe ein excel sheet mit mehren datenüberprüfungen versehen. Also z.B. in einer Spalte darf nur Datum grösser heute eingegeben werden, in einer anderen darf die maximale Textlänge 5 Zeichen nicht übertragen usw.
Das funktioniert auch g...

07.03.2009 18:23:28

Thread-ID: 1057716

select range if cellvalue =1

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder we...

09.03.2009 16:47:00

Thread-ID: 1058202

Sortierung mit Kopfzeie trotz "Header:=x1Guess"

Hallo Leutz,
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _

09.04.2009 14:57:22

Thread-ID: 1067975

wenn Änderung Zellinhalt dann Macro

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...

07.05.2009 16:02:59

Thread-ID: 1073604

Wert aus Zelle x in Zelle y, wenn Zelle Y =1

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...

08.05.2009 13:11:52

Thread-ID: 1073830

Weitere verwandte Threads

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

Danke =Peter .... siehe: Option Explicit

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?

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  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

Anzeige

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Anzeige

Anzeige

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum