Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1152to1156
1152to1156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Eingabe in Zelle bleiben

Nach Eingabe in Zelle bleiben
Dieter(Drummer)
Hi VBA Spezialisten,
suche einen VBA Code, der in der aktuellen Mapp; nach Eingabe in Zelle C7, auch nach ENTER in der Zelle C7 bleibt!
Diese Mappe ist geschützt und NUR die Zellen C5:C7 sind ungeschützt für Eingaben.
Es soll NICHT die Einstellung in Excel unter EXTRAS/ OPTIONEN/BEARBEITEN/Markierung nach dem drücken der Entertaste...Richtung UNTEN, verändert werden.
Gibt es eine Möglichkeit? Danke für's drum kümmern.
Gruss, Dieter(Drummer)

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nach Eingabe in Zelle bleiben
18.04.2010 18:35:48
Hajo_Zi
Hallo Dieter,
lese die Einstellung doch beim öffnen und aktivieren aus und stelle Sie bei deaktivate und close zurück.

AW: Nach Eingabe in Zelle bleiben
18.04.2010 18:39:58
Dieter(Drummer)
Hi Hajo,
Danke für Rückmeldung. Dies wäre ein Lösung. Es wäre aber besser, wenn es sich nur auf das aktivierte Tabellenblatt bezieht. In einer anderen der Tabelle der Mappe soll dies ja nicht.
Hatte mich da wohl nicht ganz richtig ausgedrückt.
Gruß
Dieter(Drummer)
AW: Nach Eingabe in Zelle bleiben
18.04.2010 18:42:12
Hajo_Zi
Hallo Dieter,
es gibt auch aktivate und deaktivate für Tabellen.
Gruß Hajo
Anzeige
AW: Nach Eingabe in Zelle bleiben
18.04.2010 18:48:51
Dieter(Drummer)
Hi Hajo,
es wäre narürlich eine Möglichkeit. Nur kann ich leider nicht mit Makrorekorder die Einstellung, dass die Zelle C7 nach der Eingabe in C7 weiter aktiv bleibt NICHT aufzeichnen.
Gruß
Dieter(Drummer)
AW: Nach Eingabe in Zelle bleiben
18.04.2010 19:07:54
Hajo_Zi
Halo Dieter,
mein Makrorecorder zeichnet folgendes auf 
Option Explicit
Sub Makro1()
' Makro1 Makro
Application.MoveAfterReturn = False
End Sub
Gruß Hajo
AW: Danke Hajo ...
18.04.2010 19:15:42
Dieter(Drummer)
... werde das mal in Ruhe in ein Makro setzen, wenn es mir gelingt?!
Danke und Gruß, Dieter(Drummer)
Anzeige
AW: Nach Eingabe in Zelle bleiben
18.04.2010 19:01:39
Daniel
Hi
dieses Makro müsste ins Modul der betroffenen Arbeitsmappe:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "C7" Then Target.Activate
End Sub

Gruß, Daniel
AW: Nach Eingabe in Zelle bleiben
18.04.2010 19:11:43
Dieter(Drummer)
Hi Daniel,
Danke für das Makro. Es funzt aber nicht. Nach Eingabe in Zelle C7 wird Zelle C5 aktiviert, da ja nur die Zellen C5:C7 für Eingaben frei sind.
Gibt es noch eine Möglichkeit?
Gruß
Dieter(Drummer)
AW: Nach Eingabe in Zelle bleiben
18.04.2010 19:27:26
Daniel
HI
sorry, kann ich so nicht nachvollziehen.
wenn in denem Projekt noch andere Event-gesteuerte Makros aktiv sind, müsstest du ggf . mit Application.EnableEvents = FALSE/TRUE arbeiten.
Gruß, Daniel
Anzeige
AW: Nach Eingabe in Zelle bleiben
18.04.2010 19:32:51
Hajo_Zi
Hallo Dieter,
um mal Daniel seine Code auszubauen. 
Option Explicit             ' Variablendefinition erforderlich
Private Sub Worksheet_Change(ByVal Target As Range)
'* H. Ziplies                                     *
'* 18.04.10                                       *
'* erstellt von HajoZiplies@web.de                *
'* http://Hajo-Excel.de/
Dim RaBereich As Range, RaZelle As Range
' Bereich der Wirksamkeit
Set RaBereich = Range("C5:C7")
' noch mehr Bereiche
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
'ActiveSheet.Unprotect ("Passwort")
For Each RaZelle In RaBereich
RaZelle.Select
Next RaZelle
'ActiveSheet.protect ("Passwort")
End If
Set RaBereich = Nothing
End Sub
Gruß Hajo
Anzeige
AW: Danke Hajo, es funzt ...
18.04.2010 19:41:51
Dieter(Drummer)
... habe statt C5:C7 nur C7 gesetzt. Jetzt klappt es.
Danke und Gruß
Dieter(Drummer)
AW:erster Beitrag
18.04.2010 19:49:23
Hajo_Zi
Halo Dieter,
im ersten Beitrag Stand 
Diese Mappe ist geschützt und NUR die Zellen C5:C7 sind ungeschützt für Eingaben.

Daraus habe ich geschlußfolgert C5:C7, für eine Zelle muss es nicht so aufwendig sein.
Gruß Hajo
AW: AW:erster Beitrag
18.04.2010 23:06:08
Dieter(Drummer)
Hi Hajo,
konnte erst jetzt antworten. Danke Dir für das Makro. Wichtig ist, dass es jetzt funktioniert.
Mit Gruß
Dieter(Drummer)
Anzeige

303 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
13
2
4
4
4
2
1
2
3
7
3
3
18
1
4
4
2
2
2
3
4
2
11
5