Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 88 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 85, 86, 87, 88, 89, 90, 91 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: eingabe und ausgabe von komma stellen in textoxen 
Phelan XLPH

Antworten: 6
Aufrufe: 155

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2012, 11:02   Titel: AW: eingabe und ausgabe von komma stellen in textoxen Version: Office 2010
Bei meinem Beispiel ist die Eingabe von "." gar nicht möglich.
  Thema: die letzten 3 Zeilen in Listbox 
Phelan XLPH

Antworten: 3
Aufrufe: 188

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2012, 10:48   Titel: AW: die letzten 3 Zeilen in Listbox Version: Office 2003
Private Sub CommandButton3_Click()
Unload Me
End Sub

Sub ListBox_füllen()
Dim aWerte As Variant
Dim LetzteZeile As Long
Dim i As Long, n As Long
With ThisWorkbook.Sheets("Ist-Scanseite")
LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
If LetzteZeile < 3 Then Exit Sub
With ListBox1
.Clear
.ColumnCount = 4
.ColumnWidths = "0;4,00cm;9,0cm;2,0cm"
.Font.Size = 8
End With
For i = WorksheetFunction.Max(LetzteZeile - 6, 3) To LetzteZeile Step 1
ListBox1.AddItem i
ListBox1.List(n, 1) = .Cells(i, 1)
ListBox1.List(n, 2) = .Cells(i, 2)
ListBox1.List(n, 3) = .Cells(i, 3)
n = n + 1
Next
End With

End Sub

Private Sub CommandButton5_Click()
Dim i As Long
With ListBox1
If .ListIndex >= 0 Then
ThisWorkbook.Sheets( ...
  Thema: Herausforderung: JSON string in Tabelle umwandeln 
Phelan XLPH

Antworten: 14
Aufrufe: 1197

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Dez 2012, 09:38   Titel: AW: Herausforderung: JSON string in Tabelle umwandeln Version: Office 2010
Hallo eddi,

das wird nicht so einfach, da die daten mehr als 2 Dimensionen und dazu
verschiedene Atribute aufweisen.

Aber versuchs hiermit: [url=http://json-csv.com/]json to csv
  Thema: Codezeile und Code vorhanden - Aber wohin damit? 
Phelan XLPH

Antworten: 3
Aufrufe: 99

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 21:54   Titel: AW: Codezeile und Code vorhanden - Aber wohin damit? Version: Office 2003
sPfad = "C:\test\MeinXL.xls"
  Thema: CombiBox befüllen 
Phelan XLPH

Antworten: 4
Aufrufe: 146

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 21:51   Titel: AW: CombiBox befüllen Version: Office 2010
With Tabelle2
ComboBox17.List = .Range("AA2:AA" & .Cells(.Rows.Count, 27).End(xlUp).Row)
End with
  Thema: Duplikate finden und kennzeichnen 
Phelan XLPH

Antworten: 13
Aufrufe: 217

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 20:48   Titel: AW: Duplikate finden und kennzeichnen Version: Office 2010
Ab XL2007 gibt es die Zählenwenns()-Funktion (in VBA .CountIfs).
Dabei können mehrere Kriterien eingegebne werden.
  Thema: sverweis will heut net 
Phelan XLPH

Antworten: 2
Aufrufe: 63

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 19:40   Titel: AW: sverweis will heut net Version: Office 2007
textbox2.Value = worksheetfunction.vlookup(listbox1.Value,Range("sheet3!A1:b7"),1)
  Thema: 3 Comboboxfelder in Abhängigkeiten füllen 
Phelan XLPH

Antworten: 5
Aufrufe: 174

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 19:35   Titel: AW: 3 Comboboxfelder in Abhängigkeiten füllen Version: Office 2007
Cool

Im Grunde wird mit dem Dictionary eine Eltern-Kind-Beziehung
nachgestellt:

Ebene1 [E(1)]-------------Ebene2 [E(2)]-------------Ebene3 [E(3)]
Eltern(Key)
-------------Kind(Item) <= Eltern(Key)
--------------------------------------------Kind(Item) <= Eltern(Key)
  Thema: Duplikate finden und kennzeichnen 
Phelan XLPH

Antworten: 13
Aufrufe: 217

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 19:07   Titel: AW: Duplikate finden und kennzeichnen Version: Office 2010

Private Sub CommandButton16_Click() 'Duplikate suchen
'angelehnt an: http://www.ms-office-forum.net/forum/sitemap/index.php?t-277131.html
Dim lngZeile As Long
Dim lngEnde As Long
Dim I As Integer
lngEnde = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
For lngZeile = 1 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
If Application.CountIf(Range("B4:B" & lngEnde), Range("B" & lngZeile),Range("C4:C" & lngEnde), Range("C" & lngZeile)) > 1 Then
Range("B" & lngZeile & ":C" & lngZeile).Interior.ColorIndex = 3
End If
Next lngZeile
End Sub
  Thema: Drei ComboBoxen in Abhängigkeiten füllen 
Phelan XLPH

Antworten: 1
Aufrufe: 120

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 18:48   Titel: AW: Drei ComboBoxen in Abhängigkeiten füllen Version: Office 2007
Was sollen diese Doppelposts!!! Evil or Very Mad

[url=http://www.office-loesung.de/ftopic566662_0_0_asc.php]hier gehts weiter
  Thema: Summenprodukt mit Schleife 
Phelan XLPH

Antworten: 17
Aufrufe: 328

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 18:01   Titel: AW: Summenprodukt mit Schleife Version: Office 2007
...das sähe dann so aus

Sub test_1()
Dim arKW, arOrt
Dim arAnz, arT, arErg
Dim erg

Dim ze As Long
Dim dict As Object

Set dict = CreateObject("Scripting.dictionary")

With Tabelle1.Range("A1").CurrentRegion
arKW = .Columns(1).Value
arOrt = .Columns(3).Value
arAnz = .Columns(8).Value
End With

For ze = 1 To UBound(arKW)
dict(arKW(ze, 1) & "|" & arOrt(ze, 1)) = _
dict(arKW(ze, 1) & "|" & arOrt(ze, 1)) + arAnz(ze, 1)
Next

Erase arKW: Erase arOrt: Erase arAnz

arT = dict.keys
ReDim arErg(1 To UBound(arT) + 1, 1 To 3)

For ze = 0 To UBound(arT)
arErg(ze + 1, 1) = Split(arT(ze), "|")(0)
arErg(ze + 1, 2) = Split(arT(ze), "|")(1)
arErg(ze + 1, 3 ...
  Thema: 3 Comboboxfelder in Abhängigkeiten füllen 
Phelan XLPH

Antworten: 5
Aufrufe: 174

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 13:02   Titel: AW: 3 Comboboxfelder in Abhängigkeiten füllen Version: Office 2007
...eine Variante mit Dictionary.
  Thema: Eine PLZ - mehrer Orte zur Auswahl anzeigen ! 
Phelan XLPH

Antworten: 15
Aufrufe: 546

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Dez 2012, 12:04   Titel: AW: Eine PLZ - mehrer Orte zur Auswahl anzeigen ! Version: Office 2003
...eine erweiterte Variante.
  Thema: Makro summen rechnung über mehrere Dateien 
Phelan XLPH

Antworten: 7
Aufrufe: 110

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Dez 2012, 13:59   Titel: AW: Makro summen rechnung über mehrere Dateien Version: Office 2003
Hallo Alex,

versuch das hier mal:

Sub SummSumm()
Dim Dateien As Variant, lastrow As Long
Dim sTabRange As String, sPfad As String

Dateien = Application.GetOpenFilename( _
FileFilter:="Excel Files (*.xls), *.xls", _
Title:="Dateien ", MultiSelect:=True)


If IsArray(Dateien) Then
lastrow = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1

sTabRange = "Tabelle1'!E19"
With Range("E" & lastrow)
.Formula = "=" & CreateExternAddress(Dateien, sTabRange)
.Value = .Value
End With

sTabRange = "Tabelle1'!E20"
With Range("B" & lastrow)
.Formula = "=" & CreateExternAddress(Dateien, sTabRange)
.Value = .Value
End With
End If

End Sub

Function CreateExternAddress(arPfade As Variant, sTabRange As String)
Dim sAdr As String, sPfad As String

sAdr = Join(arPfade, vbLf)
sPfad = Left(arPfa ...
  Thema: Excel VBA Zellen ausfüllen bis max. Wert erreicht 
Phelan XLPH

Antworten: 10
Aufrufe: 555

BeitragForum: Excel VBA (Makros)   Verfasst am: 21. Dez 2012, 12:44   Titel: AW: Excel VBA Zellen ausfüllen bis max. Wert erreicht Version: Office 2003
Sub x()
Dim zahl1 As Variant
Dim zahl2 As Variant
Dim i As Long
Dim n As Long
Dim k As Long

With Tabelle1
For i = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row
zahl1 = .Cells(i, 1)
zahl2 = .Cells(i, 2)
If zahl1 <> "" Then
For n = 1 To zahl2
k = k + 1
Tabelle2.Cells(WorksheetFunction.RoundUp(k / 3, 0), (((k + 2) Mod 3) + 1)) = _
"'" & Format(zahl1, "00") & "/" & Format(zahl2, "00")
Next
End If
Next
End With
End Sub
 
Seite 88 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 85, 86, 87, 88, 89, 90, 91 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum