Das Archiv des Excel-Forums

Warum funktioniert VBA nicht?

Bild

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
Bild


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


 Bild

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

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