Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 666 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 663, 664, 665, 666, 667, 668, 669 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Summe aus Zellen die genau 135 Zeilen untereinander stehen 
Phelan XLPH

Antworten: 11
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 19:30   Titel: AW: Summe aus Zellen die genau 135 Zeilen untereinander steh Version: Office 97
...entweder das ist es...oder Twisted Evil Confused 8)

Sub Test()
Dim i As Long
Dim summe As Double
For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 135
summe = summe + Cells(i, 1)
Next
MsgBox summe
End Sub
  Thema: Zelle soll bei eingabe einer Zahl automatisch Wert einfügen. 
Phelan XLPH

Antworten: 8
Aufrufe: 1872

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 18:57   Titel: AW: Zelle soll bei eingabe einer Zahl automatisch Wert einfü Version: Office 2007
Hallo,

Typisches Beispiel für SVERWEIS.
  Thema: Listbox füllen, doppelte löschen 
Phelan XLPH

Antworten: 18
Aufrufe: 4253

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 18:51   Titel: AW: Listbox füllen, doppelte löschen Version: Office 2003
Hallo teste das hier mal sortiert zugleich..

Private Sub SortLB()
Dim SL As Object
Dim i As Integer
Dim arr As Variant
Set SL = CreateObject("System.Collections.sortedlist")
arr = arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
If arr(i, 1) <> "" And _
arr(i, 1) <> "Summe" Then _
SL(arr(i, 1)) = ""
Next
ListBox1.Clear
For i = 0 To SL.Count - 1
ListBox1.AddItem SL.GetKey(i)
Next
End Sub
  Thema: Aus 4 Zeilen mache eine 
Phelan XLPH

Antworten: 12
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 16:15   Titel: AW: Aus 4 Zeilen mache eine Version: Office 97
Hallo,

...und doch so einfach...aber Delete bei der Menge Confused
  Thema: Summe aus Zellen die genau 135 Zeilen untereinander stehen 
Phelan XLPH

Antworten: 11
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 13:41   Titel: AW: Summe aus Zellen die genau 135 Zeilen untereinander steh Version: Office 97
Hallo,

geht auch mit Formel:

anstatt 5 -> 135 eingeben.
  Thema: Datei auswählen für Import 
Phelan XLPH

Antworten: 3
Aufrufe: 274

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 10:38   Titel: AW: Deite Auswählen für import Version: Office 2k (2000)
moin,

Sub GuckstDuHier()
Dim fileToOpen
fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen = False Then Exit Sub
MsgBox "Pfad >> " & fileToOpen
End Sub
  Thema: Aus 4 Zeilen mache eine 
Phelan XLPH

Antworten: 12
Aufrufe: 264

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 09:04   Titel: AW: Aus 4 Zeilen mache eine Version: Office 97
Hallo,

versuch mal das:
Sub Mach1Aus4()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim arrIn As Variant
Dim arrOut() As Variant
Dim lngI As Long
Dim lngK As Long
Dim lngZ As Long
Dim lngS As Long
Dim intCount As Integer
Dim rngLZQ As Range

Set wksQ = Worksheets("Tabelle1") '***Anpassen***
Set wksZ = Worksheets.Add
wksZ.Name = "1Aus4-" & Right(Timer / 10, 3)

Set rngLZQ = wksQ.UsedRange.SpecialCells(xlCellTypeLastCell)
arrIn = wksQ.Range("A1", wksQ.Cells(rngLZQ.Row, rngLZQ.Column))

lngZ = 1
For lngI = 1 To UBound(arrIn)
If arrIn(lngI, 1) <> "" Then
For lngK = 1 To UBound(arrIn, 2)
If arrIn(lngI, lngK) <> "" Then
lngS = lngS + 1
ReDim Preserve arrOut(1 To 50, 1 To lngZ)
arrOut(lngS, lngZ) = arrIn(lngI, lngK) ...
  Thema: Summe aus Zellen die genau 135 Zeilen untereinander stehen 
Phelan XLPH

Antworten: 11
Aufrufe: 632

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 07:55   Titel: AW: Summe aus Zellen die genau 135 Zeilen untereinander steh Version: Office 97
Hallo,

wie kommst du bitte sehr auf 13?
  Thema: Nebeneinanderliegende Zellen mit gleichem wert zählen 
Phelan XLPH

Antworten: 4
Aufrufe: 1192

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Apr 2009, 01:19   Titel: AW: Nebeneinanderliegende Zellen mit gleichem wert zählen Version: Office 2007
hoi,

Sub Test()
Dim arr As Variant
Dim i As Long
Dim dblMax As Double
Dim strWert As String
Dim intAnz As Integer
Dim col As Range

For Each col In Range("A2").CurrentRegion.Columns
arr = WorksheetFunction.Transpose(col)
For i = 1 To UBound(arr)
intAnz = intAnz + 1
If i = UBound(arr) Then
If intAnz > dblMax Then
dblMax = intAnz
strWert = arr(i)
End If
intAnz = 0
Else
If arr(i) <> arr(i + 1) Then
If intAnz > dblMax Then
dblMax = intAnz
strWert = arr(i)
End If
intAnz = 0
End If
End If
Next
Next

MsgBox strWert & ": " & dblMax
End Sub
  Thema: Kopieren einer zelle mit suchkriterium 
Phelan XLPH

Antworten: 13
Aufrufe: 281

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 23:14   Titel: AW: Kopieren einer zelle mit suchkriterium Version: Office 2003
hallo,

ins codefenster der tabelle2:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B4:AD4")) Is Nothing Then
Suchen Intersect(Target, Range("B4:AD4"))
End If
End Sub

Private Suchen(rngSuch As Range)
Dim wksTB1 As Worksheet
Dim rngF As Range
Dim zell As Range

Set wksTB1 = Worksheets("Tabelle1")

For Each zell In rngSuch
Set rngF = wksTB1.Cells.Find(zell, , xlFormulas, xlWhole)
If Not rngF Is Nothing Then
zell.Offset(1, 0) = rngF.Offset(1, 0)
Else
zell.Offset(1, 0) = "NOT FOUND"
End If
Next
End Sub
  Thema: Sortieren (in mehreren Ebenen) per Makro 
Phelan XLPH

Antworten: 16
Aufrufe: 1602

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 22:48   Titel: AW: Sortieren (in mehreren Ebenen) per Makro Version: Office 2007
Hallo,

in ein standardModul:

Sub AreasSortieren()
Dim wks As Worksheet
Dim rng As Range
Dim rngAr As Range
Dim ar As Range
Dim vKrit As Variant

vKrit = Array("Hund", "Katze", "Maus") '***Anpassen***
Set wks = Worksheets("Tabelle1") '***Anpassen***
Set rng = wks.Range("A:A")

Set rngAr = rng.ColumnDifferences(rng.Find(rng(rng.Count)))
For Each ar In rngAr.Areas
BenutzerdefiniertSortieren vKrit, ar.CurrentRegion
Next
End Sub

Sub BenutzerdefiniertSortieren(vKrit As Variant, rng As Range)
Dim lngCLC As Long
Dim lngListExist As Long
Dim lngOC As Long

lngListExist = Application.GetCustomListNum(vKrit)
If lngListExist > 0 Then
lngOC = lngListExist + 1
Else
Application.AddCustomList listArray:=vKrit
lngCLC = Application.CustomListCount
lngOC = lngCLC + 1
End If
rng(1, 1).Sort Key1:=rng(2, ...
  Thema: RangeZeile in 1-Dimens.-Array 
Phelan XLPH

Antworten: 4
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 21:38   Titel: AW: RangeZeile in 1-Dimens.-Array Version: Office 2007
hallo, r.mueller

Ich dachte vielleicht gibts noch ne ähnliche Funktion,
damit ich nicht 2fach transponieren muss.

Gibts da vielleicht ne Matrixfunktion die mir ähnliches auswirft?
Kennt da jemand nen Trick?
  Thema: Eintrag in Listbox mit Enter auswählen? 
Phelan XLPH

Antworten: 2
Aufrufe: 2044

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 21:07   Titel: AW: Eintrag in Listbox mit Enter auswählen? Version: Office 2003
Hallo,

hier ein bsp mit KeyUp geht auch mit KeyDown:

Private Sub ListBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
MsgBox "..weiter mit code.."
End If
End Sub
  Thema: werte suchen und automatisch die farbe der zellen ändern 
Phelan XLPH

Antworten: 11
Aufrufe: 277

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 20:56   Titel: AW: werte suchen und automatisch die farbe der zellen ändern Version: Office 2003
So jetzt hab ich ne eigene Smile

Sub SchrittSuche()
Dim wks As Worksheet
Dim rngF As Range
Dim lngZellFarbe As Long
Dim strErsteAdr As String
Static strSuchWert As String

Do
strSuchWert = InputBox("Bitte Suchwert eingeben:", "Schritt-Suche", strSuchWert)
If strSuchWert = "" Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
With wks.UsedRange
wks.Select
Set rngF = .Find(What:=strSuchWert, LookIn:=xlFormulas, LookAt:=xlWhole)
If Not rngF Is Nothing Then
strErsteAdr = rngF.Address
Do
lngZellFarbe = rngF.Interior.ColorIndex
rngF.Interior.ColorIndex = 6
rngF.Select
Select Case MsgBox("...weiter im Blatt " & wks.Name & " ?", 35, "Suche-Begriff: " & strSuchWert)
Case vbYes:
...
  Thema: RangeZeile in 1-Dimens.-Array 
Phelan XLPH

Antworten: 4
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Apr 2009, 19:23   Titel: AW: RangeZeile in 1-Dimens.-Array Version: Office 2007
ola,

das ist mir klar, aber um Blätter zu selektieren wird ein
1-dimensionales-Array genötigt:

zB: Sheets(Array("Tabelle1","Tabelle2","Tabelle3")).Select

mit funzt nicht meinte ich das hier:
Sub GehtDasAuchEinfacher()
Dim arr
arr = Range("A1:C1")
Sheets(arr).Select
End Sub

...deshalb auch der Trick mit 2facher Transonierung
 
Seite 666 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 663, 664, 665, 666, 667, 668, 669 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage