Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 293 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 290, 291, 292, 293, 294, 295, 296 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: suchen und ersetzen in Excel aber... 
Phelan XLPH

Antworten: 16
Aufrufe: 4041

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 17:25   Titel: AW: suchen und ersetzen in Excel aber... Version: Office XP (2002)
ersetze das:
For i = 0 To 2
durch das:
For i = Lbound(arName1) To Ubound(arName1)
  Thema: DropDown Listenfeld VBA Abhängig- meherere Zellen wählen 
Phelan XLPH

Antworten: 4
Aufrufe: 893

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 17:06   Titel: AW: DropDown Listenfeld VBA Abhängig- meherere Zellen wählen Version: Office 2003
Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Intersect(Target, Range("A1:A50"))
If Not isect Is Nothing Then
If WorksheetFunction.CountA(isect) Then
Application.EnableEvents = False
Range(isect.Cells(1).Offset(1), Cells(50, 1)) = Empty
Application.EnableEvents = True
End If
End If
End Sub
  Thema: suchen und ersetzen in Excel aber... 
Phelan XLPH

Antworten: 16
Aufrufe: 4041

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 16:51   Titel: AW: suchen und ersetzen in Excel aber... Version: Office XP (2002)
Phelan ist Minimalist, er verschwendet nix und ist somit schneller.
Laughing Laughing Laughing Laughing

...stimmt. Very Happy
  Thema: Performanz erhöhen, Schleifen 
Phelan XLPH

Antworten: 6
Aufrufe: 368

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 16:40   Titel: AW: Performanz erhöhen, Schleifen Version: Office 2003
Das dürfte noch schneller sein:

Sub Ausblender()
Dim i As Long
Dim j as Long
Dim ar As Variant
Dim rngU As Range
Dim calc As Integer

Sheets("Tabelle1").Select
Range("A1").Select

'Dim rows_needed As Integer

calc = Application.Calculation

On Error GoTo ENDE

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False

Range(Columns(1), Columns(130)).Hidden = True
For i = 1 To 130
Select Case Cells(1, i)
Case "Spalte1", "Spalte2", "Spalte3", "Spalte4", "Spalte5", "Spalte6"
Columns(i).Hidden = False
End Select
Next i

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

j = Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row

ar = Range("A1: ...
  Thema: Excel komplette Zeilen nebeneinander programmieren 
Phelan XLPH

Antworten: 18
Aufrufe: 1008

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 16:01   Titel: AW: Excel komplette Zeilen nebeneinander programmieren Version: Office 2007
Sub ph_V3()
Dim ar As Variant
Dim arT As Variant
Dim i As Long
Dim k As Long
Dim n As Long
Dim D As Object

Set D = CreateObject("Scripting.Dictionary")
ar = Tabelle1.Range("A1").CurrentRegion

For i = 1 To UBound(ar)
D(ar(i, 8) & ar(i, 52)) = _
D(ar(i, 8) & ar(i, 52)) & ";" & i
Next

ar = D.Keys
For i = 0 To D.Count - 1
arT = Split(Mid(D(ar(i)), 2), ";")
n = n + 1
For k = LBound(arT) To UBound(arT)
Tabelle1.Cells(arT(k), 1).Resize(, 53).Copy _
Tabelle2.Cells(n, Columns.Count).End(xlToLeft).Offset(, 1)
Next
Next
End Sub
  Thema: Daten aus anderen Excel Tabellen in einer zusammenfügen. 
Phelan XLPH

Antworten: 9
Aufrufe: 1054

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 15:56   Titel: AW: Daten aus anderen Excel Tabellen in einer zusammenfügen. Version: Office 2010
Teste das mal:

Sub ph_Konsol()
Dim blatt As String
With Tabelle1
Intersect(.Range("A1").CurrentRegion, .Range("A:B")).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=Tabelle2.Range("A1"), Unique:=True
.Range("K1").Copy Tabelle2.Range("C1")
blatt = "'" & .Name & "'!"
End With
With Tabelle2
With .Range("C2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
.Formula = "=SUMIFS(" & blatt & "K:K," & blatt & "A:A,A2," & blatt & "B:B,B2)"
.Value = .Value
End With
End With
End Sub
  Thema: Excel komplette Zeilen nebeneinander programmieren 
Phelan XLPH

Antworten: 18
Aufrufe: 1008

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 14:50   Titel: AW: Excel komplette Zeilen nebeneinander programmieren Version: Office 2007
1.In welcher spalte ist denn das Jahr?
2.Und wieviel Spalten sind es denn jetzt?
3.Fängt die Tabelle in SpaltA an?
  Thema: suchen und ersetzen in Excel aber... 
Phelan XLPH

Antworten: 16
Aufrufe: 4041

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 14:48   Titel: AW: suchen und ersetzen in Excel aber... Version: Office XP (2002)
oder so:

Sub ersatz()
Dim arName1 As Variant
Dim arName2 As Variant

arName1 = Array("Martin", "Paul", "Tom")
arName2 = Array("Marta", "Petra", "Tina")

For i = LBound(arName1) To UBound(arName1)
Columns(1).Replace arName1(i), arName2(i), xlWhole
Next
End Sub
  Thema: Bedingung in for-each Schleife? 
Phelan XLPH

Antworten: 2
Aufrufe: 841

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 14:41   Titel: AW: Bedingung in for-each Schleife? Version: Office 2003
..du bist wohl ein schreibfreudiger Mensch Wink

das hier tuts auch:
If fsDateien.Count > 0 Then
For Each fsDatei In fsDateien
If fsDatei.Type = "Microsoft Excel-Arbeitsblatt" Then
Cells(i, 1) = fsDatei.Name
Cells(i, 2) = fsDatei.DateCreated
Cells(i, 3) = fsDatei.DateLastModified
i = i + 1
End If
Next fsDatei
Else
Cells(i, 1) = "Keine Dateien"
End If
  Thema: Excel komplette Zeilen nebeneinander programmieren 
Phelan XLPH

Antworten: 18
Aufrufe: 1008

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 14:38   Titel: AW: Excel komplette Zeilen nebeneinander programmieren Version: Office 2007
das entspricht aber nicht dem hier:
Google Segment1 ... 1990 Google Segment2 ... 1990
Google Segment1 ... 1991
Apple Segment1 ... 1990 Apple Segment2 ... 1990 Apple Segment3 ... 1990
Apple Segment1 ... 1991 Apple Segment2 ... 1991
Apple Segment1 ... 1992
  Thema: Finde einfach keinen richtigen Ansatz! 
Phelan XLPH

Antworten: 9
Aufrufe: 252

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 14:24   Titel: AW: Finde einfach keinen richtigen Ansatz! Version: Office 2007
Sub test()

Dim rng As Range

For Each rng In Range("F7:F32")

If rng <> "" Then

With rng
If .Comment Is Nothing Then
.AddComment "Hallo " & rng.offest(, 1)

Else

.Comment.Delete
.AddComment "Hallo " & rng.offest(, 1)

End If
End With
End If

Next
End Sub
  Thema: Excel komplette Zeilen nebeneinander programmieren 
Phelan XLPH

Antworten: 18
Aufrufe: 1008

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 12:56   Titel: AW: Excel komplette Zeilen nebeneinander programmieren Version: Office 2007
oh,

versuch das:

Sub ph()
Dim ar As Variant
Dim arT As Variant
Dim i As Long
Dim k As Long
Dim n As Long
Dim D As Object

Set D = CreateObject("Scripting.Dictionary")
ar = Tabelle1.Range("A1").CurrentRegion

For i = 1 To UBound(ar)
D(ar(i, 1) & ar(i, 53)) = _
D(ar(i, 1) & ar(i, 53)) & ";" & i
Next

ar = D.Keys
For i = 0 To D.Count - 1
arT = Split(Mid(D(ar(i)), 2), ";")
n = n + 1
For k = LBound(arT) To UBound(arT)
Tabelle1.Cells(arT(k), 1).Resize(, 53).Copy _
Tabelle2.Cells(n, Columns.Count).End(xlToLeft).Offset(, 1)
Next
Next
End Sub
  Thema: checkbox und listbox verbinden 
Phelan XLPH

Antworten: 12
Aufrufe: 628

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 12:51   Titel: AW: checkbox und listbox verbinden Version: Office 2003
Teste das mal.

Prüfe vorher welcher Drucker als Standard gewählt wurde.
  Thema: Datenaustausch Excel mit SQl Server 
Phelan XLPH

Antworten: 12
Aufrufe: 2121

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 12:28   Titel: AW: Datenaustausch Excel mit SQl Server Version: Office 2003
Frag mal im Access-Forum nach, die beschäftigen sich mehr mit SQL.

Solltest du das Problem gelöst haben, poste es dann hier, interessiert mich auch.
  Thema: checkbox und listbox verbinden 
Phelan XLPH

Antworten: 12
Aufrufe: 628

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. März 2011, 12:25   Titel: AW: checkbox und listbox verbinden Version: Office 2003
Das geht auch einfacher.

Mehrfachmarkierung durch Ziehen mit gedrückten Maus oder STRG+Klick.
 
Seite 293 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 290, 291, 292, 293, 294, 295, 296 ... 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