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
GELÖST

Excle 2010 : Leere Zelle in Spalte bei Spaltenwechsel automatisch anspringen

Frage Microsoft Microsoft Office

Mitglied: FAAB58

FAAB58 (Level 1) - Jetzt verbinden

17.11.2014, aktualisiert 13:37 Uhr, 913 Aufrufe, 7 Kommentare, 1 Danke

Moin Moin,

tja, was soll ich sagen, Neuling in der Makroerstellung bei Excel braucht bitte einen Tipp.

a.)
Ich brauche ein Makro, welches in dem Bereich einer Arbeitsmappe ( z.B. B11:K30 ) immer in die nächste freie Zelle von oben in einer Spalte springt, wenn ich die Spalte wechsle.

Hier sollen dann Zahlen eingegeben werden.

b
Vertippt man sich bei der Eingabe, müsste dann eine eine einfache Korrekturmöglichkeit her. Grundsätzlich wäre das ja über die Rückgängig Schaltfläche möglich. Bei späteren Korrekturen jedoch nicht. Ich stelle mir eine Zelle oberhalb des Bereiches vor, die als Schaltfläche dient; aktiviert Korrekturen wieder zulässt und deaktiviert das Makro unter a normal ablaufen läßt.


Im Netz finde ich vieles, aber nicht dieses Problem.

Hat jemand hierzu eine Idee ?

LG Frank
Mitglied: Meierjo
17.11.2014 um 11:48 Uhr
Hallo

Ich brauche ein Makro, welches in dem Bereich einer Arbeitsmappe ( z.B. B11:K30 ) immer in die nächste freie Zelle von oben
in einer Spalte springt, wenn ich die Spalte wechsle.
Sollte mit folgendem Code im entsprechenden Worksheet funktionieren

01.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
02.
     
03.
    Application.EnableEvents = False 
04.
    If Target.Cells.Count > 1 Then GoTo ende 'wenn mehr als 1 Zelle markiert, beenden 
05.
    If Intersect(Target, Range("B11:K30")) Is Nothing Then GoTo ende 
06.
        MsgBox " ich bin im Bereich, und mache deshalb was", vbOKOnly 
07.
        Cells(1048576, Target.Column).End(xlUp).Offset(1, 0).Select 
08.
ende: 
09.
    Application.EnableEvents = True 
10.
End Sub

b
Vertippt man sich bei der Eingabe, müsste dann eine eine einfache Korrekturmöglichkeit her. Grundsätzlich wäre
das ja über die Rückgängig Schaltfläche möglich. Bei späteren Korrekturen jedoch nicht. Ich stelle
mir eine Zelle oberhalb des Bereiches vor, die als Schaltfläche dient; aktiviert Korrekturen wieder zulässt und
deaktiviert das Makro unter a normal ablaufen läßt.

Auf was für Falscheingaben soll reagiert werden?
Was ist richtig eingegeben, was falsch?
Gruss Urs
Bitte warten ..
Mitglied: colinardo
LÖSUNG 17.11.2014, aktualisiert um 13:37 Uhr
Hi Frank,
hier dazu noch ein Beispiel-Sheet: AutoChangeToEmptyCell_255007.xlsm, falls die angesprungenen leeren Zellen nur in deinem angegebenen Range liegen sollen.
01.
Dim oldColumn As Integer 
02.
 
03.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
04.
    Dim rngChange As Range 
05.
    Set rngChange = Range("B11:K30") 
06.
    If Not Application.Intersect(rngChange, Target) Is Nothing Then 
07.
        If oldColumn <> Target.Column Then 
08.
            Application.EnableEvents = False 
09.
            With rngChange 
10.
                If Cells(.Row, Target.Column) <> "" Then 
11.
                    Cells(.Row + .Rows.Count - 1, Target.Column).End(xlUp).Offset(1, 0).Select 
12.
                Else 
13.
                    Cells(.Row, Target.Column).Select 
14.
                End If 
15.
            End With 
16.
            Application.EnableEvents = True 
17.
            oldColumn = Target.Column 
18.
        End If 
19.
    End If 
20.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: Meierjo
17.11.2014 um 13:13 Uhr
Hallo Uwe

Bist wie immer, halt noch ne Spur besser

Gruss
Bitte warten ..
Mitglied: FAAB58
17.11.2014 um 13:47 Uhr
Also Beispiel :

in Spalte D sind von D11:D18 Werte eingegeben. 10,20,30,40,49,60,70 und 80

Hier ist jetzt in D15 der Wert 49, soll aber von Hand korrigiert werden.

Ich komme, da das Makro nun läuft nicht auf die fehlerhafte Zelle, denn es wird ja automatisch D19 angewählt.


Für die Korrektur bräuchte ich nun einen "Aus- / Anschaltknopf", damit ich die Zelle D15 ansteuern kann und den Wert darin überschreiben kann.
Nach der Korrektur soll das Makro dann wie gehabt laufen.
Bitte warten ..
Mitglied: Meierjo
17.11.2014 um 14:06 Uhr
Hallo

doch, mit dem Makro von Colinardo funktioniert, wenn du den Cursor in Spalte D plaziert hast, und dann zb 2 Zeilen weiter oben plazierst, wird das Marko nicht ausgeführt, dann kannst du einen vorhandenen Wert korrigieren

Gruss
Bitte warten ..
Mitglied: colinardo
17.11.2014, aktualisiert um 14:11 Uhr
@Meierjo:Yip, der TO hat mir gerade via PM mitgeteilt das sein Problem nun gelöst ist. Teil b war ja quasi nur ein möglicher Workaround bei Codes die er sonst benutzt hat. Aber das hat mein Code ja schon berücksichtigt indem der Zellwechsel nur beim wechseln der Spalte stattfindet.
Bitte warten ..
Mitglied: Meierjo
17.11.2014 um 14:14 Uhr
Hallo Uwe

Ja, habe mit erlaubt, deinen Code-Schnipsel zu kopieren, kann ich sicherlich auch mal gebrauchen.

Gruss Urs
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Excel 2010: Mittels VBA Inhalte der Spalten A,B,C aus Datei 1 kopieren in leere Zellen der Spalten D,E,F von Datei 2
Frage von br-mv2014Microsoft Office1 Kommentar

Hallo Allerseits. Habe in den Beiträgen zu obiger Aufgabenstellung bisher nichts gefunden, Sollte ich etwas übersehen haben bitte kurzen ...

Microsoft Office
VBA Excel bei manuellem Spaltenwechsel Arbeitsmappe automatisch sichern
gelöst Frage von FAAB58Microsoft Office3 Kommentare

Hallo liebe Gemeinde, ich habe ein Problem ( wie so viele andere ) und hoffe eine Idee zu bekommen. ...

VB for Applications
Bestimmten Wert einer Spalte löschen bzw leeren (Access 2010)
gelöst Frage von karlchristianVB for Applications2 Kommentare

Hallo, ich weis eine einfache Anfängerfrage, wie kann ich einen bestimmten Wert einer Spalte löschen/leeren Ich möchte nur das ...

Microsoft Office
Automatisches eintragen in zweite Zelle
gelöst Frage von Fisi93Microsoft Office2 Kommentare

Hallo, ich habe gerade ein kleines Problemchen festgestellt. Wir haben letztes Jahr eine aproche Anwendung abgelöst und daraus eine ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office9 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner15 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...