Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.01.2025 19:56:02
Variablen Zellinhalt löschen
20.01.2025 16:28:16
Teil Sendkeys plus Buchstaben aus Zelle
20.01.2025 16:22:19
VBA zum Abgleich funktioniert nicht
20.01.2025 15:11:43
Dynamische Berechnung aus Einnzelteilen in einem Ganzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ByVal Target As Range

Kategorie
VBA
Tags
#datenmanagement #makro-anpassung #vba-fehler
Relevante Fragen
Anzeige
ByVal Target As Range
27.06.2007 17:43:26
Raphael
Hallo Zusammen
Gestern wurde mir mit dieser VBA Formel geholfen, wie mache ich es aber wenn ich größere Datenmengen habe.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address  "$D$7" Then Exit Sub
If Target = "" Then Target = Range("H7")
End Sub


Ich habe Ein Sheet mit Daten im Bereich A1:IV10, ich möchte jetzt dieses Macro auf den Bereich
A20:IV30 Übertragen.
Das bedeutet das Der Wert in z.B. B2 in B22 drin stehn soll, und mit Hilfe des Macros überschrieben werden kann, aber beim wieder rausnehmen des Inputs den Wert von B2 anzeigen soll.
Ich hoffe ihr könnt mir auch dieses mal wieder weiterhelfen.
Danke
MFG
Raphael

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ByVal Target As Range
27.06.2007 17:54:35
Beverly
Hi Raphael,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target > 1 Then Exit Sub
If Intersect(Target, Range("A1:IV10")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "" Then Target = Target.Offset(19, 0)
Application.EnableEvents = True
End Sub


Es kann aber immer nur eine Zelle gelöscht werden.
________________________________________

Anzeige
ByVal Target As Range - Korrektur
27.06.2007 18:00:00
Beverly
Hi Raphael,
habe gerade gesehen, dass sich da ein kleiner Fehelr in den code eingeschlichen hat. Ersetzte bitte die 2. Zeile durch diese

If Target.Count > 1 Then Exit Sub


Bis später,
Karin

Anzeige
AW: ByVal Target As Range - Korrektur
28.06.2007 08:26:00
Raphael
Danke Karin
Ich habe da aber noch ne Frage wie kann ich die Fehlermeldung:
Run-time error "13":
Type Mismatch
Umgehen? die kommt immer wenn ich direkt in eine der entsprechnenden Zellen geh (z.B. mit F2)?
gibt es dafür eine Lösung?
Meine Formel schaut jetzt so aus!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("D119:IU160")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target = "" Then Target = Target.Offset(-47, 0)
Application.EnableEvents = True
End Sub


danke für deine Hilfe!
MFG
raphael

Anzeige
Danke
27.06.2007 18:01:25
Raphael
Danke dir!

Forumthreads zu verwandten 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
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
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
Probleme Worksheet_Change(ByVal Target As Range)
Ron

Hallo Leute,
habe mir vor einigen Wochen hier im Forum von Daniel helfen lassen und wollte nun den von ihm geposteten Script ein wenig auf meine Bedürfnisse umschreiben. Leider bin ich wohl zu blöd...
Es wäre Klasse, wenn mir jemand helfen könnte!
Ausgangslage:
Ich möchte in ein...
28.04.2009 04:06:20
Thread-ID: 1071514
4 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...
07.01.2010 21:06:12
Thread-ID: 1128031
7 Beiträge
Anzeige
If Target.Address
Murino

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
Anzeige
VBA range definieren
Benjamin

Guten Tag an alle,
ich habe ein Problem, bei dem ich zur Zeit kläglich scheitere.
Ich möchte eine Formel nach unten ausfüllen und zwar genau so oft, wie ich in einer Spalte Werte habe.
Also, wenn ich Z.b. in Spalte H1:H4 werte habe, soll die formeln auch von z.B. A1:C4 kopiert werde...
25.02.2010 14:42:10
Thread-ID: 1141514
5 Beiträge
Anzeige
If Target.Address ... aber nur wenn eine Zahl
Hans

Hallo Leute, ich habe folgendes Skript : Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Address(0, 0) = "C6" Then Lager = Target.Cells(1, 1).Value Range("H2") = Lager Call Lagr Cancel = True End If Das besagt das die Methode Lagr ausgeführt w...
25.02.2010 15:13:26
Thread-ID: 1141551
5 Beiträge
VBA: Range eindimensionell an Funktion übergeben
axel_k

Hi,
ich möchte aus einer Tabelle Werte aus einer Spalte in eine Funktion einlesen: Function bla(daten) End Function
Wenn ich das tue, liegt daten als (n,1)-Matrix zweidimensional vor.
Kann ich daten irgendwie so einlesen, dass ich einen eindimensionalen Vektor (daten(n)) erhalte?...
31.05.2010 12:02:47
Thread-ID: 1159570
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige