Zelle mit Variable anwählen und Inhalt anderer Zel

Sub ZelleAuswählen_Nr_eintragen() ' ZelleAuswählen_Nr_eintragen Makro ActiveSheet.Unprotect i = Range("EL2") Dim zelle As Range For Each zelle In ActiveSheet.Range("A4:A1500").Cells If zelle = i Then zelle(1, 128).Activate ActiveSheet.Protect End If Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim a As Variant ActiveSheet.Unprotect a = Application.Match(Range("EL2"), Range("A4:A1500"), 0) If IsNumeric(a) Then Cells(a, 128).Value = Cells(1, 24).Value '--von X1 nach Else MsgBox "nicht vorhanden" End If ActiveSheet.Protect

Dim a As Variant ActiveSheet.Unprotect a = Application.Match(Range("EL2"), Range("A4:A1500"), 0) If IsNumeric(a) Then Cells(a, 128).Value = Cells(1, 24).Value '--von X1 nach Cells(a, 128).select '(oder .activate) Else MsgBox "nicht vorhanden" End If ActiveSheet.Protect

Dim a As Variant ActiveSheet.Unprotect Application.Calculation = xlManual '--automatische Berechnung ausschalten Application.EnableEvents = False '--Events ausschalten a = Application.Match(Range("EL2"), Range("A4:A1500"), 0) If IsNumeric(a) Then With Cells(a + 3, 128) .Value = Cells(1, 24).Value '--von X1 nach .Select End With Else MsgBox "nicht vorhanden" End If Application.Calculation = xlAutomatic '--automatische Berechnung einschalten Application.EnableEvents = True '--Events einschalten ActiveSheet.Protect

Hallo Hary und MCO
Vielen Dank für eure Tips. Teilweie haben sie mir geholfen.
1.Den Absturtz meines Exels konnten sie nicht beheben. Habe den Fehler jedoch nach langem suchen gefunden. Schuld war eine bedingte Formatierung der aktiven Zeile mit dem Wert:
=Zelle("Zeile") = Zeile("$A1") , Bereich ....
Mit dem folgenden Makro hatte ich die Formatiereung jeweils bei Zeilenwechsel wieder aufgehoben.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate  '--Aktualisiert nach jeder eingabe--
End Sub

Nach dem löschen dieser bedingten Formatierung läuft mein Exel wieder einwandfrei.
2.Das bei 3 Zeilen zu hoch +3 ist O.K.
3.Wenn der Kursor auf die eingetragene Zelle soll genügt der Code .Select nicht, die erneute Zellbezeichnung Cells (a + 3, 129).Select funktioniert.
4.Das ActiveSheet.Protect muss auch noch vor der Else Anweisung stehen.
Habt ihr vielleicht eine unproblematische Methode um die aktive Zeile hervorzuheben? Ohne Absturz?
Vielen Dank für Eure Hile
Gruss Rudolf.

Beliebteste Forumthreads (12 Monate)

Zelle mit Variable anwählen und Inhalt anderer Zel

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle mit Variable anwählen und Inhalt anderer Zel

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread