Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1776to1780
1776to1780
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bei Änderung mehrerer Zellen makro ausfü

Forumthread: Bei Änderung mehrerer Zellen makro ausfü

Bei Änderung mehrerer Zellen makro ausfü
29.08.2020 14:35:06
Martin
Hallo
ich möchte bei Änderung folgender Zellen ein Makro ausführen.
Zellen B13;E13;H13; B24;E24;H24;B26;E26;H26
Mit einer Zeille schaffe ich es aber nicht mit den oben angeführten Zellen. Bitte um Hilfe.Danke.
With Target
If .Address = "$B$13" Then
If .Value = "" Then
Call Text_in_Zelle
End If
End If
End With
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Änderung mehrerer Zellen makro ausfü
29.08.2020 14:48:09
Hajo_Zi
In der Art
        Dim RaBereich As Range                      ' Bereich der Wirksamkeit
Dim RaZelle As Range                        ' Variable Zelle
Dim InS As Integer                          ' Variable Stunde
Dim InM As Integer                          ' Variable Minute
Set RaBereich = Range("D10:F40, H10:H40")   ' Bereich der Wirksamkeit
' noch mehr Bereiche
'Set RaBereich = Union(Range("C11:AG11 , C13:AG13, C15:AG15 , C17:AG17"), _
'    Range("C35:AE35, C37:AE37, C43:AG43, C45:AG45 , C47:AG47 , C49:AG49"), _
'    Range("C67:AF67 , C69:AF69 , C75:AG75 , C77:AG77 , C79:AG79"), _
'    Range("C99:AF99 , C101:AF101, C107:AG107 , C109:AG109 , C111:AG111"), _
'    Range("C127:AG127 , C129:AG129 , C131:AG131 , C133:AG133 , C139:AF139"), _
'    Range("C155:AG155, C157:AG157 , C159:AG159 , C161:AG161 , C163:AG163"), _
'    Range("C179:AF179 , C181:AF181, C187:AG187 , C189:AG189 , C191:AG191"))
' Zelle die in dem Bereich liegen auf die Varible schreiben
' damit werden nur noch die Zellen bearbeitet die im vorgegeben Bereich liegen
' jede Zelladresse ist einzeln angegeben
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then

Anzeige
AW: Bei Änderung mehrerer Zellen makro ausfü
29.08.2020 15:05:05
Daniel
Hi
If Instr("B13;E13;H13;B24;E24;H24;B26;E26;H26", Target.Address(0, 0)) > 0
Oder vielleicht so
Select case Target.Column
Case 2, 5, 8
Select case Target.Row
Case 13, 24, 26
Call Text_In_Zelle
End Select
End select
Oder so 
if not intersect(target, Range("B:B,E:E;H:H"), Range("13:13,24:24,26:26")) is nothing Then
Gruß Daniel
Anzeige
AW: Bei Änderung mehrerer Zellen makro ausfü
29.08.2020 15:05:48
Dieter
Hallo Martin,
das Programm könnte so aussehen: 
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
Select Case .Address(False, False)
Case "B13", "E13", "H13", "B24", "E24", "H24", "B26", "E26", "H26"
If .Value = "" Then
Call Text_in_Zelle
End If
End Select
End With
End Sub
Viele Grüße
Dieter
Anzeige
AW: Bei Änderung mehrerer Zellen makro ausfü
30.08.2020 10:44:31
Martin
Danke Dieter für deinen Vorschlag. Habe es so gemacht.
Lg Martin
AW: Bei Änderung mehrerer Zellen makro ausfü
29.08.2020 15:10:43
Nepumuk
Hallo Martin,
würde ich so machen:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objRange As Range, objCell As Range
    Set objRange = Intersect(Target, Range("B13,E13,H13, B24,E24,H24,B26,E26,H26"))
    If Not objRange Is Nothing Then
        For Each objCell In objRange
            If IsEmpty(objCell.Value) Then Call Text_in_Zelle
        Next
        Set objRange = Nothing
    End If
End Sub

Gruß
Nepumuk
Anzeige
AW: Nicht SHIFT sondern STRG!!!
29.08.2020 17:59:45
Herbert_Grom
Hallo Martin,
Die betreffenden Zellen zusammen markieren (STRG & Linke Maustaste) und diesem "Gebilde" dann einen Bereichsnamen geben. Auf diesen referenzierst du dann mit "Worksheet_SelectionChange".
Servus
AW: Nicht SHIFT sondern STRG!!!
30.08.2020 10:42:54
Martin
Hallo
Danke an alle die mir hier geholfen haben.
Ich habe mich für Dieters Vorschlag entschieden.
Nochmals Danke.
Lg Martin
Anzeige
AW: Bei Änderung mehrerer Zellen makro ausfü
30.08.2020 11:41:01
Herbert_Grom
Hallo Martin,
dann kannst du auch die kürzeste Variante nehmen:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B13,E13,H13, B24,E24,H24,B26,E26,H26")) Is Nothing Then Call  _
Text_in_Zelle
End Sub
Servus
Anzeige

Forumthreads zu verwandten Themen

mehrere Zellen markieren verhindern
Dirk

Hallo miteinander,
brauche nochmals von Euch Hilfe, bitte.
Habe bei einer meiner Dateien eine Gültigkeitsprüfung (nur X zulassen) und vba trägt in einen Bereich beim reinklicken ein X ein, wenns schon drin ist wirds gelöscht, soweit kein Problem.
Problem: wenn man nun aus Versehen o...
03.09.2008 22:12:34
Thread-ID: 1007244
3 Beiträge
Mehrere Zellen gleichzeitig farblich markieren
KLAUS

Hallo!
Ich habe eine Tabelle in der von B9 bis V45 in jeder Zelle ein Namenskürzel steht, insgesamt 21 verschiedene.
Jetzt möchte ich alle Kürzel von einer Person, die aber an unterschiedlichen,d.h. nicht zusammenhängenden, Zellen stehen mit wenig Aufwand und Suchaktionen mit einem Arbe...
11.03.2009 12:29:52
Thread-ID: 1059068
7 Beiträge
Mehrere Zellenwerte auslesen und anzeigen
joni

Hi,
ich sollte mittels sverweis- bzw summenprodukt-Formel Textwerte aus verschiedenen Zellen auslesen die bestimmten kriterien entsprechen. Das klappt auch wenn die Antworten eindeutig sind bzw. es wird nur der erste gefundene Wert angezeigt. Ich brauche die Werte aber alle hintereinander a...
27.03.2009 14:08:36
Thread-ID: 1064622
4 Beiträge
VBA verschiedene Zellen auswählen und ausgeben
Roger

Hallo zusammen
Ich hab folgenden VBA Code um Daten von Excel in Word auszugeben, das funktioniert einwandfrei. Nun möchte ich den aber so abändern das er mir nur die Zellen M7, N24 und P7, Q24 und S7, T24 in Word ausgibt. Was muss ich da abändern?
Private Sub CommandButton1_Click() Dim...
23.07.2009 18:29:31
Thread-ID: 1090473
4 Beiträge
Anzeige
Ausgewählte Zellen in einer Zelle ausgeben
Neyer

Hallo
Gibt es eine Möglichkeit, die Inhalte einer individuell markierten Zellenauswahl in einer einzelnen Zelle, mit z.B. Semikolon getrennt darzustellen?
Um eine Antwort bin ich sehr danbkar.
Gruss
31.07.2009 13:58:16
Thread-ID: 1092754
7 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
Werte aus einer Zelle in mehrere Zellen ausgeben
Stefan

Hallo Excelfans,
ich habe folgendes Problem. Ich habe eine riesige Menge an Daten jedoch sind, die Daten in einer Zelle.
Ich möchte Sie jedoch in einzelnen Zellen haben.
In jeder Zelle befinden sich Datum und Uhrzeit und 9 Werte. Es soll am Ende so aussehen, das Datum und Uhrzeit un...
19.01.2010 15:36:37
Thread-ID: 1131085
5 Beiträge
Formular aufrufen VBA über mehrere Zellen
andreas

Hallo zusammen,
habe eine Tabelle da will ich wenn eine Zelle von B20 - B500 selektiert ist das Formular "Werkzeuge" aufrufen.
Wie muss ich dafür den Code schreiben?
Danach sollte nach einlesen der Daten über das Formular, die Zelle "C?" in der selben Zeile angewählt werden, dazu m...
12.11.2010 12:17:18
Thread-ID: 1186487
3 Beiträge
Anzeige
Wie füllt man mehrere Zellen gleichzeitig aus?
Thomas

Hallo Forum,
ich möchte gerne einen Stundenzettel entwerfen, wo bestimmte Informationen durch ein Dropdown-Menü ausgewählt werden sollen.
In meiner Datei findet ihr 2 Lösungsansätze.
In der Tabelle1 habe ich über Steuerelemente in Spalte E die Möglichkeit die nachfolgenden Spalten F...
19.12.2010 14:13:23
Thread-ID: 1192080
5 Beiträge
Anzeige
mehrere Textboxen der Userform in Zellen ausgeben!
Lisa

Hallo Exceljaner
ich konnte meine Frage in der Recherche nicht beantworten und wende mich deshalb an Euch!
Wie erreiche ich es, das die Textboxen 1 und 2, meiner Userform1, ihren Wert in Tabelle1 Zellen A5:A6 ausgeben und anschliessend geleert werden.
hat jemenad eine Idee und kann...
12.09.2011 12:33:36
Thread-ID: 1229456
10 Beiträge
Mehrere Zellen aus einer Zeile übernehmen
Bernd

Guten Abend,
ich stehe vor einem Problem wo ich keine passende Lösung habe.
Gegeben ist eine Arbeitsmappe "Beispiel.xlsx" mit dem Tabellenblatt Abfrage und dem Tabellenblatt Datenbank. In der Datenbank sind einige Hundert Artikelnummern mit Merkmalen beschrieben erfasst. Im Beispiel sin...
22.09.2011 18:49:01
Thread-ID: 1231138
3 Beiträge
Automatisches Aufsplitten auf mehrere Zellen?
Thomas

Moin,
kann mir jemand sagen wie man das wieder hinbekommen.
In einer Zelle (A1) einer zugesandten Excel-Datei stehen 3 Zeilen Text (vermutlich!) mit ALT-RETURN angelegt, wenn man diese nun kopiert und nach B1 einfügt, dann splittet er die 3 Zeilen in B1 B2 B3 - AUTOMATISCH!
Kann mi...
21.06.2013 13:19:15
Thread-ID: 1318938
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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