Warum funktioniert VBA nicht?

• Warum funktioniert VBA nicht? von Daniel vom 12.10.2003 02:24:23
  • AW: Warum funktioniert VBA nicht? - von Jörg Gradert am 12.10.2003 02:53:52

Betrifft: Warum funktioniert VBA nicht?
von: Daniel

Geschrieben am: 12.10.2003 02:24:23

Hallo

Ich habe gerade dieses Skript versucht, es funktioniert allerdings nicht.
Was habe ich falsch gemacht:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Intersect(Target, Range("AA10")) Is Nothing Then Exit Sub
If Target.Value = "Details: Sendung eingeben" Then
Cells(10, 29) = Cells(10, 27)
ElseIf Target.Value = "A" Then
Range("AB10").ClearContents
End If
End Sub

Zur Erklärung

Ich möchte wenn AA10 = Details: Sendung eingeben steht, das dies auch in AB10 steht. Steht aber A in AA10 sollte alles in AB10 gelöscht werden, so dass ein normales leeres Feld entsteht.

Vielen Dank

Daniel


Betrifft: AW: Warum funktioniert VBA nicht?
von: Jörg Gradert
Geschrieben am: 12.10.2003 02:53:52

Hallo Daniel,
Das Makro funktioniert.
Du schreibst aber Cells(10, 29) = Cells(10, 27), das heisst AC10 = AA10
dann muss es auch Range("AC10").ClearContents heissen.
oder Du musst es oben in Cells(10, 28) = Cells(10, 27) ändern, damit Zelle AB10 angesprochen wird.

Gruss Jörg

Excel-Beispiele zum Thema " Warum funktioniert VBA nicht?"

Letzte nichtleere Zelle ermitteln		Anwendername im Kommentar nicht fettgedruckt
Nichtnumerische Eingaben verhindern		Wenn kein Eintrag, UserForm nicht schließen
Zufallszahlen generieren, die sich nicht wiederholen		Alle nichtnumerischen Werte auf Null setzen
Nichtnumerische Eingaben in TextBox verhindern		Alle nichtleeren Zeilen markieren
Datei kopieren, wenn noch nicht vorhanden		Schriftart in Zeilen wechselweise fett/nicht-fett formatieren
Werte aus einem nicht zusammenhängendem Bereich auslesen		Focus nach Klick auf einen Frame nicht dorthin setzen
Fehler abfangen, wenn eine Arbeitsmappe nicht geöffnet ist		Zelleingaben in nicht sichtbarem Blatt protokollieren
Nicht zusammenhängenden Bereich in nächste Zeile kopieren		Tabellen vergleichen und bei Nichtübereinstimmung markieren
In Folgeblättern nicht vorkommende Werte markieren		Übernahme in 2. Tabelle, wenn Zelle in Spalte D nicht leer ist
Zeilen nicht drucken, wenn Spalte C leer oder 0		Wenn Wert nicht gefunden wird, eintragen
Anzahl von Zellen aus einem nicht rechteckigen Bereich ermitteln		Nur nichtfarbige Zellen schützen
Artikel bei Nichtvorhandensein eintragen, sonst addieren		Spaltenbreiten der nicht ausgeblendeten Spalten anpassen
Über UserForm-Datensätze nur eintragen, wenn nicht vorhanden		Datensätze wechselseitig bei Nichtauffinden markieren
Nur Wert eines Kombinationsfeldes, nicht das Feld drucken		Fehlermeldung, wenn nicht der erwartete Wert eingetragen wird
Allen Daten löschen, wenn das Jahr nicht der Vorgabe entspricht