Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Range("A3:C3,A6:C8").Select

VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:22:16
Chris
hallo
Ich habe folgendes Problem. Ich habe ein Programm mit VBA geschrieben, dass am Freitag funktionierte. Heute morgen hat es nicht mehr funktioniert. An einem anderen PC läufts, wider bei einem anderen läufts nicht mit der gleichen Excelversion. Kann das an einer Einstellung liegen?
Range("A4").Select
funktioniert
Range("A3:C3,A6:C8").Select
funktioniert nicht auf allen PC's
An was liegt das??
Danke für eure Hilfe!
Gruess Chris

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:39:16
Hajo_Zi
Hallo Chris,
auf select kann in VBA zu 99% verzichtet werden.


AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:45:16
Chris
Das habe ich überall im Forum schon gelesen. Nur weiss ich nicht wie ich es ohne machen kann und warum es auf einmal nicht mehr geht!
Private Sub cmdAnzeigeStoerungen_Click()
Set xlsDatei = Application.Workbooks(DieseArbeitsmappe.Name)
Set xlsTabelle = xlsDatei.Sheets("AnzeigeStoerungen")
Dim objDiagramm As Object
Set objDiagramm = New frmDiagramm
'Diagramm "Relative Schäden"
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="AnzeigeStoerungen"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Relative Schäden"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anz pro 100km"
End With
ActiveChart.HasLegend = False
ActiveChart.HasDataTable = True
ActiveChart.DataTable.ShowLegendKey = True
ActiveSheet.ChartObjects("Diagramm 1").Activate 'gif-Datei erstellen
ActiveChart.Export "DiagrammSchaeden.gif"
With objDiagramm.ImgDiagrammSchaeden
.PictureSizeMode = 3
.Picture = LoadPicture("DiagrammSchaeden.gif")
.AutoSize = True
End With
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:48:43
Hajo_Zi
Hallo Chris,
sprechen wir noch vom gleichen Problem? Ich kann Deine Zeile trotzt Brille nicht finden.
Gruß Hajo
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:52:48
Chris
ups, sorry! falsche version! Ich versuche alles mögliche!!
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & "").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:52:54
Chris
ups, sorry! falsche version! Ich versuche alles mögliche!!
Dim temp_StartJahr As Integer
Dim temp_EndJahr As Integer
temp_StartJahr = cmdStoerStartJahr - 1994
temp_EndJahr = cmdStoerEndJahr - 1994
On Error Resume Next
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & "").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:57:53
Uduuh
Hallo,
das kann nirgends funktionieren!
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr).Select
Gruß aus’m Pott
Udo

Anzeige
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 13:01:24
Chris
Hat am Freitag aber funktioniert! Auf anderen PC's funktionierts teilweise auch!!
Der andere Code hat nichts damit zu tun!¨Ich möchte nur eine Grafik erstellen.
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 15:27:27
Chris
makros,sicherheit, minimal, laufen lassen
makros, sicherheit,mittel und es funktioniert auch dort wider!!
Warum weis ich auch nicht, aber jetzt geht es!!
Danke für jegliche Hilfe!!
AW: VBA Range("A3:C3,A6:C8").Select
29.11.2005 12:54:10
Uduuh
Hallo,
das ist garantiert falsch:
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr & ""), _
PlotBy:=xlColumns
nach meiner Meinung:
ActiveChart.SetSourceData Source:=Sheets("AnzeigeStoerungen"). _
Range("A3:C3,A" & temp_StartJahr & ":C" & temp_EndJahr), _
PlotBy:=xlColumns
Und was soll das?
Set xlsDatei = Application.Workbooks(DieseArbeitsmappe.Name)
Set xlsDatei = ThisWorkbook
Gruß aus’m Pott
Udo

Anzeige

307 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
ActiveCell.Copy Sheets("tabelle1").Range("A20")
Karsten

Hallo...
kann mir jemand u.st. Code so ändern, dass nicht nur die aktive Zelle, sondern ein markierter Bereich nach A20 kopiert wird?
Geht es, statt die Zellen ab Zeile 20 zu überschreiben, den kopierten Bereich einzufügen bzw. ab Zeile 20 erst mal die nötige Anzahl Zeilen einzufügen?
15.09.2010 21:10:06
Thread-ID: 1177926
6 Beiträge
UsedRange, jedoch beginnend ab A1 markieren
Peter

Guten Tag
Ich möchte untenstehende Codezeilen erweitern, dass der selektierte Bereich immer aber A1 beginnt, auch wenn in Spalte A resp. Zeile 1 kein Eintrag sein sollte.
Beispiel: UsedRange = C13:CA39
Gewünschte Selektion = A1:CA39
Wie muss der Code angepasst werden?
Danke...
21.09.2010 11:07:19
Thread-ID: 1178700
13 Beiträge
Anzeige
Text in Range während Eingabe per VBA analysieren?
Max

Hallo zusammen,
ist es möglich während der Texteingabe in einem normalen Rangefeld, den Input zu erfassen und ggf. mit Makros zu reagieren?
Ich weiß, daß ich dies früher über eine Form bzw. Objekt möglich war, kann aber auch hierzu nichts mehr finden. Kann ich für meinen normale Rangefe...
21.03.2012 13:49:05
Thread-ID: 1255910
4 Beiträge
Verketten von Zellen per VBA aber nicht in Range..
Zellen

Also,
ich hab mir gerade im Archiv so allerlei angeschaut, und das ist auch alles ganz toll, aber leider nur bedingt was ich suche.
Ich benötige eine VBA Function die nur verkettet wenn die Zelle gefüllt ist, und dann ein _ Trennzeichen setzt. Soweit so gut da gibts schon ein Dutzend...
09.09.2012 19:50:54
Thread-ID: 1277932
6 Beiträge
(ActiveSheet.UsedRange.Rows.Count) zählt falsch
Marc

Hallo zusammen,
ich habe ein Problem mit dem ich einfach nicht weiterkomme....
Ich kopiere mittels Makro Daten wild hin und her und entferne Duplikate. Da sich nach der Entfernung der Duplikate die Anzahl der Zeilen doch massiv reduziert möchte ich mit dem Befehl
msg2 = (ActiveSheet...
31.05.2013 11:10:38
Thread-ID: 1315676
10 Beiträge
UsedRange.find macht Mätzchen
Albert

Guten Abend zusammen,
ich verwende diese Codezeile, um ein Datum in einem Sheet zu suchen... Sub Codeschnipsel() Set k = Sheets("Regelschichtplan").UsedRange.Find(What:=CDate(ZSVerwaltung.TextBox3.Text), _ After:=Cells(1, 1), LookIn:=xlFormulas, lookat:=xlWhole, searchorder:=xlByRows) End...
14.01.2014 20:13:38
Thread-ID: 1345230
3 Beiträge
VBA Hyperlink einer Range/ einem Bild zuweisen
Dokadan

Moin,
ich habe folgenden Code geschrieben:
Set LogoRange = .Range(.Cells(Hoehe * (Zeile - 1) + 12, Breite * (Spalte - 1) + 1), _
.Cells(Hoehe * (Zeile - 1) + 13, Breite * (Spalte - 1) + 2))
Set Logo = .Pictures.Insert(Firma_Logo)
With Logo
.ShapeRange.LockAspectRat...
14.04.2014 18:14:15
Thread-ID: 1357289
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
6
5
12
12
3
5
9
2
2
8
1
8
3
3
2
3
3
3
4
7
3
2
1
12