Beiträge von NoxX

Zitat

Original geschrieben von Jochen
Habe mich mal in den X6 gesetzt. Die Sicht nach hinten ist miserabel, wie das eine Bild verdeutlicht.

hm... an deinen geheimratsecken kann man aber gut vorbeischauen

mit den 110euros könnte man quelle-mobile bezahlen und hätte noch 25 MMS kostenlos im monat

wichtiger finde ich die frage, ob t-com nun in bzw von der USA probleme bekommt.

alle in der u.s. börse notierte unternehmen müssen ja dem SOX akt zustimmen...

im sox akt gehts ja eher um korrektheit der bilanzierung um bilanzskandale wie
damals zu verhindern, aber liest man diesen auszug

Zitat

Der Sarbanes-Oxley Act (SOX) wurde im Juli 2002 vom US-Kongress erlassen, um das Vertrauen der Öffentlichkeit in Wertpapiere wiederherzustellen, Führungspraktiken in Unternehmen zu verbessern, ethische Geschäftspraktiken zu fördern und die Transparenz sowie die Vollständigkeit von Bilanzen zu erhöhen.

und :cool:

Zitat

...ein Höchstmaß an Datensicherheit und den Schutz gegen Manipulationen jeglicher Art.
Darüber hinaus müssen CEO und CFO eidesstattlich und schriftlich versichern, dass die veröffentlichten Daten ihres Unternehmens korrekt angegeben und durch interne Kontrollen abgesichert sind. ...
Drakonische Strafen warten auf Unternehmer, die eine fehlerhafte Versicherung an Eides Statt abgeben. Sie haben nicht nur zivilrechtliche Folgen zu fürchten, sondern machen sich auch strafbar.

ob da auch noch etwas kommt?

jo laubi, recht hast du.
erinnert mich an ein anderes thema hier als plötzlich jemand mit der bmw vergangenheit um die ecke kam

ich wunder mich allerdings, das einer der grössten skandale der nachkriegszeit
bei TT keine grössere beachtung findet :confused:

[URL=http://www.spiegel.de/wirtschaft/0,1518,556879,00.html]Ricke und Zumwinkel [/URL] sind ja jetzt auch im visier - das thema wird wohl noch grössere kreise ziehen

und was sagt der rechtsanwalt ?

tu deiner freundin etwas gutes und wechsel doch nach d1

hm... da ich kein outlook nutze hat mir ein freund seine kontakte als excel datei exportiert und zugeschickt.

also vorausgesetzt deine excelliste mit deinen kontakten hat auch 91 spalten und
überschriften (von A bis CN), beginnend mit Anrede, Vorname, WeitereVornamen ...
bis WeiteresPostfach und in folgenden spalten stehen die relevanten informationen:
- zeile1 die überschriften
- spalte D "Nachname"
- spalte AF "Telefongeschäftlich"
- spalte AL "Telefonprivat"
- spalte AO "Mobiltelefon"
dann könnte folgendes makro funktionieren - zumindest funktioniert es bei mir

1. eine kopie deiner exceldatei erstellen
2. kopie öffnen und ALT+F11 drücken
3. im VBA Projekt (linkes fenster) doppelklick auf "Tabelle1"
4. rechts im fenster folgenden code einfügen, in den code klicken und F5 zum starten drücken

Sub KontakteAufbereiten()
Dim Anzahl As Integer, i As Long, x As Long
Dim TelGes As Boolean, TelPri As Boolean, Handy As Boolean


i = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row - 1 'anzahl zeilen ohne überschrift
Range("a2").Select


For x = 1 To i 'schleife start


    Anzahl = 0
    TelGes = False
    TelPri = False
    Handy = False

    If Selection.Offset(0, 31).Value <> "" Then TelGes = True 'telefon geschäftlich spalte AF
    If Selection.Offset(0, 37).Value <> "" Then TelPri = True 'telefon privat spalte AL
    If Selection.Offset(0, 40).Value <> "" Then Handy = True 'mobil spalte AO

    'anzahl ermitteln
    If TelGes = True Then Anzahl = Anzahl + 1
    If TelPri = True Then Anzahl = Anzahl + 1
    If Handy = True Then Anzahl = Anzahl + 1

If Anzahl < 2 Then 'max 1 eintrag vorhanden, in Spalte D (nachname) die eintragsart hinzufügen
    If TelGes = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Geschäftlich"
    If TelPri = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Privat"
    If Handy = True Then Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Mobile"
    Selection.Offset(1, 0).Select 'zur nächsten zeile springen
    GoTo Nächster_Eintrag: 'zum ende springen
End If


Dim AktuelleZeile As String 'aktuelle zeile auslesen
AktuelleZeile = Mid(ActiveCell.Address, InStr(3, ActiveCell.Address, "$") + 1)

    For y = 1 To Anzahl - 1 'anzahl wie oft die zeile kopiert werden muss
        Rows(AktuelleZeile & ":" & AktuelleZeile).Select 'aktuelle zeile markieren
        Selection.Copy 'kopieren
        Selection.Insert Shift:=xlDown 'einfügen
    Next y


    'daten ändern
    For y = 1 To Anzahl
        ActiveCell.Select
        If TelGes = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Geschäftlich"
            Selection.Offset(0, 37).Value = ""
            Selection.Offset(0, 40).Value = ""
            TelGes = False
            GoTo Nächse_Änderung:
        End If
        If TelPri = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Privat"
            Selection.Offset(0, 31).Value = ""
            Selection.Offset(0, 40).Value = ""
            TelPri = False
            GoTo Nächse_Änderung:
        End If
        If Handy = True Then
            Selection.Offset(0, 3).Value = Selection.Offset(0, 3).Value & " Mobile"
            Selection.Offset(0, 31).Value = ""
            Selection.Offset(0, 37).Value = ""
            TelGes = False
            GoTo Nächse_Änderung:
        End If
Nächse_Änderung:
    Selection.Offset(1, 0).Select 'zur nächsten kopierten zeile springen
    Next y


Nächster_Eintrag:


Next x


MsgBox "Aufbereitung vollständig", vbInformation, "OK"
End Sub

aber wie gesagt, ob es funktioniert und wie du die liste zurückspielst.....
da habe ich echt kein plan von.
natürlich alles auf deine eigene gefahr hin

kurz noch dazu was das makro macht:

es schaut nach, ob die spalten "TelefonGeschäft", "-Privat" und/oder "Mobil" gefüllt sind
und kopiert die zeile entsprechend der benötigten änderungen.
danach wird der "Nachname" erweitert und die nicht mehr benötigten einträge gelöscht.

relativ interessanter artikel gibts von der rheinischen post
Gastankstellen werden teurer

Zitat

Original geschrieben von harlekyn
- Mobilfunkminuten: 42,008 Mrd. (+25,5 %)

Pro Kunde sind die Minuten aber nur von 102 auf 109 Minuten/Monat gestiegen - wie sollen das 25% sein?!

die 25% beziehn sich doch auf die minuten im jahresgeschäft.
2006/07 33,472 Mrd. minuten
2007/08 42,008 Mrd. minuten
und das sind die 25%

wie die das mit 102 > 109 minuten begründen ist aber ein kleines mathe rätsel
so über den daum gepeilt müsste der anstieg doch von >90 auf 109minuten sein :confused:

da behaupte noch jemand, mit vodafone telefoniert keiner

Zitat

Original geschrieben von ompre
Zu Vodafone sag ich nur: Netzausfall

was hat der erste (mir bekannte) grosse netzausfall seit >12jahren im april/mai 08
mit den 1. quartalszahlen 2008 bzw dem geschäftsjahr 07/08 zu tun?
in sachen netzausfällen liegt t-mobile doch ganz weit vorne oder?

also wenn es auch bissel ruhig haben willst, dann dahme :top: