Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 454 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 451, 452, 453, 454, 455, 456, 457 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zellenwerte hintereinander in String schreiben? 
Phelan XLPH

Antworten: 13
Aufrufe: 1916

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 15:39   Titel: AW: Zellenwerte hintereinander in String schreiben? Version: Office XP (2002)
@bst

Wie übergebe ich denn mehrere Bereiche?

So sind es ja wieder meherere parameter:
=Zeichenkette(A1:A4;A8;A11;",")

Werden in den Excel-Funktionen 30 Bereiche als Parameter definiert?
  Thema: Laufzeitfehler 16, Ausdruck zu komplex 
Phelan XLPH

Antworten: 4
Aufrufe: 1264

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 15:31   Titel: AW: Laufzeitfehler 16, Ausdruck zu komplex Version: Office 2007
Wenn dann schon sooooo----- Wink


Sub ph()
Dim dblWert As Double
dblWert = Range("B2").Value
Select Case 0.001
Case 0.0001 To dblWert: MsgBox "x"
End Select
End Sub
  Thema: Zellenwerte hintereinander in String schreiben? 
Phelan XLPH

Antworten: 13
Aufrufe: 1916

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 15:04   Titel: AW: Zellenwerte hintereinander in String schreiben? Version: Office XP (2002)
@DBKlempner
Bin halt minimalistisch veranlagt

...deswegen ist mein Code auch schneller!!!
  Thema: Baummenü in Excel automatisiert abbilden nach einlesen 
Phelan XLPH

Antworten: 6
Aufrufe: 1308

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 14:51   Titel: AW: Baummenü in Excel automatisiert abbilden nach einlesen Version: Office 2007
HALLO Herbie Laughing Laughing Laughing Laughing Laughing ,

Wie sehen denn die Daten nach import aus SAP aus?

Ich hab kein SAP.
  Thema: Zellenwerte hintereinander in String schreiben? 
Phelan XLPH

Antworten: 13
Aufrufe: 1916

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 14:29   Titel: AW: Zellenwerte hintereinander in String schreiben? Version: Office XP (2002)
Hallo,

eine Variante als UDF.

ins StandardModul:


Function Zeichenkette(Bereich As Range, Optional TrennZeichen As String = "") As String
Dim v As Variant
Dim B As Variant
B = Bereich
For Each v In B
Zeichenkette = Zeichenkette & TrennZeichen & v
Next
Zeichenkette = Mid$(Zeichenkette, Len(TrennZeichen) + 1)
End Function


Aufruf in einer Zelle:
Bsp. =Zeichenkette(D12:F12;",")
  Thema: Querytable Connectionproblem 
Phelan XLPH

Antworten: 33
Aufrufe: 2613

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 14:08   Titel: AW: Querytable Connectionproblem Version: Office 2007
Hallo,

dann warte ich bis Donnerstag.
  Thema: Speichern-Dialog und fertiger Dateiname 
Phelan XLPH

Antworten: 6
Aufrufe: 1068

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 02:16   Titel: AW: Speichern-Dialog und fertiger Dateiname Version: Office 2007
Er hat Probleme mit drm Punkt im Namen.

InitialFileName:=[B3] & " " & [C12] & " " & [C14] & " Lfd_Nr " & [J1] & " " & Format(Now, "DD_MM_YYYY"), _
  Thema: Name von Buttons 
Phelan XLPH

Antworten: 11
Aufrufe: 1107

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 01:48   Titel: AW: Name von Buttons Version: Office 2003
Und wie siehts aus mit Backcolor?
  Thema: Speichern-Dialog und fertiger Dateiname 
Phelan XLPH

Antworten: 6
Aufrufe: 1068

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Jul 2010, 01:42   Titel: AW: Speichern-Dialog und fertiger Dateiname Version: Office 2007
Hallo,

du brauchst ja eine Menge....

Sub ph()
Dim fileSaveName As Variant
fileSaveName = Application.GetSaveAsFilename( _
InitialFileName:=[B3] & " " & [C12] & " " & [C14] & " (Lfd Nr. " & [J1] & ") " & Format(Now, "DD.MM.YYYY") & ".xls", _
FileFilter:="Excel Dateien (*.xls;*.xlsx;*.xlsm), *.xls;*.xlsx;*.xlsm")
If fileSaveName = False Then Exit Sub
MsgBox "Save as: " & fileSaveName
End Sub
  Thema: Querytable Connectionproblem 
Phelan XLPH

Antworten: 33
Aufrufe: 2613

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 17:45   Titel: AW: Querytable Connectionproblem Version: Office 2007
schieb
  Thema: Name von Buttons 
Phelan XLPH

Antworten: 11
Aufrufe: 1107

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 17:44   Titel: AW: Name von Buttons Version: Office 2003
Wie lässt sich denn bei einem Formular-Steuerelemnt der hintergrund färben?

Die schrift lässt sich wie folgt färben:
Sub stufeausein5()
Dim s As OLEFormat
Set s = Tabelle3.Shapes(1).OLEFormat
s.Object.Font.Color = vbRed
End Sub

Statt Rot wird sie aber grün!!!!!!

Was ist los?
  Thema: Befehl Find "tunen" 
Phelan XLPH

Antworten: 4
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 16:55   Titel: AW: Befehl Find "tunen" Version: Office 2007
Hallo,

0,375 sec.

Sub ph()
Dim strAS As String 'Such-Adresse
Dim strAM As String 'Matrix-Adresse
Dim t As Single

t = Timer
With Sheets(2)
strAM = Intersect(.UsedRange, .Columns(5)).Address(, , , True)
End With

With Sheets(1)
With .Range("G11800:G" & .Cells(.Rows.Count, 7).End(xlUp).Row)
strAS = .Cells(1).Address(0, 0)
With .Offset(, 1)
.Formula = "=IFERROR(IF(VLOOKUP(" & strAS & "," & strAM & ",1,TRUE)=" & strAS & ",""""," & strAS & ")," & strAS & ")"
.Copy
.PasteSpecial xlPasteValues
.Offset(, -1).PasteSpecial xlPasteValues
.ClearContents
...
  Thema: Rechnen mit Uhrzeiten 
Phelan XLPH

Antworten: 4
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 15:43   Titel: AW: Rechnen mit Uhrzeiten Version: Office 2003
12 ist kein Zeitformat.

Private Sub CommandButton1_Click()
Select Case False
Case IsNumeric(TextBox1): MsgBox "Keine Zeitangabe", , "Zeit1"
Case IsNumeric(TextBox2): MsgBox "Keine Zeitangabe", , "Zeit2"
Case Else
MsgBox CDate((Fix(TextBox1) + Fix(TextBox2)) / 1440)
End Select
End Sub
  Thema: Querytable Connectionproblem 
Phelan XLPH

Antworten: 33
Aufrufe: 2613

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 15:33   Titel: AW: Querytable Connectionproblem Version: Office 2007
Steht doch oben.

Public Sub Nach_Tabelle2()
Dim qtQueryTable As QueryTable
Dim strConnect As String
Dim strSql As String
On Error GoTo Fin
strSql = "SELECT Data.Name, Data.Gruppe, Sum(Data.Betrag) AS Betrag, AVG(Data.Betrag) AS Mittelwert" & _
" FROM Data GROUP BY Data.Name, Data.Gruppe ORDER BY Data.Name, Data.Gruppe;"
strConnect = "ODBC;DRIVER=Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb);DBQ="
strConnect = strConnect & ThisWorkbook.FullName & _
";DriverId=1046;MaxBufferSize=2048;PageTimeout=5;"
With Tabelle2
If .QueryTables.Count > 0 Then .QueryTables(1).Delete
.Cells.Clear
Set qtQueryTable = .QueryTables.Add(strConnect, .Range("A1"), strSql)
qtQueryTable.Refresh
End With
Fin:
Set qtQueryTable = Nothing
If Err.Number <> 0 Then MsgBox ...
  Thema: Rechnen mit Uhrzeiten 
Phelan XLPH

Antworten: 4
Aufrufe: 286

BeitragForum: Excel VBA (Makros)   Verfasst am: 13. Jul 2010, 15:22   Titel: AW: Rechnen mit Uhrzeiten Version: Office 2003
Hallo,

hier mal ein Bsp:

Private Sub CommandButton1_Click()
Select Case False
Case IsDate(TextBox1): MsgBox "Keine Zeitangabe", , "Zeit1"
Case IsDate(TextBox2): MsgBox "Keine Zeitangabe", , "Zeit2"
Case Else
MsgBox CDate(TextBox1) + CDate(TextBox2)
End Select
End Sub
 
Seite 454 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 451, 452, 453, 454, 455, 456, 457 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel-Formeln