Meinews.de - Newsgroup microsoft.public.de.excel

Ungesch�tzte Inhalte l�schen

Ralf Brinkmann — Sat, 21 Nov 2009 10:17:09 GMT

Hallo zusammen!

Gleiches Tabellenblatt, andere Frage:

Ich m�chte in meinem Kalender-Tabellenblatt (Excel 2003) alle nicht
gesperrten Zellinhalte mit einem Tastendruck l�schen k�nnen, um das
Blatt so m�glichst einfach f�r neue Eingaben in einem neuen Jahr frei zu
haben.

Ich dachte, ich k�nnte den Blattschutz aktivieren und einfach das
Ausw�hlen gesperrter Zellen verbieten, dann STRG-A und l�schen. Geht
aber nicht.

Muss ich das jetzt wieder �ber ein Riesen-Makro verwirklichen?

Gru�, Ralf
--
Windows XP Home SP3
Opera 10.10-1880

Versehentliche Zellsperrng

Ralf Brinkmann — Sat, 21 Nov 2009 10:03:41 GMT

Guten Morgen!

In einem Excel-2003-Tabellen-Kalenderblatt m�chte ich bei Eintrag eines
Namens, dass oben in A23 bis A30 nachgeguckt wird, welche Farbe
(Schriftfarbe, Hintergrund, Formatierung) eine Zelle hat und diese unten
�bernommen wird. Wenn ich den Eintrag wieder l�sche, soll die Zelle
wieder im Ursprungszustand (also leer und ohne irgendeine Formatierung)
sein. Das klappt auch soweit ganz gut, nur ist danach die Zelle aus
Versehen gesperrt. Wo liegt der Fehler?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
Set Target = Intersect(Range("D33:E398,J33:K398,P33:Q398,V33:W3 98"),
Target)
If Not Target Is Nothing Then
Dim rngName As Range
On Error Resume Next
Set rngName = Range("A23:A30").Find(Target.Value)
On Error GoTo 0
On Error GoTo ErrorHandler
Application.EnableEvents = False
If Not rngName Is Nothing Then
rngName.Copy Target
Else
Target.ClearFormats
End If
End If
ErrorHandler:
Application.EnableEvents = True
End Sub

Gru�, Ralf
--
Windows XP Home SP3
Opera 10.10-1880

Tastenkombination

Klaus K�rner — Sat, 21 Nov 2009 08:20:56 GMT

On Sat, 21 Nov 2009 09:28:53 +0100, Andreas Killer
wrote:

>Klaus K�rner schrieb:
>
>> gibt es in Excel 2003 eine M�glichkeit in einem Tabellenblatt, mit ca.
>> 100 Bl�ttern, mit der Tastatur zwischen den Bl�ttern vor und zur�ck
>> bzw. links und rechts zu wechseln?
>Strg-"Bild hoch" / Strg-"Bild runter". Dr�ckst Du Shift dabei, dann
>gruppierst Du die Bl�tter.
>
>Andreas.

Hall�chen,

Danke. Genau so eine m�glichkeit habe ich gesucht!

Sch�nes Wochenende

Klaus

wie kann ich z.B. die Rahmenlinienbox fixieren / freistellen?

Günter Neumann — Fri, 20 Nov 2009 19:20:02 GMT

]]>

Programm Code gesucht

Werner Kiefer — Fri, 20 Nov 2009 18:30:18 GMT

Am Fri, 20 Nov 2009 19:30:18 +0100 schrieb Werner Kiefer:

Hallo Werner,

> Ich habe eine Arbeitsmape mit einer Tabelle "Fehler auswertung"
> B1 entspricht z.B. der Fehlerh�figkeit von Frage 1, B2 von Frage 2 usw.
> es sind insgesamt 58 Fragen, diese Fragen sind mit jeweils 42 Fragen auf
> 3 Frageb�gen verteilt.
> Fragebogen A mit 42 fragen
> Fragebogen B mit 42 fragen
> Fragebogen C mit 42 fragen
> Es kann also vorkommen das eine Frage in allen 3 Frageb�gen vorhanden ist,
> z. B. Frage 5 / entspricht Frage A5 + B12 + C42

Du meinst: Bogen A B5, Bogen B B12, Bogen C B42? Und das Eergebnis soll die
Summe dieser drei Zellen ergeben?

> ich m�chte jetzt feststellen welche Fragenvon den 58 wieviel mal Falsch
> beantwortet wurden.
> Habe also ein UserForm eingef�gt mit 3 Register Entspricht Fagebogen a bis c
> mit jeweils 42 Schaltfl�chen, also frage 1, Frage 2, ....

Da es 58 Fragen gibt und z. B. Frage 3 auf dem ersten Register nicht
vorkommt (ist ja m�glich), was dann?

> jetzt suche ich den passenden CODE der folgendes ausf�hrt :
> bei klick auf eine Schaltfl�che z. B. bei Fragebogen A Frage 5
> w�hle Tabele "Fehler auswertung"
> wert von B5 = B5 +1

diese Formel verwirrt mich etwas

> ENDSUB

Zusammenfassend verstehe ich die Aufgabe so, dass f�r alle 58 Fragen
ermittelt werden soll, wieviele Fehler je Frage in der Gesamtheit der 3
B�gen auftreten.

Wenn es nicht ganz so schick (UserForm mit Registern) sein soll, dann lege
noch eine vierte Tabelle an und probiers mal mit diesem Code:

Sub Fehler()
Dim intI As Integer
Dim intTab As Integer
Dim wks(1 To 4)
Dim intZS As Integer
Dim rngTmp As Range

Set wks(1) = Worksheets("Tabelle1")
Set wks(2) = Worksheets("Tabelle2")
Set wks(3) = Worksheets("Tabelle3")
Set wks(4) = Worksheets("Tabelle4")

For intI = 1 To 58
For intTab = 1 To 3
Set rngTmp = wks(intTab).Range("A2:A59") _
.Find(what:=intI, lookat:=xlWhole)
If Not rngTmp Is Nothing Then
intZS = intZS + rngTmp.Offset(0, 1).Value
End If
Next
wks(4).Range("A" & intI + 1).Value = intI
wks(4).Range("B" & intI + 1).Value = intZS
intZS = 0
Next
End Sub

--
Mit freundlichen Gr�ssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de

Arbeitszeit aus zwei Uhrzeiten in einer Zelle berechnen

Ralf Brinkmann — Fri, 20 Nov 2009 17:49:00 GMT

Hallo Stefan und Felix!

*Stefan J.*:

> =RECHTS(A1;5)-LINKS(A1;5)

Das ist ja einfacher als ich dachte. Danke!

Was war nochmal gleich der Unterschied zwischen hh:mm und [h]:mm?

Gru�, Ralf
--
Windows XP Home SP3
Opera 10.10-1880

Seite als PDF drucken mit generiertem Dateinamen

Stefan J. — Fri, 20 Nov 2009 14:25:02 GMT

Stefan J. schrieb:

> Benutze excel 2003 sp3
> Gehe über ScanSoft PDF-create - eingerichtet als Drucker,
Wenn Du kannst dann installier Dir mal den PDFCreator, der hat eine
Schnittstelle und im Verzeichnis
C:\Programme\PDFCreator098\COM\MS Office
auch Beispiele drin. Und kuck auch mal hier:

http://www.excelguru.ca/node/22

Andreas.

Excel - Makro für Online Telefonbuch

Sailor — Fri, 20 Nov 2009 12:51:01 GMT

J�rg Eisentr�ger schrieb:

> Das Ergebnis eines Internet-Formulars wird ja letztlich - zumindest
> h�ufig - dadurch abgefragt, dass eine URL aufgerufen wird, die die
> Suchkriterien beinhaltet. Wenn es also gelingt, die Syntax des
> URL-Suchstrings zu ermitteln und ihn per VBA nachzubilden, muss man
Tjaha, *wenn* es eine Such-URL g�be *und dann* das Ergebnis eindeutig
ist *und*...

> keine Felder ausf�llen und keinen Button dr�cken, sondern kann die
> Excel-Funktion "Externe Daten importieren > Neue Webabfrage erstellen
> ..." verwenden (mit Makro-Recorder aufzeichnen).
....die Ergebnis-Webseite immer gleich aussieht, *dann*...

> Mit Wechselkurs-Abfragen von oanda.com habe ich das erfolgreich
> hingekriegt. Dort gibt es ein eindeutiges oder kein Ergebnis (letzteres
> bei ung�ltigen Suchkriterien). Die importierte Ergebnistabelle l�sst
> sich gut per VBA auswerten.
funktioniert das alles nur solange bis der Webseitenbetreiber eine
Klitze-Kleinigkeit �ndert.

Und wenn er merkt das sein Server deswegen �berlastet ist weil alle
Welt permanent seine Daten abfragt, weil's ja so sch�n einfach geht,
dann ist die �nderung meist nicht weit, die das Abfragen verhindert.

Ich hab sogar noch ein St�ck alten Code gefunden, mit dem ich mich
damals probiert hatte eine Webseite auszuf�llen, als Verweis braucht
es dazu "Microsoft Internet Controls" und "Microsoft HTML Object Library"

Andreas.

Public IE As InternetExplorer
Public Dict As Object
Dim Item As Object
Dim SW As New ShellWindows

Sub Load_IE(ByVal URL As String)
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
' IE.Left = 0
' IE.Top = 0
IE.Navigate URL
End Sub

Sub Fill_IE()
Const MaxItemNames = 12
Const MaxSkipNames = 9
Dim ItemNames(1 To MaxItemNames) As Variant
Dim CountNames(1 To MaxItemNames) As Integer
Dim SkipNames(1 To MaxSkipNames) As String

Dim FirstNameField As Boolean

SkipNames(1) = "antwort"
SkipNames(2) = "frage"
SkipNames(3) = "airport"
SkipNames(4) = "startdate"
SkipNames(5) = "enddate"
SkipNames(6) = "mobil"
SkipNames(7) = "search"
SkipNames(8) = "suchen"
SkipNames(9) = "titel"

ItemNames(1) = Array("anrede", "geschlecht", "gender")
ItemNames(2) = Array("name")
ItemNames(3) = Array("vorname", "firstname")
ItemNames(10) = Array("str", "adress", "address", "anschr")
ItemNames(5) = Array("nr", "nummer", "haus")
ItemNames(6) = Array("plz", "postleitzahl", "zip", _
"postcode", "postalcode")
ItemNames(7) = Array("stadt", "ort", "location", "city")
ItemNames(8) = Array("land", "country")
ItemNames(9) = Array("tel", "telefon", "phone", "vorw", "fon")
ItemNames(4) = Array("mail")
ItemNames(11) = Array("alter", "age")
ItemNames(12) = Array("tag", "day", "monat", "month", "jahr", _
"year", "gebtag", "gebmon", "gebja", "geburt", "geboren", _
"datum", "birth", "date", "gebdat")

On Error Resume Next
If Dict Is Nothing Then Load_Dict
On Error GoTo 0

For I = 0 To SW.Count - 1
Set IE = SW.Item(I)
If Not IE Is Nothing Then
'And Not IE.Busy Then
If Left(IE.LocationURL, 4) = "http" Then
FirstNameField = True
Domain = GetDomain(IE.LocationURL)
For K = 1 To MaxItemNames
CountNames(K) = 0
Next

Found = False
For Each Item In IE.Document.all
'For Each Item In IE.Document.frames.Document.all
On Error Resume Next
Key = Domain & "^" & Item.Name
If Err.Number = 0 Then
If Dict.Exists(Key) Then
Found = True
Item.Value = Dict.Item(Key)
Else
Select Case TypeName(Item)
Case "HTMLFrameElement":
For Each FI In Item.contentWindow.Document.all
If TypeName(FI) = "HTMLInputElement" Then
'Stop
End If
Next
Case "HTMLInputElement":
Select Case Item.Type
Case "text":
For J = 1 To MaxItemNames
For K = 0 To UBound(ItemNames(J))
If InStr(1, Item.Name, ItemNames(J)( _
K), vbTextCompare) > 0 Then
CountNames(J) = CountNames(J) + 1
Exit For
End If
Next
Next
End Select
End Select
End If
End If
Next
On Error GoTo 0

If Not Found Then
For Each Item In IE.Document.all
I = I
Select Case TypeName(Item)
Case "HTMLSelectElement":
If Item.Type = "select-one" Then GoSub FillThis
Case "HTMLInputElement":
Select Case Item.Type
Case "text": GoSub FillThis
Case "radio": GoSub FillThis
End Select
End Select
Next
End If
End If
End If
Next
Exit Sub

FillThis:
If Dict.Exists(Item.Name) Then
Item.Value = Dict.Item(Item.Name)
Return
End If

For J = 1 To MaxSkipNames
If InStr(1, Item.Name, SkipNames(J), vbTextCompare) > 0 _
Then Return
Next

For J = 1 To MaxItemNames
For K = 0 To UBound(ItemNames(J))
If InStr(1, Item.Name, ItemNames(J)(K), vbTextCompare) > _
0 Then
Select Case J
Case 1: Item.Value = "Herr"
End Select
Return
End If
Next
Next
Return
End Sub

Tourenplaner

J�rgen Schulz — Fri, 20 Nov 2009 09:02:10 GMT

Eberhard Funke wrote:
> Am Fri, 20 Nov 2009 20:16:02 +0100 schrieb J�rgen Schulz:
>
>> Eberhard Funke wrote:
>>>> ...Ergebnis 0=OK;1=doppelt;2=fehlt zur�ckgibt (Auswertung dann mit
>>>> Bedingte Formatierung).
>>>
>>> Es kann aber eine Tour mehrfach und eine andere Tour �berhaupt nicht
>>> eingetragen sein; was dann?
>>
>>
>> Na doch, doppelte und fehlende Touren werden auch in meiner Funktion
>> angezeigt.
>>
>
> Hallo J�rgen,
>
> nochmals: was soll denn die benutzerdef. Fkt anzeigen, wenn an einem
> Tag *sowohl* Touren fehlen *als auch* Touren mehrfach eingetragen
> wurden?

Hallo Eberhard,

oh, "sowohl als auch" ist ja gar nicht ber�cksichtigt. Die Funktion
bricht steigt aus, sobald eine Tour fehlt oder doppelt ist...

Das ganze ist nicht besonders hilfreich wenn die Touren noch mehr
werden, dann wird das ja eine ewige Sucherei welche Tour noch fehlt.

Da kommt mir eine Idee: Wenn ich die G�ltigkeit der Zellen �ndere, also
die Touren rausnehme aus der Liste die an dem Tag schon vergeben sind.
Dann kann ich keine doppelten eingeben und sehe in der Auswahlliste
welche noch fehlen.

J�rgen

Hyperlink wiederherstellen

Stefan J. — Fri, 20 Nov 2009 08:00:01 GMT

Problem hat sich erledigt, hab`s herausgefunden:
ActiveSheet.Hyperlinks.Add Anchor:=Selection,
Address:=ActiveCell.FormulaR1C1, TextToDisplay:=ActiveCell.FormulaR1C1
--
Stefan

"Stefan J." schrieb:

> Hallo zusammen,
>
> habe ein Blatt, in dem 2 Spalten mit Hyperlinks belegt sind, um schnell an
> die jeweiligen Dateien (pdf und doc) zu gelangen. Beim Kopiervorgang durch
> ein anderes Macro sind aber jetzt alle Hypelink-Funktionen deaktiviert. In
> den Zellen steht aber immer noch der jeweilige Pfad. Manuell gehe ich in die
> relevante Zelle, kopiere dann aus der Funktionszeile den Inhalt (Pfadangabe)
> und kopiere diesen nach Ctrl-k (Hyperlink) mit Ctrl-V in das entsprechende
> Eigabefeld der Hyperlink-Funktion.
> Nehme ich dies mit dem Recorder auf und starte es dann neu, ist aber der
> Pfad immer derselbe und das Kopieren funktioniert auch nicht.
> => Wie kann ich den Pfad der aktiven Zelle mit der Hyperlink-Funktion wieder
> aktivieren (und warum wurde die Hyperlinkfunktion überhaupt erst deaktiviert)?
> --
> Stefan

Leere Zellen entfernen

kjn — Thu, 19 Nov 2009 16:03:03 GMT

Gr�ezi kjn

On 19 Nov., 17:03, kjn wrote:
>
> wie kann ich mit einem shortcut leere zellen in einer Tabelle aufeinmal
> entfernen?
> Habe das gerade im Seminar gelernt und habe es mir nicht aufgeschrieben.

In der Regel reicht da ein einfaches Sortiern aus - die leeren Zeilen
befinden sich dann unterhalb der Daten.

--
Mit freundlichen Gr�ssen

Thomas Ramel
- MVP f�r MS-Excel -

PT: sortieren

Erdmut Siebert — Thu, 19 Nov 2009 15:37:41 GMT

"Erdmut Siebert" schrieb im Newsbeitrag
news:ugWFqhbaKHA.428*TK2MSFTNGP06.phx.gbl...
>
> "Thomas Ramel" schrieb im Newsbeitrag
> news:evdzvs2jzm0r$.x0mwcxdk3w5q.dlg*40tude.net...
>> Gr�ezi Erdmut
>>
>> Erdmut Siebert schrieb am 20.11.2009
>>
>>> ich m�chte keine Spalten sortieren, sondern im Berichtsfilter die Felder
>>> Monat , KW und Tag. In Feldeinstellungen fehlt die Sortierfunktion, die
>>> in
>>> Excel 2000 vorhanden ist.Im Register PivotTable-Tools/Optionen ist die
>>> Sortierfunktion ausgegraut, wenn ich ein Feld im Berichtsfilter
>>> anklicke.
>>> Ich hoffe, mich besser ausgedr�ckt zu haben .
>>
>> Verschiebe das Feld (die Felder) tempor�r in die Zeilenbeschriftung und
>> lege dort die Sortierung fest. Bewege sie dann anschliessend wieder
>> zur�ck
>> in den Berichtsfilter.
>>
>>
>> Mit freundlichen Gr�ssen
>> Thomas Ramel
>>
>> --
>> - MVP f�r Microsoft-Excel -
>> [Vista Ultimate SP-1 / xl2007 SP-1]
>
> Hallo Thomas,
>
> das funzt auch nicht,wenn ich die Felder in die Zeilenbeschriftung
> verschiebe, sind sie aus der PT verschwunden!?

Moin Thomas,

nach vielem hin-und herschieben ist es mir doch gelungen, die Sortierung
einzustellen...das kommt mir wie ein Gl�cksspiel vor. Gegen�ber Excel 2000
ist das aber eine Verschlechterung.

Dir und Ute vielen Dank

Servus Erdmut

Hyperlinks einfügen Sortierung

Tim Wolf — Thu, 19 Nov 2009 14:54:04 GMT

Hallo Tim,

> beim einfügen von Hyperlinks öffnet sich ja ein mini-Explorer Fenster.
Rechts oberhalb dieses Mini-Explorers gibt es einen Knopf "nach Datei suchen"
mit dem Symbol zum Öffnen einer Datei. Daraufhin öffnet sich die nächst größere
Explorer-Variante mit dem Titel "mit Datei verknüpfen". Dort ist wiederum rechts
oben ein Knopf "Ansichten", hier stelle um auf "Details". Jetzt kannst Du wie im
richtigen Explorer auf die Spaltenüberschriften klicken zum Umsortieren.

Gruß
Bernhard Sander

in Excel einen Wert nur im letzten Monat eines Quartals anzeigen

kerwed — Thu, 19 Nov 2009 13:03:02 GMT

Indem Du Deine E-Mail-Adresse hier angibst, bekommst Du wahrscheinlich eine
Menge Spam, aber keine Antworten. Die musst Du Dir schon selbst abholen (und
Dein Problem etwas genauer schildern).

Viele Gr��e
Ute

fehler bei verweis auf anderes tabelenblatt

Michael Feske — Thu, 19 Nov 2009 12:36:01 GMT

Michael Feske schrieb:

> tabellenblatt navigieren und bestätigen), manchmal steht dann aber nicht der
> Inhalt der Zelle sondern einfach nur der verweis da, also zum beispiel
> =tabelle1!a1!
> Was mache ich den da falsch?
Die Zelle ist als Text formatiert.

Andreas.