Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 365 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 362, 363, 364, 365, 366, 367, 368 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: So was wie Sverweis per VBA 
Phelan XLPH

Antworten: 18
Aufrufe: 1955

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 18:53   Titel: AW: So was wie Sverweis per VBA Version: Office XP (2002)
Teste das mal:

Sub ph()
Dim ws As Worksheet
Dim rngVgl As Range
Dim vgl As Object
Dim arr As Variant
Dim arrOut As Variant
Dim arrVgl As Variant
Dim i As Long
Dim n As Integer
Dim Meldung As String
Dim wsM As Worksheet

Set vgl = CreateObject("Scripting.Dictionary")

Set wsM = Worksheets("Master") 'Mastertabelle Name anpassen

With wsM
Set rngVgl = Intersect(.Range("A:A"), .UsedRange)
ReDim arrOut(1 To rngVgl.Count, 1 To Worksheets.Count - 1)
arrVgl = rngVgl
End With

For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
Case "PJ", "PCA", "PIT", "PIB", "PCGB", "PCNA"
With ws
arr = .Range("A1:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
...
  Thema: Zelle per Doppelklick mit X ausfüllen 
Phelan XLPH

Antworten: 7
Aufrufe: 1782

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 11:06   Titel: AW: Zelle per Doppelklick mit X ausfüllen Version: Office 2007
mmmmmmmhhhhhhhhhhhhhh, Confused ok Very Happy

Alsooooooo:
Verbundene Zellen stellen immer einen Bereich dar. Einen Wert aus
einem Bereich lesen geht nicht, da ungewiss ist welche Zelle des Bereichs
gemeint ist. Mit Target(1) wird auf die 1. Zelle des Bereichs Target zugegriffen.
Bei verbundenen Zellen steht der Wert der zelle immer in der Ersten zelle des
verbundenen Bereichs.

Anschauungsbeispiel:
Schreibe in A1-C1: 1-3
Dann verbinde die 3 Zellen. Stehen bleibt nur die 1, die anderen werden gelöscht
dann löse wieder die verbindung, in der 1. zelle steht die 1 und in den anderen nix.

Jetzt müsste der AHA-Effekt auftauchen... Very Happy
  Thema: So was wie Sverweis per VBA 
Phelan XLPH

Antworten: 18
Aufrufe: 1955

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:59   Titel: AW: So was wie Sverweis per VBA Version: Office XP (2002)
Sub ph()
Dim ws As Worksheet
Dim rngVgl As Range
Dim vgl As Object
Dim arr As Variant
Dim arrOut As Variant
Dim i As Long
Dim n As Integer
Dim Meldung As String
Dim wsM As Worksheet

Set vgl = CreateObject("Scripting.Dictionary")

Set wsM = Worksheets("Master") 'Mastertabelle Name anpassen

With wsM
Set rngVgl = Intersect(.Range("A:A"), .UsedRange)
ReDim arrOut(1 To rngVgl.Count, 1 To Worksheets.Count)
arr = rngVgl
n = n + 1
For i = 1 To UBound(arr)
arrOut(i, n) = arr(i, 1)
Next
End With

For Each ws In ThisWorkbook.Worksheets
Select Case UCase(ws.Name)
Case "PJ", "PCA", "PIT", "PIB", "PCGB", "PCNA"
With ws
arr = .Range("A1:D" & ...
  Thema: mehrere Zellen über Range kopieren 
Phelan XLPH

Antworten: 11
Aufrufe: 652

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:52   Titel: AW: mehrere Zellen über Range kopieren Version: Office 2003
Du kannst nur im Ganzen die schrift auf Fett setzen.

TextBox1.Font.Bold = True
  Thema: Erste Zeile des benutzten Bereichs einfärben 
Phelan XLPH

Antworten: 4
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:50   Titel: AW: Erste Zeile des benutzten Bereichs einfärben Version: Office 97
Dann ist dein benutzter Bereich eine gesamte zeile groß.

Deine Datei dürfte auch ziemlich groß sein, oder nicht?

Tabelle1.Range("A1").CurrentRegion.Rows(1).Interior.ColorIndex = 6
  Thema: 2 mappen miterinander vergleichen 
Phelan XLPH

Antworten: 34
Aufrufe: 831

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:36   Titel: AW: 2 mappen miterinander vergleichen Version: Office 2003
Und Mappen sind Dateien?

Also du vergleichst 3 Dateien?
  Thema: 2 mappen miterinander vergleichen 
Phelan XLPH

Antworten: 34
Aufrufe: 831

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:30   Titel: AW: 2 mappen miterinander vergleichen Version: Office 2003
Aufgabenstellung: Mappe3 und Mappe4 vergleichen.
Ziel: nur die Zeilen in einer neuen Mappe5 ausgeben die in Mappe3 und Mappe4 die gleichen 7-Stelligen Zahlenwerte haben.

Zeilen aus welcher Mappe? Mappe3 oder Mappe4 - ist relevant falls die Zeilen
nicht identisch sind!!!!
  Thema: Erste Zeile des benutzten Bereichs einfärben 
Phelan XLPH

Antworten: 4
Aufrufe: 152

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 10:24   Titel: AW: Erste Zeile des benutzten Bereichs einfärben Version: Office 97
Tabelle1.UsedRange.Rows(1).Interior.Colorindex = 6
  Thema: So was wie Sverweis per VBA 
Phelan XLPH

Antworten: 18
Aufrufe: 1955

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:52   Titel: AW: So was wie Sverweis per VBA Version: Office XP (2002)
@Daniel

bist heut nicht so motiviert?! Smile
  Thema: Zelle per Doppelklick mit X ausfüllen 
Phelan XLPH

Antworten: 7
Aufrufe: 1782

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:50   Titel: AW: Zelle per Doppelklick mit X ausfüllen Version: Office 2007
ersetzen:
Target(1) = IIf(Target(1) = "X", "", "X")
  Thema: mehrere Zellen über Range kopieren 
Phelan XLPH

Antworten: 11
Aufrufe: 652

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:47   Titel: AW: mehrere Zellen über Range kopieren Version: Office 2003
ODER so:
TextBox_Help.Text = Join(WorksheetFunction.Transpose(Tabelle3.Range("AJ14:AJ16")), vbLf)
  Thema: Textboxinhalt mit Returntast löschen und neu eingeben 
Phelan XLPH

Antworten: 3
Aufrufe: 181

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:44   Titel: AW: Textboxinhalt mit Returntast löschen und neu eingeben Version: Office 2003
Dim cb As String
  Thema: Zelle per Doppelklick mit X ausfüllen 
Phelan XLPH

Antworten: 7
Aufrufe: 1782

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:41   Titel: AW: Zelle per Doppelklick mit X ausfüllen Version: Office 2007
Hallo Schnee-Berglöwe,

das kommt ins Codefenster der Tabelle:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Range("A1:D5"), Target) Is Nothing Then
Cancel = True
Target = IIf(Target = "X", "", "X")
End If
End Sub

Überwachungsbereich: "A1:D5" << ÄNDERN!!!
  Thema: So was wie Sverweis per VBA 
Phelan XLPH

Antworten: 18
Aufrufe: 1955

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2010, 09:25   Titel: AW: So was wie Sverweis per VBA Version: Office XP (2002)
Hier etwas ohne SVerweis:

Sub ph()
Dim ws As Worksheet
Dim rngVgl As Range
Dim vgl As Object
Dim arr As Variant
Dim arrOut As Variant
Dim i As Long
Dim n As Integer
Dim Meldung As String
Dim wsM As Worksheet

Set vgl = CreateObject("Scripting.Dictionary")

Set wsM = Worksheets("Master") 'Mastertabelle Name anpassen

With wsM
Set rngVgl = Intersect(.Range("A:A"), .UsedRange)
ReDim arrOut(1 To rngVgl.Count, 1 To Worksheets.Count)
arr = rngVgl
n = n + 1
For i = 1 To UBound(arr)
arrOut(i, n) = arr(i, 1)
Next
End With

For Each ws In ThisWorkbook.Worksheets
If ws.Name <> wsM.Name Then
With ws
arr = .Range("A1:D" & .Cells(.Rows.Count, 4).End(xlUp).Row)
For i = 1 To UBound& ...
  Thema: SUMMIEREN MIT MEHREREN BEDINGUNGEN 
Phelan XLPH

Antworten: 13
Aufrufe: 388

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2010, 18:56   Titel: AW: SUMMIEREN MIT MEHREREN BEDINGUNGEN Version: Office 2007
@Zero
Wie würdest du die Geschwindigkeit der Formeln messen?

Das steht doch alles auf dieser [url=http://msdn.microsoft.com/en-us/library/aa730921.aspx#Office2007excelPerf_CalculatingWorkbooksWorksheetsRanges]Seite. Die solltest du mal studieren, es sind
jede Menge Tips und Tricks bezüglich Effizienz von Formeln und
selbstdefinierten Funktionen.

M.E eine sehr hilfreiche Doku.
 
Seite 365 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 362, 363, 364, 365, 366, 367, 368 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps