Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Target.Address

If Target.Address
08.03.2004 20:19:02
Ernst Dunkel
Guten Abend Forum
Kann mir bitte jemand in VBA weiter helfen.
Bei Eingabe eines Wertes in E6 (Raumnummer) soll das Geschoss bestimmt werden bzw. in H7 eingesetzt werden.
Z.B. bei Eingabe von 101 in “E6“ wird in “H7“ 1.OG eingesetzt.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = ("$E$6") Then
………………………
Wenn E6 < 0 dann H7 = UG
Wenn E6 < 100 dann H7 = EG
Wenn E6 < 200 dann H7 = 1.OG
usw.
Mit freundlichen Grüßen
Ernst Dunkel

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

Betreff
Datum
Anwender
Anzeige
AW: If Target.Address
08.03.2004 20:27:32
Beni
Hallo Ernst,
Gruss Beni

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = ("$E$6") Then
If [E6] < 0 Then [H7] = "UG"
If E6 < 100 Then [H7] = "EG"
If [E6] < 200 Then [H7] = "1.OG"
If [E6] < 300 Then [H7] = "2.OG"
End If
End Sub

AW: If Target.Address
08.03.2004 20:31:43
Ernst Dunkel
Hallo Beni
Vielen Dank, es funktioniert.
mfg
Ernst Dunkel
AW: If Target.Address
08.03.2004 20:43:37
PeterW
Hallo Ernst,
wenn es auch um Hochhäuser geht ist das vielleicht etwas übersichtlicher:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$E$6" Then
Select Case Target
Case Is < 0
[H7] = "UG"
Case Is < 100
[H7] = "EG"
Case Is >= 100
[H7] = Int(Target / 100) & ". OG"
End Select
End If
End Sub

Gruß
Peter
Anzeige
AW: If Target.Address
08.03.2004 23:44:49
Ernst Dunkel
Guten Abend Peter
Der Code ist genial, ich denke er wäre was für das Archiv.
Ich wünsche Dir noch eine schöne Woche und auf einander mal.
Mit freundlichen Grüssen
Ernst Dunkel

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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
13
4
4
6
6
2
4
4
6
12
3
5
8
2
6
5
2
4
2
8
1
25
2
3