Datum

Titel

24.04.2024 04:37:43

Mit Word erstellte PDF als Anhang an E-Mail anhängen

24.04.2024 00:20:14

Bestimmte Spalten als xls exportieren per Makro

23.04.2024 22:08:10

Auflisten in Spalte VBA

23.04.2024 21:33:46

Nur farbige/nicht farbige Zellen markieren

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

1484to1488

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

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

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

If Target.Address vereinfachen

Forumthread: If Target.Address vereinfachen
2 Beiträge zu diesem Forumthread
Anzeige
84 Threads zu ähnlichen Themen
VBA Beispiele zu verwandten Themen

Top 100 Forumthreads

12.04.2016 16:53:52

Martin

Hi zusammen,
wie kann ich diese 4 Zeilen auf zwei reduzieren?
Ich hab in meinem Beispiel nämlich viel mehr Zellen die überprüft werden sollen und das gleiche _ machen sollen bzw soll eine Änderung in der gleichen Zelle mehrere Dinge machen.


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$18" Then Range("D22") = ""
If Target.Address = "$D$19" Then Range("D22") = ""
If Target.Address = "$D$37" Then Range("D48") = ""
If Target.Address = "$D$37" Then Range("D50") = ""
End Sub

Danke und lg
Martin

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: If Target.Address vereinfachen

12.04.2016 17:01:07

Daniel
Perfekt! Danke dir!

12.04.2016 17:21:51

Martin

AW: If Target.Address vereinfachen

12.04.2016 17:01:07

Daniel

Select Case Target.Address(0, 0)
Case "D18", "D19"
Range("D22").ClearContents
Case "D37"
Range("D48,D50").Clearcontents
case Else
End Select

Gruß Daniel

Perfekt! Danke dir!

12.04.2016 17:21:51

Martin

Sehr genial!
Danke dir Daniel!
lg
Martin

84 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.

Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...

13.08.2008 11:41:00

Thread-ID: 1001455

4 Beiträge

Worksheet_Change(ByVal Target As Range)

Axel

Ein schönes Wochenende zuvor wünschend!
Aufgabenstellung:
Ich möchte in einer Zelle einen Wert schreiben, was ein Makro auslösen soll. In einer Zweiten soll dadurch automatisch eine Umrechenformel einfügt werden. Auf diese Weise kann man (trivial, nur als Beispiel) bei der Bedienung ein...

06.03.2009 15:21:33

Thread-ID: 1057353

7 Beiträge

Worksheet_Change(ByVal Target As Range)

Axel

Hallo Könner,
mal wieder an einem Punkt angekommen, wo ich echt nicht weiß, ob die PCs was Magisches können.
Das Makro unten ist prima gelaufen. Und dann mal wieder nicht. Jetzt gerade mal wieder nicht, daher mein Hilferuf. Als mir das das erste Mal passiert ist, habe ich den ganze...

13.03.2009 12:08:19

Thread-ID: 1059821

5 Beiträge

If Target = Range("l9") Then

Karsten

Hallo...
Kann mir jemand den Befehl für die gesamte Spalte L umschreiben.
Besten Dank
Gruß
Karsten
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("l9") Then
Set rngBereich = Nothing
Set rng = Nothing
Application.Run "a"
End I...

25.07.2009 14:27:04

Thread-ID: 1091230

5 Beiträge

Range(Target.Address, Target ... umschreiben

Karsten

Hallo,
ich möchte u.s. Makro im Modul verwenden. Dabei stoppt er immer bei:
Range(Target.Address, Target.Offset(, -11)).Interior.ColorIndex = xlNone
Kann mir da jemand weiterhelfen?
Gruß
Karsten
Sub a() Dim X, farbe As Byte Select Case Target Case Is = "Montag" Range(Tar...

25.07.2009 17:48:32

Thread-ID: 1091282

5 Beiträge

If Target.Address = "$A$1" Then

Karsten

Hallo,
in folgendem Beispiel habe ich A1 und A2 verbunden.
Der Befehl:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Formatting").Visible = False

18.11.2009 08:57:17

Thread-ID: 1118184

7 Beiträge

Range Bezüge in VBA von fix auf relativ umstellen

fix

Hallo Herber Fans,
ich ermittle einen Range:
Set rgGPTMember_Source = Intersect(rgGPTMemberAugmentation.Rows(1).Find("GPT Member", LookIn:=xlValues, LookAt:=xlWhole).EntireColumn, rgGPTMemberAugmentation)
Dessen Adresse lautet dann: $G$5:$G$34
Dieser Range wird nun in eine Namen...

Gruß an alle,
ich habe immer noch eine Große bitte an Euch. Beim vorherigen Beitrag habe ich es wohl zu umständlich erklärt. Beim genanten Makro wird gefragt:
Falls in Zelle "$M$52" ein Wert steht,
dann soll dieser (später) zwischen spalte 72 To 78 eingefügt werden.
Falls in Ce...

24.02.2010 09:56:53

Thread-ID: 1140959

3 Beiträge

Alle verwandten Forumthreads anzeigen

Range(Target.Address, Target ... umschreiben

If Target.Address = "$A$1" Then

Range Bezüge in VBA von fix auf relativ umstellen

If Target.Address

VBA range definieren

If Target.Address ... aber nur wenn eine Zahl

VBA: Range eindimensionell an Funktion übergeben

Private Sub Worksheet_Change(ByVal Target As Range

VBA Formel in Range einfügen

Worksheet_Change(ByVal Target As Excel.Range)

Text in Range während Eingabe per VBA analysieren?

Private Sub Worksheet_Change(ByVal Target As Excel

2 x Private Sub Worksheet_Change(ByVal Target As R

Verketten von Zellen per VBA aber nicht in Range..

VBA Range definieren

In Sumif Formel Range aus VBA verwenden

VBA: Zeilen aus Range kopieren bei Übereinstimmung

VBA-Range in Formel verwenden

VBA Hyperlink einer Range/ einem Bild zuweisen

VBA: Variablen Range definieren

per VBA Range finden, die im cutcopy-mode ist

VBA Range Find Laufzeitfehler

VBA Gruppierung eingefügt - Subscript out of range

Cells in Range bei VBA

VBA Range um eine Spalte erweitern

VBA Activen Bereich für resize in Range wählen

Position in einer Range wiedergeben VBA

Worksheet_Change(ByVal target As Range)

VBA - Range Find mit 2 Variablen

Excel vba wenn änderun in range in spalte benuter eintragen

Worksheet_Change(ByVal Target As Range)

VBA-in Range suche, eigene Funktion

Range in VBA Funktion verschieben

Private Sub Worksheet_Change(ByVal target As Range

Per VBA definierte Range verschieben

Funktion über eine Range von Zellen (VBA)

ByVal Target As Range

SelectionChange(ByVal Target As Excel.Range)

VBA: Range.Replace-Methode in Excel 2007 und 2019

2 x Private Sub Worksheet_Change(ByVal Target As R

ByVal Target as Range??

Worksheet_Change(ByVal Target As Range)

If InStr(Target.Address, ":") > 0 Then Exit Sub

VBA Range eine Adresse zuweisen

Worksheet_SelectionChange(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target as range

Target as Range ???

Worksheet_Change(ByVal Zelle As Range)

Private Sub Worksheet_Change(ByVal Target As Range

Range / "Array" Input bei VBA-Functions

VBA: Array komplett in Range schreiben

SelectionChange(ByVal Target As Excel.Range)

Worksheet_Change(ByVal Target As Range)

Sub Worksheet_BeforeDoubleClick(ByVal Target As Ra

Ranges in VBA durchsuchen / Arrays durchsuchen

VBA Worksheet_SelectionChange(ByVal Target As Rang

Cells range variablen.... in VBA

ByVal Target as Range

Private Sub Worksheet_Change(ByVal Target As Range

auf eine range zugreifen in vba code

Worksheet_Change(ByVal Target As Range)

ByVal Target As Range

Range in VBA definieren?

aktualisieren mit (ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Excel

Change(ByVal Target as range

Private Sub Worksheet_Change(ByVal Target As Range

If ActiveCell = Range("A1") Then

VBA: ExcelRange to PowerPoint-Slide

VBA Suche nach Leerstring mit range.find

Zum WE: Ranges u.Arrays in Xl u.VBA

Worksheet_Change(ByVal Target As Excel.R

Sub Worksheet_Change(ByVal Target As ...

If Target.Address

XLookup in VBA mit definierter Range

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort in zelle dann

34081
bedingte formatierung excel farbe ändern wenn wert in anderer zelle

23512
excel zeichen bis komma

16681

Weitere Forumthreads anzeigen

excel am ende zeichen einfügen

16052

scrollen in excel funktioniert nicht

15741

excel kopieren ohne bezug

15343

excel wenn text enthält dann

14267

excel zelle automatisch ausfüllen, wenn andere zelle wert

12306

excel zelle abschneiden bis zeichen

11938

excel erste stelle löschen

11417

warum zeigt excel bei summe immer null?

10634

excel bedingte formatierung wenn andere zelle wert dann farbe

10521

zählen wenn mit oder

9511

links abschneiden excel

9498

excel text enthält wort

9480

excel formel wenn 0 dann leer

9079

excel makro in zelle schreiben

8864

excel zelle trennen nach dem ersten leerzeichen

8800

zählenwenn kleiner als datum

8428

excel nur einmal zählen

8178

excel wert aus zelle in andere übernehmen

8062

excel text ab zeichen ausgeben

7989

excel rechts ab zeichen ausgeben

7915

wenn größer und kleiner excel

7806

letzte zeile excel vba

7675

excel zeitstempel aus datum und uhrzeit

7521

excel spalten einblenden mit plus

7291

excel minuten in stunden formatieren

7167

excel spalten dynamisch ausblenden

7070

kreuz mauszeiger

7068

aus kalenderwoche monat ermitteln

6935

excel bedingte formatierung älter als heute

6521

summe wenn nicht leer

6515

power query spalten untereinander

6294

vba zellen leeren

6182

excel subtrahieren bis 0

6026

excel wenn dann funktion mit uhrzeit

6006

excel formel letzte 4 ziffern

5981

excel prüfen ob wert vorhanden

5920

excel formel enthält wort

5910

zwischen tabellenblättern springen excel

5872

excel runterziehen fortlaufend

5838

istleer excel

5829

excel datei ist zum bearbeiten durch mich gesperrt

5734

excel letzte ziffer entfernen

5705

was bedeutet $ in excel formel

5689

sverweis summe mehrere zeilen

5676

excel leere zellen mit oberen wert füllen

5582

excel nach text suchen

5539

excel zeit minuten addieren

5492

excel vba text suchen und zelle ausgeben

5379

excel zählen wenn zelle nicht leer

5341

summenprodukt mehrere spalten

5321

führende nullen in excel entfernen

5224

excel zelle färben wenn text in anderer zelle

5182

msgbox mit ja nein

5105

excel email adressen erkennen

5082

excel wenn #nv dann 0

5082

excel vba zelle farbe zuweisen

5053

excel wenn zelle farbig dann 1

5053

buchstaben in excel entfernen

4974

excel wert kopieren wenn bedingung erfüllt

4903

excel summewenns ungleich text

4847

excel text verketten anführungszeichen

4841

excel prüfen ob zeichenfolge enthalten

4789

excel datum + x monate

4769

summewenn mit datum

4754

vba projekt passwort vergessen

4727

excel suche von rechts

4710

excel vba if and or kombinieren

4679

balkendiagramm excel reihenfolge umkehren

4659

datum lässt sich nicht formatieren excel

4654

bild an zelle anpassen excel

4588

excel alles außer zahlen löschen

4564

excel zeichen von links entfernen

4556

excel formel text übernehmen

4516

excel makro text in zahl umwandeln

4508

zeilenumbruch vba code

4482

excel zählen wenn wort enthalten

4469

excel suchen in spalte

4452

excel vba worksheet exists

4430

vba makro unterbrechen

4411

=heute excel

4362

excel kopieren ohne bezug

4360

wie rundet man eine summe in excel?

4357

excel aktuelle uhrzeit anzeigen

4332

userform beenden

4327

prozente durchschnitt berechnen

4327

kalenderwoche excel in datum umwandeln

4324

excel zeile eines wertes ermitteln

4308

excel datum in formel als datum anzeigen

4300

excel vba zelle aus anderer tabelle auslesen

4285

excel [gruppe]

4260

excel gruppierung plus wird nicht angezeigt

4229

excel funktion

4199

zeilenumbruch excel vba

4182

excel dropdown leeres feld

4158

autofilter excel aktivieren

4142

excel drucker linien entfernen

4075

excel formel für aktuelles jahr

4025

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

Beliebteste Forumthreads (12 Monate)

Threadtitel

Lesezugriffe
excel wenn wort in zelle dann

34081
bedingte formatierung excel farbe ändern wenn wert in anderer zelle

23512
excel zeichen bis komma

16681

Weitere Forumthreads anzeigen

excel am ende zeichen einfügen

16052

scrollen in excel funktioniert nicht

15741

excel kopieren ohne bezug

15343

excel wenn text enthält dann

14267

excel zelle automatisch ausfüllen, wenn andere zelle wert

12306

excel zelle abschneiden bis zeichen

11938

excel erste stelle löschen

11417

warum zeigt excel bei summe immer null?

10634

excel bedingte formatierung wenn andere zelle wert dann farbe

10521

zählen wenn mit oder

9511

links abschneiden excel

9498

excel text enthält wort

9480

excel formel wenn 0 dann leer

9079

excel makro in zelle schreiben

8864

excel zelle trennen nach dem ersten leerzeichen

8800

zählenwenn kleiner als datum

8428

excel nur einmal zählen

8178

excel wert aus zelle in andere übernehmen

8062

excel text ab zeichen ausgeben

7989

excel rechts ab zeichen ausgeben

7915

wenn größer und kleiner excel

7806

letzte zeile excel vba

7675

excel zeitstempel aus datum und uhrzeit

7521

excel spalten einblenden mit plus

7291

excel minuten in stunden formatieren

7167

excel spalten dynamisch ausblenden

7070

kreuz mauszeiger

7068

aus kalenderwoche monat ermitteln

6935

excel bedingte formatierung älter als heute

6521

summe wenn nicht leer

6515

power query spalten untereinander

6294

vba zellen leeren

6182

excel subtrahieren bis 0

6026

excel wenn dann funktion mit uhrzeit

6006

excel formel letzte 4 ziffern

5981

excel prüfen ob wert vorhanden

5920

excel formel enthält wort

5910

zwischen tabellenblättern springen excel

5872

excel runterziehen fortlaufend

5838

istleer excel

5829

excel datei ist zum bearbeiten durch mich gesperrt

5734

excel letzte ziffer entfernen

5705

was bedeutet $ in excel formel

5689

sverweis summe mehrere zeilen

5676

excel leere zellen mit oberen wert füllen

5582

excel nach text suchen

5539

excel zeit minuten addieren

5492

excel vba text suchen und zelle ausgeben

5379

excel zählen wenn zelle nicht leer

5341

summenprodukt mehrere spalten

5321

führende nullen in excel entfernen

5224

excel zelle färben wenn text in anderer zelle

5182

msgbox mit ja nein

5105

excel email adressen erkennen

5082

excel wenn #nv dann 0

5082

excel vba zelle farbe zuweisen

5053

excel wenn zelle farbig dann 1

5053

buchstaben in excel entfernen

4974

excel wert kopieren wenn bedingung erfüllt

4903

excel summewenns ungleich text

4847

excel text verketten anführungszeichen

4841

excel prüfen ob zeichenfolge enthalten

4789

excel datum + x monate

4769

summewenn mit datum

4754

vba projekt passwort vergessen

4727

excel suche von rechts

4710

excel vba if and or kombinieren

4679

balkendiagramm excel reihenfolge umkehren

4659

datum lässt sich nicht formatieren excel

4654

bild an zelle anpassen excel

4588

excel alles außer zahlen löschen

4564

excel zeichen von links entfernen

4556

excel formel text übernehmen

4516

excel makro text in zahl umwandeln

4508

zeilenumbruch vba code

4482

excel zählen wenn wort enthalten

4469

excel suchen in spalte

4452

excel vba worksheet exists

4430

vba makro unterbrechen

4411

=heute excel

4362

excel kopieren ohne bezug

4360

wie rundet man eine summe in excel?

4357

excel aktuelle uhrzeit anzeigen

4332

userform beenden

4327

prozente durchschnitt berechnen

4327

kalenderwoche excel in datum umwandeln

4324

excel zeile eines wertes ermitteln

4308

excel datum in formel als datum anzeigen

4300

excel vba zelle aus anderer tabelle auslesen

4285

excel [gruppe]

4260

excel gruppierung plus wird nicht angezeigt

4229

excel funktion

4199

zeilenumbruch excel vba

4182

excel dropdown leeres feld

4158

autofilter excel aktivieren

4142

excel drucker linien entfernen

4075

excel formel für aktuelles jahr

4025

Archiv - Verwandte Themen

Forumthread

Beiträge

formel über vba in range.

vba range definition

worksheet_change(byval target as range)

probleme worksheet_change(byval target as range)

if target = range("l9") then

range(target.address, target ... umschreiben

if target.address = "$a$1" then

range bezüge in vba von fix auf relativ umstellen

if target.address

vba range definieren

if target.address ... aber nur wenn eine zahl

vba: range eindimensionell an funktion übergeben

private sub worksheet_change(byval target as range

vba formel in range einfügen

worksheet_change(byval target as excel.range)

text in range während eingabe per vba analysieren?

private sub worksheet_change(byval target as excel

2 x private sub worksheet_change(byval target as r

verketten von zellen per vba aber nicht in range..

vba range definieren

in sumif formel range aus vba verwenden

vba: zeilen aus range kopieren bei übereinstimmung

vba-range in formel verwenden

vba hyperlink einer range/ einem bild zuweisen

If Target.Address vereinfachen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

84 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread