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

Wenn eine Zahl in A1 geschrieben wird - B1 löschen

Forumthread: Wenn eine Zahl in A1 geschrieben wird - B1 löschen

Wenn eine Zahl in A1 geschrieben wird - B1 löschen
Arthur
Hallo zusammen
Ein weiteres Problem. Wird in A1 eine Zahl hineingeschrieben und mit Enter quittiert, muss B1 gelöscht werden. Falls B1 eine Zahl hineingeschrieben wird und mit Enter quittiert wird, muss A1 gelöscht werden.
Wie kann ich dies bewerkstelligen?
Vielen Dank für euere Hilfe
Arthur

Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
10.09.2012 17:37:41
Hajo_Zi
Hallo Arthur,
nur über VBA, falls das eingestzt werden darf.

AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
10.09.2012 17:39:56
Arthur
Hallo Hajo_Zi
Ja wenns anders nicht funktioniert auch mit VBA.
Könntest du mir dabei helfen wie der Code aussehen soll?
Vielen Dank!!
Arthur

Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
10.09.2012 17:50:12
Hajo_Zi
Halo Arthur,
unter die Tabelle 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target  "" Then
Range("B1").ClearContents
ElseIf Target.Address = "$B$1" And Target  "" Then
Range("A1").ClearContents
End If
End Sub
Gruß Hajo

Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
10.09.2012 17:56:53
Arthur
Hajo,
habe es gerade getestet und es funktioniert wunderbar!
Herzlichen Dank!!
Arthur

AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
11.09.2012 08:13:06
Arthur
Guten morgen Hajo
Du, wenn ich jetzt eine andere zelle lösche oder eine Zeile rauslösche, dann kommt immer der Debugger:
Laufzeitfehler '13':
Typen unverträglich und:
If Target.Address = "$P$38" And Target "" Then (ist dann gelb markiert)
Habe ich was falsch gemacht?

Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
11.09.2012 08:34:13
{Boris}
Hi Arthur,
Du hast nix falsch gemacht. Wenn Du eine Zeile löschst, dann besteht TARGET aber aus 16384 Zellen - und das kann man nicht mit "" vergleichen.
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count = 1 Then
If .Address(0, 0) = "A1" And .Value  "" Then
Range("B1").ClearContents
ElseIf .Address(0, 0) = "B1" And .Value  "" Then
Range("A1").ClearContents
End If
End If
End With
End Sub
VG, Boris

Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
11.09.2012 10:23:25
Arthur
Danke Boris,
Jetzt klappt es auch ohne diese Fehlermeldung die ganze Zeit.
Ich habe leider nicht eine grosse Ahnung von VBA.
Gruss
Arthur

AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
11.09.2012 17:49:17
Hajo_Zi
Hallo Arthur, 

bei Deiner Version solltest Du Target.Count so ermitteln.
‘ von Nepumuk Anzahl der ausgewählten Zellen
If  CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet)=1 then


Anzeige
AW: Wenn eine Zahl in A1 geschrieben wird - B1 löschen
11.09.2012 08:56:21
Arthur
Guten morgen Hajo
Du, wenn ich jetzt eine andere zelle lösche oder eine Zeile rauslösche, dann kommt immer der Debugger:
Laufzeitfehler '13':
Typen unverträglich und:
If Target.Address = "$P$38" And Target "" Then (ist dann gelb markiert)
Habe ich was falsch gemacht?

Forumthreads zu verwandten Themen

Wenn in Zelle folgender String, dann
mehmet

Hallo Forum,
In Spalte G4:G92 sind viele kodierte Zeichenfolgen.
Fest steht aber, dass diese zu erkennen sind, z.B.
in Zelle G4: METAR EKAH 052150Z AUTO 12005KT 9999NDV DZ OVC080/// 15/14 Q1005=
in Zelle G5: METAR ESSA 051940Z 20006KT CAVOK 11/10 Q1006 NOSIG=
und so weiter.....
06.09.2008 01:08:00
Thread-ID: 1007801
16 Beiträge
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge
Formel wenn dann zellvergleich Text
Karel

Hallo Forum,
wie kann ich Zellwert C mit Zellwert E vergleichen ausgaben in Zelle A
wenn C und D Leer dsnn A auch Leer
Tabelle1

 ABCDE2Ausgabe Textwert Textwert3Offen Bezahlt Offen4Bezahlt Bezahlt Bezahlt5Offen Bezahlt  6Of...
28.11.2008 20:04:52
Thread-ID: 1028782
5 Beiträge
Formelproblem "wenn(text - beinhaltet, dann....)
Andi

Hallo Experten,
Ich steh bei folgender Excelformel an.
=WENN(D13=....folgender text beinhaltet ist (AA).....;"True";"false")
Ich würde gerne überprüfen ob im Feld D13 der Text "AA" vorkommt (z.B. Artikel "AA01"), falls dies zutrifft bitte "True" schreiben, ansonsten "false".
Da...
04.12.2008 11:42:00
Thread-ID: 1030117
3 Beiträge
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Wenn ijn Spalte Datum von Jänner dann Werte zählen
Jänner

Hallo!
Ich habe in der Spalte A ab der Zeile 3 Datumwerte aus den Wochenenden und den Feiertagen stehen.
In der spalte G, H, I stehen nun Werte.
Ich möchte nun alle Werte in Abhängigkeit des Datums zusammenzählen.
Ist in der Spalte A das Jänner Datum vorhanden dann sollen die We...
07.01.2009 08:42:00
Thread-ID: 1037440
4 Beiträge
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
Formel WENN DANN
Hirtenanna

Hallo Gemeinde,
wende mich heute mit einem Formelproblem an Euch, wo ich bisher keine Lösung für ergoogeln bzw. im Forum finden konnte. Weiß nur, das es sich wohl um eine WENN DANN Formel handeln muß.
Also:
Ich habe in den Zellen V4 R4 N4 J4 F4 Z4 Zeiten stehen, welche als Summe in...
25.01.2009 12:12:00
Thread-ID: 1043536
11 Beiträge
Wenn Links keine Zahl - MsgBox
Heinz

Leute ich habe bitte noch ein Problem
Mit unteren Code werden Werte (Zahlen) verschoben.
Nun möchte ich bitte wenn in " Range("F65") = Left(wks.Range("C5").Value, 5) " keine 5 Zahlen stehen, das dann eine MsgBox erscheint "Linie 311 keine gültige SAP Nummer".
Ist das mit diesen unte...
02.02.2009 20:00:18
Thread-ID: 1046400
3 Beiträge
Fehlermeldung, wenn keine Daten vorhanden
Josef

Hallo!
Wenn in die ListBox10 Daten eingelesen werden, dann würde der code unten passen.
Wenn jedoch aufgrund nicht vorhandener Daten keine Daten eingelesen werden, dann erhalte ich in der Zeile
Label181.Caption = Label167.Caption - Label168.Caption
eine Fehlermeldung: Typen unve...
24.02.2009 11:34:13
Thread-ID: 1053423
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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