Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1480to1484
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
1480to1484
1480to1484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Problem beim Einfügen von Zahlen,Texten

Problem beim Einfügen von Zahlen,Texten
21.03.2016 10:52:07
Zahlen,Texten
Hallo Zusammen
Habe folgendes Problem:
Basis: Habe ein Sheet mit Blattschutz. Der User kann die Zellen A1:A10 bearbeiten. Das heißt, dieser Bereich hatte ich auch mit der rechten Maustaste "Zelle formatieren - Schutz -Gesperrt entfernt.
Problem: Wen ich jetzt eine offene Zelle zwischen A1:A10 selektiere und füge einen Text oder Zahlen aus der Zwischenablage ein, wird die Formatierung überschrieben und der Schutz von Gesperrt wieder aktiviert. Die Formatierung stört mich weniger aber warum wird der Schutz geändert, so dass die Zelle nicht mehr bearbeitbar ist?
Wenn es hierfür eine VBA Lösung gibt, wäre auch nicht schlecht!
Gruß Olli

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 11:06:26
Zahlen,Texten
Hallo Olli,
was willst du denn kopieren? Das Ergebnis einer Zelle oder die Formel einer Zelle oder die ganze Zelle? Wenn du nämlich die ganze Zelle kopierst, kopierst du logischerweise auch deren Formatierung mit! Und dazu gehört selbstverständlich auch, ob sie gesperrt oder frei ist.
Servus

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 11:22:31
Zahlen,Texten
Hallo Herbert
Habe aus einer Word oder PDF Datei ein Text oder Wort kopiert und einfügt. Das macht mich gerade so unsicher, denn da gibt es keine Zelle mit Schutz
Gruß Olli

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 11:29:31
Zahlen,Texten
Hallo Olli,
dann mache das Einfügen doch so: Gehe mit F2 in die Zielzelle und füge dann den Inhalt der ZA ein. Damit sollte der Zellschutz unangetastet bleiben.
Servus

Anzeige
AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 12:07:42
Zahlen,Texten
Hallo Herbert, Steve
Danke vorab für Eure Ideen. Es funktioniert beides.
Was mich noch interessieren würde, ob man über VBA z.B. über if target.address = "$a$1:$a$10" anwählt nur Inhalte eingefügt werden können.
Gruß Olli

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 12:10:51
Zahlen,Texten
Hallo Olli,
klar geht das, mit "xlValues"!
Servus

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 12:50:48
Zahlen,Texten
...und im ganzen Satz
Sheets("xxx").Range("$A$1:$A$10").Copy
Sheets("xxx").Range("$A$1:$A$10").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Servus

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 13:58:50
Zahlen,Texten
Hallo Herbert
Hatte eher an eine Lösung xlValues mit dem einfügen aus der allg. Zwischenablage gedacht.
Habe mal ein paar Zeilen eingefügt. Funktioniert aber leider nicht wie ich möchte
Option Explicit 
Private Sub Workbook_Activate()
Application.OnKey "^v", "Einfügen"
End Sub

Sub Einfügen()
If Application.CutCopyMode = xlCopy Then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Else
ActiveSheet.PasteSpecial Format:="Unicode-Text", Link:=False, _
DisplayAsIcon:=False
End If
End Sub

Anzeige
AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 15:48:58
Zahlen,Texten
Hallo Olli,
schau mal in der VBA-Hilfe nach der "GetFromClipboard-Methode".
Servus

AW: Problem beim Einfügen von Zahlen,Texten
21.03.2016 11:14:37
Zahlen,Texten
Hallo Olli,
das Kopieren ist leider etwas tricky, helfen würde da "Werte einfügen", da die Blattschutzeigenschaft der Zelle ebenfalls als Format zählt.
Einmal vergessen und "normal" eingefügt hast du wieder dein Problem. Daher empfehle ich diese Zeilen in den Code-Bereich deines Blattes einzufügen. Rechtsklick auf den Reiter des Blattes - "Code-Bereich anzeigen" und dort einfügen. 
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="123"
Range("A1:A10").Locked = False
ActiveSheet.Protect Password:="123"
End Sub
Damit wird bei jeder Änderung im Blatt die Schutzeigenschaft für deinen Bereich erneuert, auch nach dem Kopieren.
Das Passwort selbstverständlich anpassen.
Solltest du als Administrator des Blattes Änderungen am restlichen Blatt vornehmen wollen, wird _ dir das Makro jedoch ständig den Blattschutz wieder aktivieren, daher kann man mit diesem kurzen Code das erste Makro vorübergehend deaktivieren bzw. wieder einschalten. Nachdem Excel geschlossen wurde (nicht die Mappe sondern die komplette Anwendung) sind die Events automatisch wieder aktiv, solltest du es mal vergessen wieder einzuschalten bist du also auf der sicheren Seite. 

Sub EventsEinAus()
With Application
.EnableEvents = Not .EnableEvents
MsgBox "Events aktiv = " & .EnableEvents
End With
End Sub
lg Steve
Anzeige

309 Forumthreads zu ähnlichen Themen

Spaltentrennzeichen nach speichern in Text-Datei
Michael

Hallo
ich habe ein Problem. Vielleicht ist es schwierig, vielleicht aber auch nicht.
Ich habe eine Text-Datei mit Spaltentrennzeichen "|" (besser als ";" der Übersichtlichtlichkeit halber) und verschiedenen Längen der Spalten.
Ich will diese in Excel überarbeiten und als Text-Dat...
11.09.2008 09:28:00
Thread-ID: 1008978
3 Beiträge
Anzeige
Zeichenkette in einer Zellesuchen
Gordon

Moin,
ich habe in einer Zelle (A1) einen Namen plus ein Datum dazu stehen: "Max Mustermann (01.01.1900)"
Nun möchte ich überprüfen, ob diese Zeichenkette, also Name plus Datum, nochmals in der Zelle A2 steht.
In der Zelle A2 stehen mehrere dieser Zeichenketten. Diese sind in einer...
26.09.2008 12:54:00
Thread-ID: 1012601
4 Beiträge
in spalte müssen 2 gleiche zahlen vorh. sein ...
Jessi

hallo zusammen,
suche nach einem makro, dass in spalte A überprüft ob von den dort geschriebenen zahlen jeweils zwei gleiche vorhanden sind. es geht um eine doppelbelegung eines zimmers. die zahl ist die zimmer-nr.
wäre z.b. nur einmal eine zahl in der spalte, wäre es möglich in das jew...
04.10.2008 15:33:00
Thread-ID: 1014154
5 Beiträge
Anzeige
Unicode-Zeichen in Textfeld von Userform
Userform

Hallo,
Ich bin auf der Suche nach gut praktikablen Möglichkeiten in ein Textfeld eines Userforms Unicode-Zeichen (z.B. ć kleines c mit Akut - Code 0107 oder č kleines c mit Caron - Code 010D) einzutippen.
Danke im voraus für alle Tipps!
Grüße
Günther
12.10.2008 12:34:00
Thread-ID: 1015836
5 Beiträge
Eine Zahl mit vorhandener Zahlenliste vergleichen
Niklas

Hallo Leute!
Es geht darum, eine eingegebene Zahl mit einer vorhandenen Zahlenliste vergleichen und die beiden nächstgelegenen Zahlen der Zahlenliste verwenden!
zur veranschaulichung:
ich habe die die zahlenliste : 1 , 2, 3, 4, 5, 6, 7
der eingegebene Wert ist z.B 1.5 dann soll...
17.10.2008 09:49:22
Thread-ID: 1017045
8 Beiträge
vorgegebene Summe aus Zahlen berechnen
mArsupiLami

Moin!
Ich benötige um regelmäßige Fehlerkorrekturen laufen zu lassen ein Script, dem ich eine Summe vorgebe und eine Range aus Zahlen (von mir aus Zellen A:A), das mir die Zusammenstellung aus Zahlen berechnet, die meine gesuchte Summe ergeben (Noch besser: Alle Kombinationen aus der Zahlen...
21.11.2008 11:25:35
Thread-ID: 1026668
6 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Autofilter - Anzahl vorh. Sätze
KViertel

Hallo in die Runde,
In einem Tabellenblatt wird In VBA ein Autofilter gesetzt. Die dabei angezeigten Sätze sollen in ein anderes Tabellenblatt kopiert werden. Wenn jetzt keine Sätze vorhanden sind, wird die Sub abgebrochen. In der Recherche habe ich einen Hinweis zu Subtotal gefunden, weiß...
11.12.2008 11:45:00
Thread-ID: 1031999
3 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
11
3
4
3
4
7
5
3
2
4
2
2
5
2
7
11
2
4
4
3
4
5
10
2