Das Archiv des Excel-Forums
Warum funktioniert VBA nicht?
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 |
 |