Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 201 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 198, 199, 200, 201, 202, 203, 204 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Hallo. Brauche hilfe bei VBA zeilen kopieren in neues blatt 
Phelan XLPH

Antworten: 7
Aufrufe: 370

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2012, 18:16   Titel: AW: Hallo. Brauche hilfe bei VBA zeilen kopieren in neues bl Version: Office 2007
Die Sortierung hab ich vergessen:

Sub x()
With Range("B6:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Intersect(.Resize(, 9), .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow).Copy _
Destination:=Worksheets("Catalogue").Range("B1")
End With
With Worksheets("Catalogue").Range("B1").CurrentRegion
.Select
.Sort .Cells(1, 1), xlAscending, Header:=xlNo
End With
End Sub
  Thema: Hallo. Brauche hilfe bei VBA zeilen kopieren in neues blatt 
Phelan XLPH

Antworten: 7
Aufrufe: 370

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2012, 18:08   Titel: AW: Hallo. Brauche hilfe bei VBA zeilen kopieren in neues bl Version: Office 2007
oder ohne schleife:

Sub x()
With Range("B6:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Intersect(.Resize(, 9), .SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow).Copy _
Destination:=Worksheets("Catalogue").Range("B1")
End With
End Sub
  Thema: Mehrere Nummern zu SVERWEIS 
Phelan XLPH

Antworten: 2
Aufrufe: 113

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2012, 17:36   Titel: AW: Mehrere Nummern zu SVERWEIS Version: Office 2003
Sub xl()
Dim ar As Variant
Dim i As Long
Dim dictWarenArt As Object

Set dictWarenArt = CreateObject("scripting.dictionary")

With Worksheets("Tabelle1")
ar = .Range("A1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
End With

For i = 1 To UBound(ar)
dictWarenArt(ar(i, 1)) = _
dictWarenArt(ar(i, 1)) & ", " & ar(i, 3)
Next

With Worksheets("Tabelle2")
With .Range("A1:C" & .Cells(.Rows.Count, 1).End(xlUp).Row)
ar = .Value
For i = 1 To UBound(ar)
ar(i, 3) = Mid(dictWarenArt(ar(i, 1)), 3)
Next
.Value = ar
End With
End With
End Sub
  Thema: Suche in spalte 
Phelan XLPH

Antworten: 3
Aufrufe: 180

BeitragForum: Excel VBA (Makros)   Verfasst am: 10. Jan 2012, 12:23   Titel: AW: Suche in spalte Version: Office 2010
Sub FormelEintragen()
Dim Z As Long
With Worksheets("Tabelle3")
For Z = 2 To .Cells(.Rows.Count, 13).End(xlUp).Row
With .Cells(Z, 13)
If .Value2 Like "XF*" Then
.Offset(, -1).FormulaR1C1 = "=RC[-9]*100000*RC[-8]/R533C[-2]"
Else
.Offset(, -1).FormulaR1C1 = "=RC[-2]/R533C[-2]*100"
End If
End With
Next Z
End With
End Sub
  Thema: VBA: "leere" Zellen finden und Zeile ausblenden 
Phelan XLPH

Antworten: 5
Aufrufe: 892

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 23:56   Titel: AW: VBA: "leere" Zellen finden und Zeile ausblend Version: Office 2007
Ins codefenster der Tabelle.

Private Sub Worksheet_Calculate()
Dim rngC As Range
Application.ScreenUpdating = False
Rows.Hidden = False
With Intersect(Columns(1), ActiveSheet.UsedRange)
For Each rngC In .Resize(.Rows.Count - 2).Offset(2)
If WorksheetFunction.CountIf(rngC.Resize(, 4), "x") = 0 Then _
rngC.EntireRow.Hidden = True
Next
End With
Application.ScreenUpdating = True
End Sub
  Thema: VBA: "leere" Zellen finden und Zeile ausblenden 
Phelan XLPH

Antworten: 5
Aufrufe: 892

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 23:32   Titel: AW: VBA: "leere" Zellen finden und Zeile ausblend Version: Office 2007
Welche Spalte soll überwacht werden, und ab welcher Zeile?
  Thema: Tabelle nach Wert dursuchen und kopieren 
Phelan XLPH

Antworten: 7
Aufrufe: 154

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 18:37   Titel: AW: Tabelle nach Wert dursuchen und kopieren Version: Office 2003
Sub x()
Dim ar As Variant
Dim dicRow As Object
Dim w As Integer
Dim i As Long
Dim n As Long
Dim arWs As Variant
Dim arRow As Variant
Dim ws As Worksheet
Dim sID As String

Set dicRow = CreateObject("scripting.dictionary")

For w = 5 To Worksheets.Count
With Worksheets(w)
ar = .Range("F1:G" & .Cells(.Rows.Count, 6).End(xlUp).Row)
For i = UBound(ar) To 2 Step -1
If ar(i, 1) <> "" Then
If IsDate(ar(i, 2)) Then
If ar(i, 1) = "T1" Then
sID = Format(Month(ar(i, 2)), "00") & vbTab & w & vbTab & ar(i, 1) & vbTab & Format(ar(i, 2), "mmm")
Else
...
  Thema: Codeoptimierung möglich? 
Phelan XLPH

Antworten: 10
Aufrufe: 205

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 18:16   Titel: AW: Codeoptimierung möglich? Version: Office 2007
Falls du doch nicht sverweis wählst, veruchs hiermit:

Sub Schaltfläche1_KlickenSieAuf()
Dim i As Long
Dim ar As Variant
Dim arT As Variant

Dim dictVGL As Object

Set dictVGL = CreateObject("scripting.dictionary")

With Worksheets(3)
ar = .Range("C1:E" & .Cells(Rows.Count, 3).End(xlUp).Row).Value
End With

For i = 1 To UBound(ar)
dictVGL(ar(i, 1)) = Array(ar(i, 2), ar(i, 3))
Next i

With Worksheets(2)
ar = .Range("I1:I" & .Cells(Rows.Count, 9).End(xlUp).Row).Value
.Cells(1, 16).Resize(UBound(ar), 2).ClearContents

ReDim arT(1 To UBound(ar), 1 To 2)

For i = 1 To UBound(ar)
If dictVGL.exists(ar(i, 1&# ...
  Thema: Array Transponieren 
Phelan XLPH

Antworten: 7
Aufrufe: 8512

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 14:57   Titel: AW: Array Transponieren Version: Office 2003
Yap, Daniel das ist richtig!

Sub Vergleich_Transponieren()
Dim ar(1 To 10, 1 To 65536) As Long
Dim i As Long
Dim k As Integer
Dim arT As Variant
Dim arP As Variant
Dim t As Single

'Daten einlesen
For k = 1 To 10
For i = 1 To 65536
ar(k, i) = Int(10 * Rnd + 1)
Next
Next

t = Timer
arT = WorksheetFunction.Transpose(ar)
Debug.Print Timer - t

t = Timer
arP = Transponieren(ar)
Debug.Print Timer - t


End Sub

Function Transponieren(arQ)
Dim arT As Variant
Dim i As Long
Dim k As Long

ReDim arT(1 To UBound(arQ, 2), 1 To UBound(arQ))

For i = 1 To UBound(arT)
For k = 1 To UBound(arT, 2)
arT(i, k) = arQ(k, i)
Next
Next
Transponieren = arT
End Function
  Thema: Abfrage (Query) über meherere XL-Dateien 
Phelan XLPH

Antworten: 4
Aufrufe: 164

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 14:37   Titel: AW: Abfrage (Query) über meherere XL-Dateien Version: Office 2010
@x8r2K

...ja klar. Rolling Eyes

Danke
  Thema: Dropdown-Feld mit mehreren Auswahlmöglichkeiten? 
Phelan XLPH

Antworten: 4
Aufrufe: 1743

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 13:51   Titel: AW: Dropdown-Feld mit mehreren Auswahlmöglichkeiten? Version: Office 2010
Hallo.
  Thema: Doppelte Einträge in einer Textbox entfernen - Wie? 
Phelan XLPH

Antworten: 10
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 12:38   Titel: AW: Doppelte Einträge in einer Textbox entfernen - Wie? Version: Office 2007
Was hat dieser Code für einen Zweck?
  Thema: Abfrage (Query) über meherere XL-Dateien 
Phelan XLPH

Antworten: 4
Aufrufe: 164

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 12:14   Titel: Abfrage (Query) über meherere XL-Dateien Version: Office 2010
Hallo,

ist es möglich eine SQL-Abfrage (MS Query) über meherere XL-Dateien mit
meheren Blättern, die gleich aufgebaut sin, zu erzielen?
  Thema: Doppelte Einträge in einer Textbox entfernen - Wie? 
Phelan XLPH

Antworten: 10
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 12:09   Titel: AW: Doppelte Einträge in einer Textbox entfernen - Wie? Version: Office 2007
Was verstehst du unter doppelt?

Wie sehen Ist- und Sollzustand aus?
  Thema: VBA Excel erlernen 
Phelan XLPH

Antworten: 3
Aufrufe: 354

BeitragForum: Excel VBA (Makros)   Verfasst am: 09. Jan 2012, 11:52   Titel: AW: VBA Excel erlernen Version: Office 2010
[url=http://de.wikibooks.org/wiki/VBA_in_Excel_-_Grundlagen]WikiBooks: VBA in Excel - Grundlagen
[url=ftp://ftp.fernuni-hagen.de/pub/pdf/urz-broschueren/broschueren/b012.pdf]FernUni Hagen - VBA Programmierung mit Excel
 
Seite 201 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 198, 199, 200, 201, 202, 203, 204 ... 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 Tricks