Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 474 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 471, 472, 473, 474, 475, 476, 477 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Mammut VBA 
Phelan XLPH

Antworten: 6
Aufrufe: 273

BeitragForum: Excel VBA (Makros)   Verfasst am: 04. Jun 2010, 07:05   Titel: AW: Mammut VBA Version: Office 2007
Hallo,

ist auch irgendwie verwirrend!
in den worksheets 5 bis 54 (einschließlich, sprich 50 an der zahl)
  Thema: Makro um bestimmte Datensätze in neue Tabelle zu verschieben 
Phelan XLPH

Antworten: 3
Aufrufe: 613

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 23:31   Titel: AW: Makro um bestimmte Datensätze in neue Tabelle zu verschi Version: Office 2003
Sub ph()
With Tabelle1.UsedRange
With .Columns(.Columns.Count).Offset(1, 1)
.Formula = "=1/(AND(VALUE(D2),LEN(D2)=5))"
.Copy
.PasteSpecial xlPasteValues
.EntireRow.Sort .Cells(1), xlDescending, Header:=xlNo
.SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow.Cut _
Tabelle2.Range("A2")
Tabelle2.Cells(2, Columns.Count).End(xlToLeft).EntireColumn.Clear
.ClearContents
End With
End With
End Sub
  Thema: Alle Einträge einer Spalte in einem Array 
Phelan XLPH

Antworten: 5
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 19:47   Titel: AW: Alle Einträge einer Spalte in einem Array Version: Office 2010
[url=http://www.office-loesung.de/ftopic311971_0_0_asc.php]Tips & Tricks
  Thema: Alle Einträge einer Spalte in einem Array 
Phelan XLPH

Antworten: 5
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 17:26   Titel: AW: Alle Einträge einer Spalte in einem Array Version: Office 2010
Unikate:
Sub ph_Array()
Dim arr As Variant, i As Long, Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then _
Dic(arr(i, 1)) = 0
Next
arr = Dic.Keys
MsgBox Join(arr, ";")
End Sub

Unikate+Sortierung:
Public Sub sortL()
Dim SL As Object
Dim i As Integer
Dim arr As Variant

Set SL = CreateObject("System.Collections.sortedlist")
arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)

For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then _
SL(arr(i, 1)) = ""
Next

ReDim arr(SL.Count - 1)
For i = 0 To SL.Count - 1
arr(i) = SL.GetKey(i)
Next
MsgBox Join ...
  Thema: Alle Einträge einer Spalte in einem Array 
Phelan XLPH

Antworten: 5
Aufrufe: 601

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 17:02   Titel: AW: Alle Einträge einer Spalte in einem Array Version: Office 2010
Dim arr as Variant
arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
arr = WorksheetFunction.Transpose(arr)
  Thema: Suchassistent für große Datenbank 
Phelan XLPH

Antworten: 8
Aufrufe: 341

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 15:50   Titel: AW: Suchassistent für große Datenbank Version: Office 2007
[url=http://www.office-loesung.de/ftopic348095_0_0_asc.php]Schnupper hier mal rein
  Thema: Mit VBA Teile einer Zeile in neues Arbeitsblatt kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1079

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 15:08   Titel: AW: Mit VBA Teile einer Zeile in neues Arbeitsblatt kopieren Version: Office XP (2002)
Da fehlt nüschtz paaaaasst schon! So wollte ers doch haben.
  Thema: Die Textfeldfarbe bei Positive oder Negativer Zahl ändern 
Phelan XLPH

Antworten: 5
Aufrufe: 1071

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 14:01   Titel: AW: Die Textfeldfarbe bei Positive oder Negativer Zahl änder Version: Office 2007
Bei Grün und Rot ist das noch weniger schwierig:

Textbox1.ForeColor = IIf(Wert < 0, vbRed, vbGreen)
  Thema: Einmal den Bremsklotz lösen bitte :-) 
Phelan XLPH

Antworten: 7
Aufrufe: 257

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 13:58   Titel: AW: Einmal den Bremsklotz lösen bitte :-) Version: Office 2k (2000)
in SpecialCells klixen und F1 drücken!
  Thema: Mit VBA Teile einer Zeile in neues Arbeitsblatt kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 1079

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 13:53   Titel: AW: Mit VBA Teile einer Zeile in neues Arbeitsblatt kopieren Version: Office XP (2002)
Sub ph()
'Tabellen CodeName (Tabelle1,Tabelle2) anpassen
Dim arr As Variant
Dim arrOut() As Variant, anz As Integer
Dim i As Long, m As Long, k As Integer
arr = Tabelle1.Range("A1").CurrentRegion
For i = 2 To UBound(arr)
For k = 0 To Switch(arr(i, 7) <> "", 2, arr(i, 5) <> "", 1, arr(i, 1) <> "", 0)
m = m + 1
ReDim Preserve arrOut(1 To 4, 1 To m)
arrOut(1, m) = arr(i, Array(1, 5, 7)(k))
arrOut(2, m) = arr(i, Array(1, 5, 7)(k))
arrOut(3, m) = arr(i, 3)
arrOut(4, m) = arr(i, 4)
Next
Next
Tabelle2.Range("A1").Resize(UBound(arrOut, 2), UBound(arrOut)) = _
WorksheetFunction.Transp ...
  Thema: TextBoxen fortlaufend aus TextBox 1 befüllen 
Phelan XLPH

Antworten: 15
Aufrufe: 865

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 13:02   Titel: AW: TextBoxen fortlaufend aus TextBox 1 befüllen Version: Office XP (2002)
Private Sub CommandButton8_Click()

Dim i As Long
For i = 10 To 17
With Me.Controls("Textbox" & i)
If .Text = "" Then
.Text = TextBox1.Text
Exit For
End If
If i > 17 Then _
MsgBox "Alle Felder belegt, bitte leeren Sie ein Feld"
End With
Next
End Sub
  Thema: Zusammenfassung mehrerer Arbeitsblätter ohne Konsolidierung 
Phelan XLPH

Antworten: 10
Aufrufe: 1503

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 10:49   Titel: AW: Zusammenfassung mehrerer Arbeitsblätter ohne Konsolidier Version: Office 2003
Habs so gemacht dass sobald Tabelle "Übersicht" gewählt wird, alle
Daten der Blätter in dieses kopiert werden. So kannst du auch zwischendurch
mal prüfen was an Daten anfallen.

In ein StandardModul:

Sub ph_Konsol()
Dim wks As Worksheet
Dim wksDest As Worksheet
Dim blnCaptionSet As Boolean
Application.ScreenUpdating = False
Set wksDest = ThisWorkbook.Worksheets("Übersicht") 'ANPASSEN
wksDest.UsedRange.Clear
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> wksDest.Name Then
If Not blnCaptionSet Then
blnCaptionSet = True
wks.Rows(1).Copy wksDest.Cells(1, 1)
End If
With wks.Range("A2:A65536")
On Error Resume Next
With .ColumnDifferences(.Find(""))
.EntireRow.Copy _
wksDest.Cells ...
  Thema: Bedingte Formatierung erkennen 
Phelan XLPH

Antworten: 8
Aufrufe: 696

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 10:01   Titel: AW: Bedingte Formatierung erkennen Version: Office 2003
Wie jetzt?
  Thema: Zusammenfassung mehrerer Arbeitsblätter ohne Konsolidierung 
Phelan XLPH

Antworten: 10
Aufrufe: 1503

BeitragForum: Excel VBA (Makros)   Verfasst am: 03. Jun 2010, 09:01   Titel: AW: Zusammenfassung mehrerer Arbeitsblätter ohne Konsolidier Version: Office 2003
Hallo,

wie soll denn erkannt werden, wann der Eingabevorgang beendet ist, um diese
Zeile dann in die Übersicht zu kopieren?
  Thema: Excel ausblenden 
Phelan XLPH

Antworten: 10
Aufrufe: 607

BeitragForum: Excel VBA (Makros)   Verfasst am: 02. Jun 2010, 08:03   Titel: AW: Excel ausblenden Version: Office 2003
in "DieseArbeitsmappe" einfügen:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Visible = True
End Sub

Private Sub Workbook_Open()
UserForm1.Show 0
Application.Visible = False
End Sub
 
Seite 474 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 471, 472, 473, 474, 475, 476, 477 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS