Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Excel 2007 an Zeilenanfang springen

Mitglied: stonehauser

stonehauser (Level 1) - Jetzt verbinden

03.10.2010 um 12:37 Uhr, 6959 Aufrufe, 2 Kommentare

Hallo liebe Kollegen,

ich habe ein kleines Problem mit Excel 2007. In einem Tabellenblatt schreibe ich in die Zellen bis beispielsweise F1 Werte, danach drücke ich die "Enter" Taste. Jetzt wird automatisch in die Zelle F2 gesprungen, wie in den Optionen eingestellt. Nun wäre es aber für dieses Tabellenblatt sehr praktisch wenn nicht in die Zelle F2 sonder in die Zelle A2 gesprungen wird, d.h. es soll eine Art Zeilenumbruch eingefügt werden.
Lässt sich dieses Verhalten irgendwie einstellen?

d3eafecfceb7a3b8556de81a97a73259 - Klicke auf das Bild, um es zu vergrößern

Danke für Eure Hilfe im Voraus!
Mitglied: 76109
03.10.2010 um 14:37 Uhr
Hallo stonehauser!

Das ließe sich per Makro-Code machen.

Den Quelltext im VBA-Editor in die Tabelle kopieren, in der diese Funktion ausgeführt werden soll:
01.
Private Sub Worksheet_Activate() 
02.
    Application.OnKey "{Enter}", "NewLineSelect" 
03.
End Sub 
04.
 
05.
Private Sub Worksheet_Deactivate() 
06.
    Application.OnKey "{Enter}" 
07.
End Sub
Und diesen Quelltext in ein Modul einfügen:
01.
Const UmbruchSpalte = 6   'Funktion nur in Spalte F ermöglichen 
02.
 
03.
Sub NewLineSelect() 
04.
    If ActiveCell.Column = 6 Then Cells(ActiveCell.Row + 1, "A").Select 
05.
End Sub
Beim aktivieren des entsprechenden Tabellenblattes, wird die Umbruch-Funktion aktiviert und beim Wechsel in ein anderes Tabellenblatt wieder deaktiviert.
Ausserdem wird die Umbruch-Funktion nur in Spalte F ausgeführt. In den anderen Spalten bleibt die jeweilige Zelle aktiv.

Falls Du die Return-Taste verwenden willst, dann {Enter} nach {Return} ändern.

Gruß Dieter

PS Damit es beim Öffnen der Arbeitsmappe auch funktioniert muss dieser Code noch im VB-Editor in "Diese Arbeitsmappe" kopiert werden:
01.
Const UmbruchSheet = "Tabelle1"     'Tabellenname mit Umbruch-Funtkion 
02.
 
03.
Private Sub Workbook_Open() 
04.
    If ActiveSheet Is Sheets(UmbruchSheet) Then Application.OnKey "{Enter}", "NewLineSelect" 
05.
End Sub
Bitte warten ..
Mitglied: 76109
03.10.2010 um 19:11 Uhr
Hallo nochmal!

Wenn Du anstatt dem vorigen Code im Modul diesen Code einfügst:
01.
Const SpalteBeg = 1 
02.
Const SpalteEnd = 6 
03.
 
04.
Sub NewLineSelect() 
05.
    If ActiveCell.Column = SpalteBeg Then 
06.
        Cells(ActiveCell.Row, SpalteEnd).Select 
07.
    ElseIf ActiveCell.Column = SpalteEnd Then 
08.
        Cells(ActiveCell.Row + 1, SpalteBeg).Select 
09.
    End If 
10.
End Sub
Dann springt Deine Zellmarkierung bei Betätigung von Enter in Spalte A nach Spalte F in der gleichen Zeile und bei Betätigung von Enter in Spalte F in die nächste Zeile nach Spalte A.

Gruß Dieter
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Excel 2007: Sortierung ohne ins Datenblatt zu springen

Frage von JoSiBaMicrosoft Office2 Kommentare

Hallo, ich habe eine Excel-Datei mit mehreren Datenblätter. Nun möchte ich mehre bereichen auf verschiedene Datenblätter sortieren, ohne immer ...

Microsoft Office

Excel Makro - Button "Springe zu Zeile mit heutigem Datum"

gelöst Frage von hannsgmaulwurfMicrosoft Office5 Kommentare

Hallo zusammen, heute wende ich mich mal mit einer Excel Frage an euch. Es geht um Excel 2010 auf ...

Microsoft Office

Zellen ändern in Excel 2007

gelöst Frage von Fraeser50Microsoft Office3 Kommentare

Hallo, Ich habe vor langer Zeit ein Einrichteblatt erstellt. Es gibt eine Zelle auf dem Blatt, wenn die mit ...

VB for Applications

Excel 2007 - Macro

Frage von EverestVB for Applications4 Kommentare

Hallo Excel-Spezialisten, ich habe eine Frage. Gibt es eine Möglichkeit, die Einstellung des Makros NUR für eine bestimmte Datei, ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 19 StundenWindows 103 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 22 StundenAdministrator.de Feedback16 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 1 TagHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Server-Hardware
Welche Rolle spielt Design bei Enterprise IT Hardware?
Frage von ApolloXServer-Hardware17 Kommentare

Ich arbeite für einen internationalen Elektronikhersteller in der Forschung und meine Aufgabe ist es, Feedback von Nutzern in Hinsicht ...

Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Netzwerk
Backup über WAN
Frage von petereWindows Netzwerk11 Kommentare

Hallo, ich muss aus einem entfernten WAN (synchrone 1Gbit) Daten sichern. Dabei handelt es sich sowohl um wenige große ...