Toto-Forum und Wettforum - Betting-Planet.com

TOTO Deutschland (Dreizehnerwette, Auswahlwette), TOTO Österreich (5+8er-Wette), Sportwetten (Fußball, Eishockey, Tennis & mehr)
Aktuelle Zeit: 24. Feb 2018, 05:25

Alle Zeiten sind UTC+01:00




Ein neues Thema erstellen  Auf das Thema antworten  [ 5 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Umwandlung von Excel-Tabellen
BeitragVerfasst: 2. Mai 2011, 10:25 
Offline
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)

Registriert: 7. Aug 2007, 11:30
Beiträge: 8541
Hallo zusammen,

wer meine Postings (insbesonderr zur TG der Statistik-Freaks) verfolgt, weiß, dass ich unsere Tipps immer in einem umgewandelten Excel-Format direkt hier ins Forum eingetragen habe. Ich nutze dafür picupload.

Leider habe ich das Tool/Programm zur Umwandlung der Excel-Tabellen (hatte mir Meisterkeks damals geschickt) aus Versehen gelöscht (komplett). Kann mir einer weiterhelfen und sagen, wo ich dieses Tool finde. Nach dem Öffnen der Datei erschien in Excel ein Unterpunkt (bei "Datei"), den man nutzen konnten, um einen markierten Bereich umzuwandeln.

Wäre super, danke Euch!


Nach oben
   
BeitragVerfasst: 28. Mai 2013, 17:09 
Offline
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)

Registriert: 7. Aug 2007, 11:30
Beiträge: 8541
Hallo zusammen,

nachdem ich meinen PC auf 64-Bit-System umgestellt habe, läuft das Programm leider nicht mehr :-(

Vielleicht kennt sich damit einer aus oder hat das Programm für das neue System ja?

Es heißt "Markierten Bereich als Grafik speichern", ist mit MS Visual Basic for Applications erstellt worden und wird wie folgt beschrieben:

'= Module: modPublic =
'= Type: Standard Module =
'= =
'= Developer: Rob Bruce =
'= Date: 06-Sep-1999 =
'= =
'= Description: Public routine for the Range To GIF utility. =
'= =
'= Subprocedures: sRangeToGIF =
'= Functions: None =
'= Properties: None =
'= DLL Declares: None


Also, wo sind die Excel-Experten? Danke vorab!!!

PS: Ansonsten hat vielleicht einer nen Tipp, wie ich aus Excel heraus Bilder meiner Tipps erstellen kann, die man dann z.B. über http://www.pic-upload.de/ hochladen und hier einstellen kann. Danke!


Nach oben
   
BeitragVerfasst: 29. Mai 2013, 20:11 
Offline
Toto-Analyst (jo)
Toto-Analyst (jo)
Benutzeravatar

Registriert: 3. Feb 2008, 00:06
Beiträge: 4934
Wohnort: Hinter den Bergen bei den 7 Zwerg-innen- (manchmal auch in Vancouver)
Aufsteiger hat geschrieben:
Hallo zusammen,

nachdem ich meinen PC auf 64-Bit-System umgestellt habe, läuft das Programm leider nicht mehr :-(

Vielleicht kennt sich damit einer aus oder hat das Programm für das neue System ja?

Es heißt "Markierten Bereich als Grafik speichern", ist mit MS Visual Basic for Applications erstellt worden und wird wie folgt beschrieben:

'= Module: modPublic =
'= Type: Standard Module =
'= =
'= Developer: Rob Bruce =
'= Date: 06-Sep-1999 =
'= =
'= Description: Public routine for the Range To GIF utility. =
'= =
'= Subprocedures: sRangeToGIF =
'= Functions: None =
'= Properties: None =
'= DLL Declares: None


Also, wo sind die Excel-Experten? Danke vorab!!!

PS: Ansonsten hat vielleicht einer nen Tipp, wie ich aus Excel heraus Bilder meiner Tipps erstellen kann, die man dann z.B. über http://www.pic-upload.de/ hochladen und hier einstellen kann. Danke!


Versuchs mal über http://xlforum.herber.de/ , falls hier niemand etwas weiß.

_________________
Das Schöne am Toto: man kann´s nicht vorher sagen.
Das Doofe am Toto: man kann´s nicht vorher sagen.


Nach oben
   
 Betreff des Beitrags: Re: Umwandlung von Excel-Tabellen
BeitragVerfasst: 3. Jul 2013, 09:07 
Offline
Tipp-Routinier

Registriert: 1. Dez 2007, 09:30
Beiträge: 270
Hallo,

ist das Problem am Thread-Anfang noch aktuell? Ich bin relativ fit in VBA. Habe dieses Forum erst vor kurzem wiederentdeckt und antworte daher erst jetzt.

Ich glaube nicht, dass das Problem am 64bit Windows hängt, sondern an der genutzten Office/Excel-Version. Sicherlich hattest du vorher Excel 2003 und nun 2007 oder neuer.

Kannst mir gerne mal die Datei zukommen lassen und ich guck mir die Sache an.

Als Quick-n-Dirty könntest du nachfolgendes Makro probieren. Bei mir hat es unter 2003 und 2010 funktioniert. Nur stimmen die Begrenzungsränder nicht 100%.

Reddi

Code:
Option Explicit
'Harold Staff -- see http://www.mvps.org/dmcritchie/excel/xl2gif.htm
'XL2GIF_module -- GIF_Snapshot
Dim container As Chart
Dim containerbok As Workbook
Dim Obnavn As String
Dim Sourcebok As Workbook

Function SelectArea() As String
Dim Internrange As Range
On Error GoTo Brutt
Set Internrange = Application.InputBox("Select " _
    & "range to be photographed:", "Picture Selection", _
    Selection.AddressLocal, Type:=8)
SelectArea = Internrange.Address
Exit Function
Brutt:
SelectArea = "A1"
End Function

Function sShortname(ByVal Orrginal As String) As String
Dim iii As Long
sShortname = ""
For iii = 1 To Len(Orrginal)
If Mid(Orrginal, iii, 1) <> " " Then _
      sShortname = sShortname & Mid(Orrginal, iii, 1)
Next
End Function

Private Sub ImageContainer_init()
Workbooks.Add (1)
ActiveSheet.Name = "GIFcontainer"
Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Worksheets(1).Range("A1")
    ActiveChart.Location Where:=xlLocationAsObject, _
      Name:="GIFcontainer"
ActiveChart.ChartArea.ClearContents
Set containerbok = ActiveWorkbook
Set container = ActiveChart
End Sub

Sub MakeAndSizeChart(ih As Long, iv As Long)
Dim Hincrease As Single
Dim Vincrease As Single
Obnavn = Mid(ActiveChart.Name, Len(ActiveSheet.Name) + 1)
Hincrease = ih / ActiveChart.ChartArea.Height
Obnavn = Right(Obnavn, Len(Obnavn) - 1)
ActiveSheet.Shapes(Obnavn).ScaleHeight Hincrease, _
   msoFalse, msoScaleFromTopLeft
Vincrease = iv / ActiveChart.ChartArea.Width
ActiveSheet.Shapes(Obnavn).ScaleWidth Vincrease, _
   msoFalse, msoScaleFromTopLeft
End Sub

Public Sub GIF_Snapshot()
Dim varReturn As Variant
Dim MyAddress As String
Dim SaveName As Variant
Dim MySuggest As String
Dim Hi As Long
Dim Wi As Long
Dim Suffiks As Long

Set Sourcebok = ActiveWorkbook
MySuggest = sShortname(ActiveSheet.Name)
ImageContainer_init
Sourcebok.Activate
MyAddress = SelectArea
If MyAddress <> "A1" Then
    SaveName = Application.GetSaveAsFilename( _
      InitialFileName:=MySuggest _
      & ".gif", fileFilter:="Gif Files (*.gif), *.gif")
    Range(MyAddress).Select
    Selection.CopyPicture Appearance:=xlScreen, _
       Format:=xlBitmap
    If SaveName = False Then
        GoTo Avbryt
    End If
    If InStr(SaveName, ".") Then SaveName _
        = Left(SaveName, InStr(SaveName, ".") - 1)
    Selection.CopyPicture Appearance:=xlScreen, _
       Format:=xlBitmap
    Hi = Selection.Height + 4  'adjustment for gridlines
    Wi = Selection.Width + 6   'adjustment for gridlines
    containerbok.Activate
    ActiveSheet.ChartObjects(1).Activate
    MakeAndSizeChart ih:=Hi, iv:=Wi
    ActiveChart.Paste
    ActiveChart.Export Filename:=LCase(SaveName) & _
         ".gif", FilterName:="GIF"
    ActiveChart.Pictures(1).Delete
    Sourcebok.Activate
End If
Avbryt:
On Error Resume Next
Application.StatusBar = False
containerbok.Saved = True
containerbok.Close
End Sub


Nach oben
   
 Betreff des Beitrags: Re: Umwandlung von Excel-Tabellen
BeitragVerfasst: 3. Jul 2013, 09:33 
Offline
Tipp-Spezialist (auf)
Tipp-Spezialist (auf)

Registriert: 7. Aug 2007, 11:30
Beiträge: 8541
Danke Dir. Habe (aus anderen Gründen) auf 32-bit-Office-Version (2010) umstellen müssen, jetzt klappt es zum Glück wieder. Wobei die Grafiken nicht voll angezeigt werden, sondern verkleinert. Wenn Du mir per PN Deine Mailadresse schickst, sende ich Dir die Datei mal zu.

Danke und LG

Thomas (Aufsteiger)


Nach oben
   
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen  Auf das Thema antworten  [ 5 Beiträge ] 

Alle Zeiten sind UTC+01:00


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.

Suche nach:
Gehe zu: